Excelセルの日付が1週間以内にあるかどうかを確認するにはどうすればよいですか？

StackOverflow https://stackoverflow.com/questions/3538960

  •  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
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top