Excel中進行怎麼插入日期選取器

 　　Excel中進行怎麼插入日期選取器

　　在開發工具列選擇插入-其他控制項，開啟其他控制項選擇框。

　　在選擇框中選擇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)。

　　插入該控制項後，在非設計模式下即可點擊彈出日期選擇介面。如下：