excel2007插入日期選擇器的教程
excel2007插入日期選擇器的教程
Excel中經常需要使用到日期選擇器為用戶提供選日期的便捷，插入日期選擇器具體該如何操作呢?下面是由學習啦小編分享的excel2007插入日期選擇器的教程，以供大家閱讀和學習。
excel2007插入日期選擇器的教程
插入日期選擇器步驟1：在某一單元格中插入日歷控件
插入日期選擇器步驟2：選中要插入日歷控件的單元格，設置單元格格式為日期型;
插入日期選擇器步驟3：點擊工具欄，“插入—對象—日歷控件”，
插入日期選擇器步驟4：用快捷方式Alt+F11，雙擊插入控件的工作表名稱，粘貼下面的代碼，用來實現單擊A1時彈出日歷控件，單擊日歷控件后，將選中的日期值填入A1并隱藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A class="main">
excel2007插入日期選擇器的教程
End Sub
excel2007插入日期選擇器的教程圖1
有關其他版本插入日期選擇器的教程：
插入日期選擇器步驟1：在開發工具欄選擇插入-其他控件，打開其他控件選擇框。
excel2007插入日期選擇器的教程圖2
插入日期選擇器步驟2：在選擇框中選擇calendar control8.0，確定。
excel2007插入日期選擇器的教程圖3
插入日期選擇器步驟3：在適當的位置繪制日歷，并將高度和寬度適當調整。這時的日歷控件還比較原始，不會點擊日期后自動隱藏日歷并在單元格內填入日期，這時就需要添加自己的代碼。
excel2007插入日期選擇器的教程圖4
插入日期選擇器步驟4：在設計模式下雙擊日歷。
點擊設計模式，當圖表顏色變深后就是設計模式，打開代碼編輯器。
在光標處輸入下方的代碼：
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
excel2007插入日期選擇器的教程圖5
插入日期選擇器步驟5：關閉代碼編輯器，將EXCEL保存為啟用宏的工作薄。
excel2007插入日期選擇器的教程圖6
插入日期選擇器步驟6：再次打開該工作薄，點擊第一列或者第二列，就可以彈出日歷選擇器，選擇日期后，在單元格內會插入日期，日歷選擇器消失。注意這是在非編輯模式下才可以實現的。
excel2007插入日期選擇器的教程圖7
插入日期選擇器步驟7：EXCEL除了這個日歷控件外還有一個另一個比較簡單的日歷選擇器Microsoft date and time picker control(SP6)。
excel2007插入日期選擇器的教程圖8
插入日期選擇器步驟8：插入該控件后，在非設計模式下即可點擊彈出日期選擇界面。如下：
excel2007插入日期選擇器的教程圖9
看了excel2007插入日期選擇器的教程還看了：