Excelセルの日付が1週間以内にあるかどうかを確認するにはどうすればよいですか?
-
30-09-2019 - |
質問
Excel 2010でVBAを使用して、簡単な誕生日リマインダープログラムを作成しています。日付の列(列D)があります。セルが今日から1週間以内にあるかどうかを確認するにはどうすればよいですか?
条件ステートメントのVBA構文が何であるかはわかりません。
For i = 2 To MAX_ROW
cell = ActiveSheet.Cells(i, 4)
If (Date(cell) - Date(Now()) <= 7) Then
MsgBox(ActiveSheet.Cells(i, 1)
End If
Next
解決
セルに実際の誕生日が含まれている場合、年を今年に変更する必要があります。
If DateSerial(Year(Date), Month(Cell), Day(Cell)) - Date <= 7 Then
所属していません StackOverflow