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

我完全没有结果... 欢迎提供任何提示或答案 :)

- Ole Henrik Skogstrøm

---

请参考 http://www.rondebruin.nl/calendar.htm 获取一个可用的示例...我认为你当前的链接不是 VBA。 - brettdj

谢谢您提供的示例，但是我已经使用了Ro de Bruin的示例。该方法需要安装日历（在Excel 2010中，此日历控件不再自动安装）。我包含的示例页面中有C＃和VB的示例。 - Ole Henrik Skogstrøm

这个例子不是 VBA。它可能是 VB.Net。 - brettdj

好的，但它应该在Excel中工作，有什么线索可以做到这一点吗？ - Ole Henrik Skogstrøm

Answer 1

我找到了一个比之前发现的更好的Excel 2010日历工作示例。 本教程非常好，可以帮助您为Excel 2010创建弹出式日历： http://www.fontstuff.com/vba/vbatut07.htm。 我在brettdj提供的链接页面底部找到了它，感谢你 :)

- Ole Henrik Skogstrøm

Answer 2

这个来自Trevor Eyre的VBA版本看起来非常棒，文档也很完善。一行代码打开VBA表单并获取日期：

myDate = CalendarForm.GetDate

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

-OO-

- PKanold

---

重要提示：当我运行下载的zip文件时，VirusTotal报告了2个可能的恶意软件。对于我的投票结果感到抱歉。我已经联系了作者解决这个问题。 - NoChance