如何確定日期是否是當前月/年然后繼續宏

Question

我在 B5 中有當前日期，而用戶在 B6 中輸入了生效日期。 我有一個創建 .prn 文件的按鈕激活宏

如果生效日期不在當年或當月，則應出現一個消息框“生效日期在過去。是否繼續？” 然后我需要一個是或否提示。 如果用戶選擇是，則繼續宏，如果不是，則退出。

任何幫助表示贊賞！

Answer 1

這是比較日期的一種方法，然后采取適當的措施：

Sub compareDates()
  With ActiveSheet
    If Format(.Range("B5"), "myyyy") <> Format(.Range("B6"), "myyyy") Then
      If MsgBox("Effective date is in the past. Proceed?", vbYesNo) = vbNo Then Exit Sub
    End If
  End With

  ' call your macro here

End Sub