Question

VBA中，窗体控件中添加日期控件并赋值，如图。谢谢大家！！

Answer 1

在工具箱点鼠标右键——附加控件，在附加控件窗口中选择如图的控件，如没有，请上网下载安装。确认后选择控件在窗体中添加。

控件代码如下

Private Sub DTPicker1_Change()
[O2] = Me.DTPicker1.Value
End Sub

Private Sub DTPicker2_Change()
[O3] = Me.DTPicker2.Value
End Sub

追问

你好，说的很详细。在窗体中增加了日期控件，也把你的代码写进去了。但在试运行代码时，未看到O2单元格显示了所选日期。能再帮帮我吗，谢谢！

追答

我也想知道哪里出问题，代码没有错误，要不就是指向问题，[O2] = Me.DTPicker1.Value与[O3] = Me.DTPicker2.Value表示当前表的[O2]与[O3]，运行时选择日期有没有提示错误？

Answer 2

Private Sub DTPicker1_Change()'日期改变事件
[o2].Value = DTPicker1.Value
[o3].Value = DTPicker1.Value
End Sub

这种格式：[o2] 可以引用单元格，

追问

你好，我的开始日期控件是个下拉框，不是日期控件。能帮我想想办法吗？谢谢！

追答

被你搞糊涂了，下拉框差不多

Private Sub Combo1_Change() '开始日期
    [o2].Value = Combo1.Text
End Sub
Private Sub Combo2_Change() '结束日期
    [o3].Value =  Combo2.Text
End Sub

不明白你是不是这意思

追问

你好，运行窗体控件后，点击开始日期，没任何反应，看不到有日期控件弹出。

追答

晕，估计楼下是你想要的。