exceldate选取器控制

我需要为我创build的Excel工作表创build一个单元格dateselect器。

我试图按照这个教程

但是我不能理解这个例子应该如何在单元格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工具箱的例子。

本教程非常好，可以帮助您为Excel 2010创build一个popup菜单： http : //www.fontstuff.com/vba/vbatut07.htm

我发现它在由brettdj链接的页面的底部。 谢谢 ：）

Answer 2

Trevor Eyre的这个VBA版本看起来非常棒，并且有很好的文档logging。 一行代码打开VBA表单并获取date：

 myDate = CalendarForm.GetDate 

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

-OO-