我需要将日期存储为全局变量。我以为我正在这样做,但手表显示它在 sub 结束后重置。我查看了无数的全局变量文章和对问题的回答,似乎没有任何效果。
那么,当我需要在以后的 subs 中调用该变量时,如何阻止这种情况发生在我的 VBA 代码中?
Option Explicit
Public strDate As Variant
Sub SelectDate()
strDate = InputBox("Select Report Date (mm/dd/yy)", "Report Date", Format(Now() - 1, "mm/dd/yy"))
If IsDate(strDate) Then
strDate = Format(CDate(strDate), "mm/dd/yy")
Else
MsgBox "Valid Date Format Required"
End If
End Sub