kiểm soát bộ chọn ngày trội excel

Question

Tôi cần phải tạo bộ chọn ngày trong ô cho một trang tính excel mà tôi đang tạo.

Tôi đang cố gắng làm theo this tutorial

Tuy nhiên tôi không thể hiểu làm thế nào ví dụ là vụ phải đặt một bảng chọn lịch trong tế bào A1:C1. Trong bảng tính của tôi, nếu tôi dán mã như là, nó ném một lỗi. nếu tôi cố gắng để sửa đổi nó như vậy:

'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 

tôi nhận được không có kết quả gì cả ...

Bất kỳ đầu hoặc câu trả lời được đánh giá cao :)

Answer 1

Tôi tìm thấy một ví dụ tốt hơn cho một Excel làm việc 2010 Calander hơn những gì tôi đã phát hiện trước đó.

Hướng dẫn này là thực sự tốt, và giúp bạn tạo ra một cửa sổ pop up Calander cho Excel 2010: http://www.fontstuff.com/vba/vbatut07.htm

tôi tìm thấy nó ở dưới cùng của trang được liên kết bởi brettdj. Cảm ơn bạn :)

Answer 2

Phiên bản VBA này từ Trevor Eyre trông khá tuyệt và được ghi lại tài liệu. Một dòng mã mở hình thức VBA và được ngày:

myDate = CalendarForm.GetDate 

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

-OO-