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

如何确定日期是当前月/年然后继续宏

1 个答案: