0

我需要将日期存储为全局变量。我以为我正在这样做,但手表显示它在 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
4

0 回答 0