Just nu i M3-nätverket
Gå till innehåll
Camilla.L

Excel format DATE - Visuel Basic

Rekommendera Poster

Hej

 

Jag har en kolumn i mitt excel ark som har formatet DATE. De som inte hade några datum har fått "datumet" 00.01.1900. Jag ønskar att hitta dessa och markera dem med en annan farg, ur gor jag fora att sortera ut dessa, någon som vet?

 

 

Sub NotEnded1190()
   For RX = 2 To 10 ' 1435
       CX = 6
       If Worksheets("A (2)").Cells(RX, CX). = "00.01.1900" Then
           Worksheets("A (2)").Cells(RX, CX) = ""
           Worksheets(" A (2)").Cells(RX, CX).Interior.ColorIndex = 15
       Else
           Worksheets(" A (2)").Cells(RX, 28) = "OK"
       End If
   Next RX
End Sub

 

 

Tack på förhand!

mvh Camilla

Ed av Moderator - Visual Basic i Excel == Visual Basic for Applications == VBA

 

[inlägget ändrat 2009-06-30 11:53:30 av Monshi]

 

[inlägget ändrat 2009-06-30 11:53:55 av Monshi]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Jag kanske inte borde svara på Micrsosoft-frågor, då jag inte är troende. Men jag fick detta att funka på en gammal Excel i alla fall.

 

       If Cells(RX, CX) = "00.01.1900" Then
           Cells(RX, CX).Interior.ColorIndex = 15
           Cells(RX, 28) = ""
       Else
           Cells(RX, 15) = "OK"
       End If

 

Vad som skiljer är väl, ingen punkt i vilkorsraden. Och sedan bara antog jag att man vill tömma ok-kolumnen istället för datumkolumnen, annars behöver man väl inte byta färg?

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Borde väl räcka att kolla om värdet på cellen är noll på serievärdet för 1900-01-00 är just noll.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...