Excel中進(jìn)行插入日期選擇器的操作方法

　　使用EXCEL進(jìn)行數(shù)據(jù)處理，經(jīng)常會(huì)遇到動(dòng)態(tài)的日期，如果插入日期選擇器可以很方便的進(jìn)行日期的選擇，今天，學(xué)習(xí)啦小編就教大家在Excel中進(jìn)行插入日期選擇器的操作技巧。

　　Excel中進(jìn)行插入日期選擇器的操作步驟：

　　在開發(fā)工具欄選擇插入-其他控件，打開其他控件選擇框。

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

　　在適當(dāng)?shù)奈恢美L制日歷，并將高度和寬度適當(dāng)調(diào)整。這時(shí)的日歷控件還比較原始，不會(huì)點(diǎn)擊日期后自動(dòng)隱藏日歷并在單元格內(nèi)填入日期，這時(shí)就需要添加自己的代碼。

　　在設(shè)計(jì)模式下雙擊日歷。

　　點(diǎn)擊設(shè)計(jì)模式，當(dāng)圖表顏色變深后就是設(shè)計(jì)模式，打開代碼編輯器。

　　在光標(biāo)處輸入下方的代碼：

　　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為你要顯示日歷的列序號(hào)

　　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

　　關(guān)閉代碼編輯器，將EXCEL保存為啟用宏的工作薄。

　　再次打開該工作薄，點(diǎn)擊第一列或者第二列，就可以彈出日歷選擇器，選擇日期后，在單元格內(nèi)會(huì)插入日期，日歷選擇器消失。注意這是在非編輯模式下才可以實(shí)現(xiàn)的。

　　EXCEL除了這個(gè)日歷控件外還有一個(gè)另一個(gè)比較簡(jiǎn)單的日歷選擇器Microsoft date and time picker control(SP6)。

　　插入該控件后，在非設(shè)計(jì)模式下即可點(diǎn)擊彈出日期選擇界面。如下：