Excel中進行插入日期選擇器的操作技巧
Excel中經(jīng)常需要使用到日期選擇器為用戶提供選日期的便捷，插入日期選擇器具體該如何操作呢?今天，學(xué)習(xí)啦小編就教大家在Excel中進行插入日期選擇器的操作技巧。
Excel中進行插入日期選擇器的操作步驟
在某一單元格中插入日歷控件，
選中要插入日歷控件的單元格，設(shè)置單元格格式為日期型;
點擊工具欄，“插入—對象—日歷控件”，
用快捷方式Alt+F11，雙擊插入控件的工作表名稱，粘貼下面的代碼，用來實現(xiàn)單擊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">
Excel中進行插入日期選擇器的操作技巧
End Sub
Excel中進行插入日期選擇器的操作步驟圖1
在開發(fā)工具欄選擇插入-其他控件，打開其他控件選擇框。
Excel中進行插入日期選擇器的操作步驟2
在選擇框中選擇calendar control8.0，確定。
Excel中進行插入日期選擇器的操作步驟3
在適當(dāng)?shù)奈恢美L制日歷，并將高度和寬度適當(dāng)調(diào)整。這時的日歷控件還比較原始，不會點擊日期后自動隱藏日歷并在單元格內(nèi)填入日期，這時就需要添加自己的代碼。
Excel中進行插入日期選擇器的操作步驟4
在設(shè)計模式下雙擊日歷。
點擊設(shè)計模式，當(dāng)圖表顏色變深后就是設(shè)計模式，打開代碼編輯器。
在光標(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為你要顯示日歷的列序號
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中進行插入日期選擇器的操作步驟5
關(guān)閉代碼編輯器，將EXCEL保存為啟用宏的工作薄。
Excel中進行插入日期選擇器的操作步驟6
再次打開該工作薄，點擊第一列或者第二列，就可以彈出日歷選擇器，選擇日期后，在單元格內(nèi)會插入日期，日歷選擇器消失。注意這是在非編輯模式下才可以實現(xiàn)的。
Excel中進行插入日期選擇器的操作步驟7
EXCEL除了這個日歷控件外還有一個另一個比較簡單的日歷選擇器Microsoft date and time picker control(SP6)。
Excel中進行插入日期選擇器的操作步驟8
插入該控件后，在非設(shè)計模式下即可點擊彈出日期選擇界面。如下：
Excel中進行插入日期選擇器的操作步驟8
EXCEL中如何控制每列數(shù)據(jù)的長度并避免重復(fù)錄入
1、用數(shù)據(jù)有效性定義數(shù)據(jù)長度。
用鼠標(biāo)選定你要輸入的數(shù)據(jù)范圍，點"數(shù)據(jù)"->"有效性"->"設(shè)置"，"有效性條件"設(shè)成"允許""文本長度""等于""5"(具體條件可根據(jù)你的需要改變)。
還可以定義一些提示信息、出錯警告信息和是否打開中文輸入法等，定義好后點"確定"。
2、用條件格式避免重復(fù)。
選定A列，點"格式"->"條件格式"，將條件設(shè)成“公式=COUNTIF($A:$A,$A1)>1”，點"格式"->"字體"->"顏色"，選定紅色后點兩次"確定"。
這樣設(shè)定好后你輸入數(shù)據(jù)如果長度不對會有提示，如果數(shù)據(jù)重復(fù)字體將會變成紅色。
看過Excel中進行插入日期選擇器的操作技巧還看了：