麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 日期比對 [打印本頁]

作者: ken759727 時間: 2011-11-22 15:57 標題: 日期比對

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:

作者: oobird 時間: 2011-11-22 16:32

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

作者: GBKEE 時間: 2011-11-22 16:52

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

now() 改用 DATE

作者: ken759727 時間: 2011-11-22 17:14

本帖最後由 ken759727 於 2011-11-22 17:15 編輯

感謝 ooBird GBKEE 指引

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

就可以使用判斷式了

萬分感謝

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)