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

admin

Excel 中插入日期控件的实现方法
5 o, h7 f) y) P. }$ J1、在某一单元格中插入日历控件
& {, Z# L2 {& F) F1 H5 F4 v6 z（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
0 K. \$ V! ~+ b$ K, U2 N（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
& k% o: s7 V( U+ eEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
6 L6 C- ~# ~: Q( S/ p9 v If Target.Address = "$A$1" Then Calendar1.Visible = True
& q8 Q( y2 v; q, f: m7 REnd Sub
  
; y$ Y2 h( j7 x( {0 i& F
5 a* t  Q- d2 c# B8 |
+ z& B+ s# P8 y7 m
- }4 K4 @3 K+ {5 n. x( B  O  S' M2、某一列全部设置为插入日历控件。
7 [! K# I3 _1 Y! ^5 \( Z例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
4 S: a, j& {, W! i# v  j同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
0 K4 f# a! {3 }5 m: l; O. I
) S. X+ m1 {* j+ ~/ k2 ePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
; @2 F3 H+ m& E. j7 C- C( y; UIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
# ?( i; e0 f% p$ n7 UEnd Sub
) o( k% {9 q* C0 T
7 F: P) t* v# u0 \1 `3 Y6 }' l完成后，运行VBA代码，返回Excel操作窗口，即可实现。