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

admin

Excel 中插入日期控件的实现方法
; [8 S* T" C3 h% s1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
) I5 _4 J$ V) F  L（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
# a# g% B. u  F ActiveCell = Calendar1
- l: B" N$ H1 w Calendar1.Visible = False
. G& V9 \8 T; n' U. K [a2].Select
, y" u% C, i1 n! U2 U3 _9 vEnd Sub
5 @+ l  I5 v6 N& X/ t/ X
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
' z0 o7 B% G0 A6 a5 o/ sEnd Sub
  
5 }, ]( d4 n6 a0 G/ @


; O; V2 W! e. X7 n% z# B2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

4 J! [1 a( b  b7 C+ ]; LPrivate Sub Calendar1_Click()
/ b  D0 S1 _) |) T4 W. QActiveCell = Calendar1.Value
0 F% d( u/ M4 g% dMe.Calendar1.Visible = False
, Q0 r2 J, l+ ~0 b2 {" yEnd Sub
& j% k1 u4 Z/ r. S9 S  ?% i/ c
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
& F8 t$ {, N  D9 K' t5 lIf Target.Column = 1 Then
Me.Calendar1.Visible = True
* W  l* w. |& T! Q1 NElse
* o8 E% H& ~/ |2 |" WMe.Calendar1.Visible = False
End If
- N* g1 s: P! k' E+ C+ g: t! rEnd Sub

0 S6 G1 A' D2 A5 h3 z% e完成后，运行VBA代码，返回Excel操作窗口，即可实现。