worksheet.find で Day(Now)

質問

EXCEL マクロでworksheet.find で 特定の日付の並んだ列に
Day(Now) を判定基準にした所、2011/1/24 に判定処理を
かけたにもかかわらず、2011/11/24 がヒットします。
2011/1/24 もヒットするのですが、11/24 は明らかに
判定ミスなのですが、どうしてこのような事が起こるのでしょうか？

Sub ChkDate()
'
' ChkDate Macro
' マクロ記録日 : 2008/06/05 ユーザー名 : ＸＸＸＸＸＸ
'
Dim Rslt, firstaddress, targetrow, c
Dim Style, Title, Help, Ctxt, Response, MyString

'
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Result"
Help = ""
Ctxt = 1000

Rslt = ""

Worksheets("LIST").Activate

With Worksheets("LIST").Range("B6:B28")
Set c = .Find(Day(Now), LookIn:=xlValues)
Rslt = ""
If Not c Is Nothing Then
firstaddress = c.Address
Do
Rslt = Rslt + Worksheets("LIST").Cells(c.Row, 1) + Chr(10) + Chr(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

If Rslt = "" Then
Rslt = "No Match"
GoTo LabelEnd
End If

Response = MsgBox(Rslt, Style, Title, Help, Ctxt)
If Response = vbYes Then
MyString = Rslt
Else
MyString = "No"
End If

LabelEnd:

End Sub

回答No.1

nattocurry · ベストアンサー

原因の1つは、Day(Now)　ですね。
これだと、「24」を探すことになります。
なので、1月24日　でも　11月24日　でもヒットすることになります。

Format(Date, "m月dd日")　を探すようにして、LookAt:=xlWhole も追加しましょう。

"m月dd日"の部分は、実際の表示形式にあわせてください。

お礼

回答ありがとうございました。

実は Day(Now) にするまでの間
DateValue(Format(Now), "yyyy/mm/dd") なども
試してみたのですが、結果が同じでした。

LookAt:= xlWhole ですかね。

補足

再度のお礼です。

LookAt:xlWhole が効いたようです。

Set c = .Find(DateValue(Format(Date, "yyyy/mm/dd")), LookAt:=xlWhole)
で判定にミス無く通るようになりました。
ありがとうございました。

回答No.2

mshr1962

Day(Now)　2011/1/24 13:25:00 →　24（日にちだけを取りだす）
だからです。

"2011/1/24"のみが対象なら
Date
を使うか
Int(Now)
としてください。

お礼

回答ありがとうございました。

実は Day(Now) にするまでの間
DateValue(Format(Now), "yyyy/mm/dd"), なども
試してみたのですが、結果が同じでした。

Int(Now) は試してみませんでした。