VBA 关于日历控件和userform的问题

Question

VBA 日历控件中单击选择的日期显示到日历控件中的label里，并使该label显示选择的日期（应该是文本吧）然后双击使得该label里显示的日期输入到另一个form中的textbox，图片是代码，现在单击使日期显示在label里的功能已经ok了，但是双击后无法输入到textbox里，求大神解答，跪谢.

 

Answer 1

您好，很高兴能帮助您解答关于VBA日历控件和UserForm的问题。在VBA中，您可以使用日历控件来创建一个日历界面，并使用UserForm来创建自定义的表单界面。
首先，关于日历控件，VBA提供了Calendar控件，可以用于在表单上显示日历。以下是一个简单的示例代码，演示如何在UserForm中添加一个日历控件：

1. 在VBA编辑器中，打开您的项目。
2. 在UserForm中，从工具箱（Toolbox）中选择“Calendar”控件，并将其拖动到UserForm上。
3. 根据需要调整日历控件的大小和位置。
4. 在代码编辑器中，为日历控件添加事件处理程序。例如，您可以为“Click”事件添加以下代码：

   Private Sub Calendar_Click()
    MsgBox "您选择的日期是：" & Me.Calendar.Value
   End Sub
   

   这段代码会在您单击日历控件时显示一个消息框，其中包含所选日期。
   接下来，让我们来看一个完整的示例，演示如何创建一个带有日历控件和按钮的UserForm：
5. 在VBA编辑器中，创建一个新的UserForm。
6. 从工具箱中选择“Calendar”控件，并将其拖动到UserForm上。
7. 同样地，选择“CommandButton”控件，并将其拖动到UserForm上。
8. 在代码编辑器中，为按钮添加以下代码：

   Private Sub CommandButton_Click()
    MsgBox "您选择的日期是：" & Me.Calendar.Value
   End Sub
   

9. 最后，为您的UserForm添加一个初始化事件，以便在打开表单时设置初始的日期：

   Private Sub UserForm_Initialize()
    Me.Calendar.Value = Date
   End Sub
   

   这段代码将在打开UserForm时将日历控件的日期设置为当前日期。现在，当您运行UserForm时，您将看到一个日历控件和一个按钮。单击按钮将显示一个消息框，其中包含所选日期。
   希望这个示例能帮助您理解如何在VBA中使用日历控件和UserForm。如有需要，请随时提问！