excel - excel日期选择器控件

Question

我需要为我正在创建的 Excel 工作表创建一个单元格日期选择器。

我正在尝试遵循本教程

但是我无法理解该示例应该如何在单元格中放置日历选择器A1:C1。在我的工作表中，如果我按原样粘贴代码，则会引发错误。如果我尝试像这样修改它：

'Declaration
Public Function AddDateTimePicker(range As range, name As String) As DateTimePicker   

Private Sub ExcelRangeAddDateTimePicker()
Dim DateTimePicker1 As Microsoft.Office.Tools.Excel.Controls.DateTimePicker
DateTimePicker1 = Me.Controls.AddDateTimePicker(Me.range("A1", "C1"), "DateTimePicker1")       
End Sub

我一点结果都没有……

任何提示或答案表示赞赏:)

Answer 1

我找到了一个比我之前发现的更好的 Excel 2010 Calander 示例。

本教程非常好，可以帮助您为 Excel 2010 创建弹出式日历： http ://www.fontstuff.com/vba/vbatut07.htm

我在 brettdj 链接的页面底部找到了它。谢谢 ：）

Answer 2

Trevor Eyre 的这个 VBA 版本看起来非常棒，并且有据可查。一行代码打开 VBA 表单并获取日期：

myDate = CalendarForm.GetDate

http://trevoreyre.com/portfolio/excel-datepicker/

-OO-