Excel 中插入日期控件的实现方法

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
9 H! W0 K9 h; t4 \& q3 y% ~- o（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
6 A- K  s7 x1 y, |! dPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
4 H0 h5 k2 l; _% v5 E1 X' j [a2].Select
End Sub
) c1 `: Z7 H+ A4 K3 ?1 d
7 @& D$ D. b- X5 g- u! Y+ yPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
* n8 b2 `9 a2 S, w6 Z6 n+ h If Target.Address = "$A$1" Then Calendar1.Visible = True
" x- U3 T' @( q- X6 LEnd Sub
1 U+ ^6 @1 [2 b1 l3 J* k2 [  
4 L2 K7 m# u7 R, l! Q* }

" L# S6 K" W6 e& ^+ b, H8 F
2、某一列全部设置为插入日历控件。
4 u) l8 @: F! X% @% Z) `3 N# U% j例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
- ]: ?" I' k- `, \0 Z/ N4 Q/ j
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
# ]$ S, J3 N# j9 `; t" `Me.Calendar1.Visible = False
6 o" M$ X, r+ H& M1 ?0 oEnd Sub
8 g$ L* h' Y. A9 ?& c6 D. w( B
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
$ |3 c: E) E" [% M+ q: F; `Me.Calendar1.Visible = False
End If
1 Q' h) Z& [0 n$ U/ ]3 Q( R, ?End Sub
6 C+ u/ a& ~/ T' p- ]' L
" f' n& q9 h5 T9 {. F完成后，运行VBA代码，返回Excel操作窗口，即可实现。