日历 - 定制[关闭]答案

【问题标题】：Calendar - custom made [closed]日历 - 定制[关闭]
【发布时间】：2014-05-29 06:56:04
【问题描述】：

A 发现了这个非常有用的custom made calendar。其中一个 cmets 是：“太棒了！有用的工具！！！”

我修改为将选择的日期保存在日期变量中，因此我在使用时不必从文本中重新解释日期。在模块中，添加：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] 供用户进行选择，然后通过将选择分配给其他各种单元格，在我的代码中使用选择作为变量。
Range("A1") = TextBox1.Value 不行吗？

标签： vba date

【解决方案1】：

很遗憾，我现在无法下载用户表单来检查代码。但据我了解评论，你应该写

Private dPickedDate as Date

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

【讨论】：