excel2013插入日期選擇器的方法

　　在Execl中錄入好數(shù)據(jù)以后經(jīng)常需要進(jìn)行美化或者做一些輔助功能，其中日期選擇器這個(gè)功能較為常用，具體該如何插入呢?，下面是由學(xué)習(xí)啦小編分享的excel2013 插入日期選擇器的方法，以供大家閱讀和學(xué)習(xí)。

　　excel2013 插入日期選擇器的方法

　　插入日期選擇器步驟1：在開發(fā)工具欄選擇插入-其他控件，打開其他控件選擇框。

　　插入日期選擇器步驟2：在選擇框中選擇calendar control8.0，確定。

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

　　插入日期選擇器步驟4：在設(shè)計(jì)模式下雙擊日歷。

　　插入日期選擇器步驟5：點(diǎn)擊設(shè)計(jì)模式，當(dāng)圖表顏色變深后就是設(shè)計(jì)模式，打開代碼編輯器。

　　插入日期選擇器步驟6：在光標(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

　　插入日期選擇器步驟7：關(guān)閉代碼編輯器，將EXCEL保存為啟用宏的工作薄。

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

　　插入日期選擇器步驟9：EXCEL除了這個(gè)日歷控件外還有一個(gè)另一個(gè)比較簡單的日歷選擇器Microsoft date and time picker control(SP6)。

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