vba制作日期选择框代码，同时弹出可选择的日期

在VBA中，可以使用内置的DatePicker控件来实现日期选择框，代码如下：

Private Sub CommandButton1_Click()
    Dim dDate As Date
    dDate = Me.DateTimePicker1.Value
    MsgBox "您选择的日期是：" & dDate
End Sub

其中，DateTimePicker1是一个DatePicker控件，用户可以通过单击它来选择日期。在按钮的Click事件中，我们将控件的值赋给一个Date类型的变量dDate，然后用MsgBox显示出来。

需要注意的是，DateTimePicker控件需要在VBA中手动添加，具体方法如下：

1. 在开发环境中打开Excel或者Word等应用程序。
2. 打开VBE编辑器，可以使用快捷键Alt+F11。
3. 在VBE编辑器中，选择菜单栏中的“工具” -> “附加组件”。
4. 在弹出的“附加组件”对话框中，勾选“Microsoft Windows Common Controls-2 6.0（SP6）”，然后点击“确定”按钮。
5. 在VBE编辑器中，打开你要添加DatePicker控件的用户窗体或工作表。
6. 选择菜单栏中的“工具” -> “附加控件”，在弹出的对话框中找到“Microsoft Windows Common Controls 2 6.0 (SP6)”并勾选它，然后点击“确定”按钮。
7. 在工具箱中找到DateTimePicker控件，然后在用户窗体或工作表上拖动它。

添加完控件后，就可以使用上述代码来实现日期选择框了。