2016-2022 All Rights Reserved.平安財經網(wǎng).復制必究 聯(lián)系QQ280 715 8082 備案號:閩ICP備19027007號-6
本站除標明“本站原創(chuàng)”外所有信息均轉載自互聯(lián)網(wǎng) 版權歸原作者所有。
近日有關于Excel中進行怎么插入日期選擇器的問題受到了很多網(wǎng)友們的關注,大多數(shù)網(wǎng)友都想要知道Excel中進行怎么插入日期選擇器的具體情況,那么關于到Excel中進行怎么插入日期選擇器的相關信息,小編也是在網(wǎng)上進行了一系列的信息,那么接下來就由小編來給大家分享下小編所收集到與Excel中進行怎么插入日期選擇器相關的信息吧(以下內容來自于網(wǎng)絡非小編所寫,如有侵權請與站長聯(lián)系刪除)
Excel中進行怎么插入日期選擇器
在開發(fā)工具欄選擇插入-其他控件,打開其他控件選擇框。
在選擇框中選擇calendar control8.0,確定。
在適當?shù)奈恢美L制日歷,并將高度和寬度適當調整。這時的日歷控件還比較原始,不會點擊日期后自動隱藏日歷并在單元格內填入日期,這時就需要添加自己的代碼。
在設計模式下雙擊日歷。
點擊設計模式,當圖表顏色變深后就是設計模式,打開代碼編輯器。
在光標處輸入下方的代碼:
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保存為啟用宏的工作薄。
再次打開該工作薄,點擊第一列或者第二列,就可以彈出日歷選擇器,選擇日期后,在單元格內會插入日期,日歷選擇器消失。注意這是在非編輯模式下才可以實現(xiàn)的。
EXCEL除了這個日歷控件外還有一個另一個比較簡單的日歷選擇器Microsoft date and time picker control(SP6)。
插入該控件后,在非設計模式下即可點擊彈出日期選擇界面。如下:
2016-2022 All Rights Reserved.平安財經網(wǎng).復制必究 聯(lián)系QQ280 715 8082 備案號:閩ICP備19027007號-6
本站除標明“本站原創(chuàng)”外所有信息均轉載自互聯(lián)網(wǎng) 版權歸原作者所有。