在開發工具欄選擇插入-其他控制元件，開啟其他控制元件選擇框。

在選擇框中選擇calendar control8.0，確定。

在設計模式下雙擊日曆。

在游標處輸入下方的程式碼：

ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Or Target.Column = 2 Then

"此處的1和2為你要顯示日曆的列序號

Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.To If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now( End I Me.Calendar1.Visible = TruElse Me.Calendar1.Visible = FalseEnd If。

關閉程式碼編輯器，將EXCEL儲存為啟用宏的工作薄。

EXCEL除了這個日曆控制元件外還有一個另一個比較簡單的日曆選擇器Microsoft date and time picker control(SP6)。