Question

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

我正在尝试关注this tutorial

但是我无法理解该示例应该如何在单元格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链接的页面底部。谢谢:)）

Answer 2

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

myDate = CalendarForm.GetDate

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

-OO -

excel日期选择器控制

2 个答案: