怎样在VBA用户窗体上文本框中添加日历控件

问：文本框右侧的向下三角按钮是怎样做出来的？

答：使用“复合框”控件即可。

要求：日历在文本框底部显示

实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。

功能说明：双击“复合框”显示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。

功能代码：

Private Sub Calendar1_DblClick()

MeComboBox1Value = MeCalendar1Value

MeCalendar1Visible = False

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSFormsReturnBoolean)

MeCalendar1Visible = Not MeCalendar1Visible

End Sub

Private Sub UserForm_Initialize()

MeCalendar1Visible = False

End Sub

注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1

你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上代码复制粘贴到代码区域即可。

以上可以实现你要的功能。如需示例附件，请发Email到Atraction@qqcom，我会回复给你。

用VBA去获取单元格的值的时候，返回的才是Long类型的值，是从1900-1-1开始算的天数。DTPicker1出来的是日期，想要得到数值型，就需要先将结果填写到一个单元格中，再去获取这个单元格的值。

方法/步骤

在Excel中输入日期时，如果能自动d出一个日历控件协助输入，那真是一件美事！不仅为了提高工作效率，更能给人一个惊喜，惊喜之余消除了工作疲劳，真是一举多得！。

2

方法很简单，跟我来动手做就好！

以上就是关于怎样在VBA用户窗体上文本框中添加日历控件全部的内容，包括:怎样在VBA用户窗体上文本框中添加日历控件、vba日期控件“DTPicker1”问题，请高手赐教！、如何在excel vba设置日历控件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！