vba编程需要支持popup日历
我没有vba的经验，并会非常感谢您的帮助与popup日历用户表单的实施。 此链接将引导您到我正在尝试引入到我的工作簿的日历的来源：
http://www.ozgrid.com/forum/showthread.php?t=142603
我已经将类模块，用户表单和模块复制到我的工作簿中。 当我启动macros时，这将打开一个用户窗体，我可以在日历上select希望的date。 我想念的是能够将日历中选定的date发送到我的工作簿中的特定单元格。 我将非常感谢，如果有人可以指导我通过如何编写几行代码，将用户表单中select的date发送到我的工作簿中的特定单元格！ 再一次，我对这个很新，所以让我知道我的解释是否有什么不清楚的地方。 我花了很多时间在这个，所以任何支持高度赞赏！ 这可能只需要一点时间，但对我来说意义重大！
试试这个post 。 它的目的是提供一个更好的指导与datepicker control工作。 但是它显示了编写插件的代码。
因此，对你来说最基本的方法是，
- 添加一个表单
- 添加datepicker控件
- 代码从那里
根据这篇文章 。
但要记住Excel / Access中的日历控件有时会因为我在文章中提到的原因而消失 。
如果您打算使用date picker控件，则这里是将值从表单传递到任何地方的代码;）
Private Sub myDtPicker_Change() Dim dtDateSelected as Date dtDateSelected = myDtPicker.Value '-- do anything else End Sub
该类将选定的date写入文本框。 selectdate后，可以使用文本框的值设置单元格的值。
Private Sub UserForm_Initialize() Set clsCal = New clsCalendar 'Initialize the Class' Set clsCal.Form(Me.TextBoxDate) = Me 'Tells the class to write the Selected date' ' into the textbox "Me.TextBoxDate"' End Sub
所以在这个例子中，每当你select一个date时，这个类将会自动的将select的date存储在文本框中。
selectdate后，可以使用以下代码将值添加到单元格中：
Range("A1").value=TextBoxDate.Value