求一款能在EXCEL 2019 64位 VBA Userform中引用的日期控件
发布网友
发布时间：2022-04-25 08:23
共1个回答
热心网友
时间：2023-11-08 21:31
问：文本框右侧的向下三角按钮是怎样做出来的？
答：使用“复合框”控件即可。
要求：日历在文本框底部显示
实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。
功能说明：双击“复合框”显示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码：
Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub
注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1.
你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件，请发Email到Atraction@qq.com，我会回复给你。
热心网友
时间：2023-11-08 21:31
问：文本框右侧的向下三角按钮是怎样做出来的？
答：使用“复合框”控件即可。
要求：日历在文本框底部显示
实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。
功能说明：双击“复合框”显示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码：
Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub
注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1.
你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件，请发Email到Atraction@qq.com，我会回复给你。
热心网友
时间：2023-11-08 21:31
问：文本框右侧的向下三角按钮是怎样做出来的？
答：使用“复合框”控件即可。
要求：日历在文本框底部显示
实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。
功能说明：双击“复合框”显示，再次双击隐藏。在日历上选择日期后，双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码：
Private Sub Calendar1_DblClick()
Me.ComboBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub
注：其中“复合框”的控件名称为ComboBox1，日历的控件名称为 Calendar1.
你可以直接新建窗体，拖入一个复合框和一个日历控件，双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件，请发Email到Atraction@qq.com，我会回复给你。
