jiasongnian123 2021-03-25 20:01 采纳率: 0%
浏览 62

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

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

 

  • 写回答

1条回答 默认 最新

  • 『博特Borter』 2023-11-18 14:57
    关注

    您好,很高兴能帮助您解答关于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。如有需要,请随时提问!
    评论

报告相同问题?

悬赏问题

  • ¥15 CST仿真别人的模型结果仿真结果S参数完全不对
  • ¥15 误删注册表文件致win10无法开启
  • ¥15 请问在阿里云服务器中怎么利用数据库制作网站
  • ¥60 ESP32怎么烧录自启动程序
  • ¥50 html2canvas超出滚动条不显示
  • ¥15 java业务性能问题求解(sql,业务设计相关)
  • ¥15 52810 尾椎c三个a 写蓝牙地址
  • ¥15 elmos524.33 eeprom的读写问题
  • ¥15 用ADS设计一款的射频功率放大器
  • ¥15 怎么求交点连线的理论解?