- 670 名前：デフォルトの名無しさん mailto:sage [2024/10/26(土) 18:05:31.34 ID:M1lKcgDO.net]
- >>640
VBAならではの関数使おうとしないで、ゴリゴリ書いて探してもいいんじゃない
Dim i As Long
For i = 5 To 40
Dim rng As Range
Dim d As Date
d = Sheet1.Cells(4, i)
If Month(d) & "/" & Day(d) = "10/23" Then
MsgBox d
Set rng = Sheet1.Cells(4, i)
MsgBox rng.Address
End If
Next i
