教大家Excel中進(jìn)行怎么插入日期選擇器

近日有關(guān)于Excel中進(jìn)行怎么插入日期選擇器的問題受到了很多網(wǎng)友們的關(guān)注，大多數(shù)網(wǎng)友都想要知道Excel中進(jìn)行怎么插入日期選擇器的具體情況，那么關(guān)于到Excel中進(jìn)行怎么插入日期選擇器的相關(guān)信息，小編也是在網(wǎng)上進(jìn)行了一系列的信息，那么接下來就由小編來給大家分享下小編所收集到與Excel中進(jìn)行怎么插入日期選擇器相關(guān)的信息吧(以下內(nèi)容來自于網(wǎng)絡(luò)非小編所寫，如有侵權(quán)請與站長聯(liá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為你要顯示日歷的列序號

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è)比較簡單的日歷選擇器Microsoft date and time picker control(SP6)。

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