返回列表 上一主題 發帖

[發問] 日期比對

ken759727

帖子
19 
主題
12 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-9-27 
最後登錄
2017-12-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-11-22 16:32 | 只看該作者
now() 函數會包括時間，時、分、秒
換句話說，它不是整數。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-11-22 16:52 | 只看該作者
now() 函數會包括時間，時、分、秒
換句話說，它不是整數。
oobird 發表於 2011/11/22 16:32

now() 改用 DATE

TOP

ken759727

帖子
19 
主題
12 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-9-27 
最後登錄
2017-12-21 
4#
發表於 2011-11-22 17:14 | 只看該作者
本帖最後由 ken759727 於 2011-11-22 17:15 編輯

感謝 ooBird   GBKEE    指引

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

就可以使用判斷式了

萬分感謝

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題