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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
0 o7 [) `. f  z- H0 p' |（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
7 }, J2 l# r2 Q+ b! o& LPrivate Sub Calendar1_Click()
: y& t, W" ?" s# m8 _! d ActiveCell = Calendar1
Calendar1.Visible = False
5 {, o: c9 B1 x. e [a2].Select
2 [) C6 a4 h  \9 `1 i5 r& c) r& jEnd Sub

8 B: n, d) A. ~1 j3 ]  ?% {/ qPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
2 }" u% z% G9 W& k- a If Target.Address = "$A$1" Then Calendar1.Visible = True
$ r" d' j( ?8 B0 e5 I/ kEnd Sub
  

) k1 o# V6 P; n( w2 t! p

2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
! k# B$ z/ t1 ^7 ^% F( T' T! y
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
  X6 f; t3 a' K- T9 gMe.Calendar1.Visible = False
3 e: O( r6 w9 d$ c- X0 lEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
- x$ v$ f% e0 k8 l5 v$ fMe.Calendar1.Visible = True
Else
4 t: `% l! W* ]7 B* SMe.Calendar1.Visible = False
End If
& J5 B+ p4 H+ K# ~% ^End Sub
, x- W% X" `1 m9 q: |/ z
完成后，运行VBA代码，返回Excel操作窗口，即可实现。