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创建一个弹出式Calander:http: //www.fontstuff.com/vba/vbatut07.htm

我发现它位于由brettdj链接的页面底部.谢谢 :)