Vba 日历-定制

A偶然发现这一点非常有用。其中一条评论是：“太棒了！有用的工具！！！”

我进行了修改，将拾取的日期保存在日期变量中，这样在使用日期时就不必从文本中重新解释日期。在模块中，添加了：

Private dPickedDate as Date

。每天命令按钮更改为：

dPickedDate = DateSerial(
    Val(Format(CommandButton45.Caption, "YYYY")), _
    Val(Format(CommandButton45.Caption, "MM")), _
    CommandButton1.Caption) 
TextBox1.Text = Format(dPickedDate, "DD-MMM-YYYY")

我的问题：

---

我不确定在何处/如何包含“Private dPickedDate as Date”，尽管进行了各种尝试，但我无法让它工作…

不幸的是，我现在无法下载userform来检查代码。但据我所知，你应该写信

Private dPickedDate as Date

---

在任何函数之外的UserForm1模块顶部。

也许您可以更好地解释您试图实现的目标。引用的注释不明确。如果要运行我的代码，请打开日历[userform]让用户进行选择，然后通过将选择分配给其他各种单元格，将其作为我代码中的变量使用。

Range（“A1”）=TextBox1。Value

不起作用？