如何从UserForm中的文本框中调用DateTimePicker

Question

我在UserForm中创建了一个TextBox1。 我创建了一个名为

的Sub

Sub TextBox1_Enter() End Sub

通过单击文本框，我想打开DateTimePicker控件来选择日期，选择日期后，所选日期应该是TextBox1.Value

我有来自mscomct2.ocx的DateTimePicker

我真的不知道如何调用控件;有代码的任何提示和任何人的好解释吗？

Answer 1

我不确定这是否正是您所寻找的，但您可以查看this。这是非常好的解释。

Answer 2

我的目标是在表单启动时有一个空的DatePicker，并被告知在单击时使用文本框加载DTPicker。

但我发现这个解决方案可以将DTPicker Value保持为空状态启动

Private Sub DTPicker1_CloseUp() FormatDTPicker End Sub Private Sub DTPicker1_Format(ByVal CallbackField As String, FormattedString As String) If CallbackField = "X" Then FormattedString = "" End Sub Private Sub DTPicker1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal_ x As stdole.OLE_XPOS_PIXELS, ByValy As stdole.OLE_YPOS_PIXELS) With DTPicker1 If .Value = vbNull Then .Value = Now End If End With End Sub Private Sub UserForm_Initialize() DTPicker1.Value = vbNull FormatDTPicker End Sub Private Sub FormatDTPicker() With DTPicker1 If .Value = vbNull Then .Format = dtpCustom .CustomFormat = "X" Else .Format = dtpShortDate End If End With End Sub

http://www.mrexcel.com/forum/excel-questions/666685-dtpicker-value-null.html