☰

Excel 打开并询问日期

tag-icon • tag-icon microsoft-excel date input
Excel 打开并询问日期

我正在创建一个电子表格，需要要求用户在打开工作簿时输入日期。答案字段需要包含可追溯至 13 个月的有效日期范围。

一旦输入了有效日期，就需要打开数据文件夹并填充特定矩阵。

这是项目的第一部分。如能得到任何帮助，我们将不胜感激。

答案1

以下是不使用 match.com 来约会的一种方法：

Sub AskingForADate()
    Dim d As Date, dOld As Date
    Dim OK As Boolean
    dOld = DateSerial(Year(Date), Month(Date) - 13, Day(Date))
    OK = False
    While Not OK
        d = Application.InputBox(Prompt:="Enter a date within the last 18 months", Type:=1)
        If d <= Date And d >= dOld Then
            OK = True
        Else
            MsgBox "Not valid"
        End If
    Wend
End Sub

相关内容