[發問] 日期比對

ken759727

Dim day As String
Dim i As Integer

For i = 7 To 10000
If Worksheets("輪動值").Range("A2") = Worksheets("輪動值").Range("A" & i) Then
Worksheets("輪動值").Range("B" & i & ":I" & i).Value = Worksheets("輪動值").Range("B2:I2").Value
GoTo stockup
End If
Next

stockup:

-------------------------------------------------------------
請問我  Worksheets("輪動值").Range("A2")     輸入  NOW()    判斷式就無法比對日期

之後修改成下面  也無法判斷，但是 Worksheets("輪動值").Range("A2")   直接輸入日期  ex. 2011/11/21   就可以比對



Dim day As String
Dim i As Integer

For i = 7 To 10000
day = Worksheets("輪動值").Range("A" & i)
If day = Worksheets("輪動值").Range("A" & i) Then
Worksheets("輪動值").Range("B" & i & ":I" & i).Value = Worksheets("輪動值").Range("B2:I2").Value
GoTo stockup
End If
Next

stockup:

ken759727

感謝 ooBird   GBKEE    指引

我把函數 換成  =VALUE(MID(Futures!A2,4,10))

就可以使用判斷式了

萬分感謝

GBKEE

now() 函數會包括時間，時、分、秒
換句話說，它不是整數。
oobird 發表於 2011/11/22 16:32

now() 改用 DATE

oobird

now() 函數會包括時間，時、分、秒
換句話說，它不是整數。