excel2007如何插入選擇日期框

　　Excel中日期框選擇器該如何插入呢?其實(shí)方法很簡(jiǎn)單，但是新手不會(huì)，怎么辦?有簡(jiǎn)單易懂的方法嗎?接下來是學(xué)習(xí)啦小編為大家?guī)淼膃xcel2007插入選擇日期框的方法，歡迎大家來到學(xué)習(xí)啦學(xué)習(xí)。

　　excel2007插入選擇日期框的方法

　　插入選擇日期框步驟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è)比較簡(jiǎn)單的日歷選擇器Microsoft date and time picker control(SP6)。

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