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

admin

Excel 中插入日期控件的实现方法
# K. B" i# x  K! r* s2 o- G1、在某一单元格中插入日历控件
2 p5 S3 S6 ]/ ^1 I  y! Z（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
4 ~0 l: Q+ ]' I/ @5 o7 `- |（2）点击工具栏，“插入—对象—日历控件”，
8 n" F- g( v* {/ t3 I8 \（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
* t  _) d' C4 w- S) u) @6 ]% PPrivate Sub Calendar1_Click()
$ P6 U) h& M. u; C: v1 ?$ A2 l ActiveCell = Calendar1
. Z* s. N, k4 \4 X1 ^. j Calendar1.Visible = False
[a2].Select
8 F$ L  W# d5 Y9 N: xEnd Sub
7 y# E7 h" v1 f3 ?' h
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
) r' e- ]: }. m6 ?7 {4 G  



2、某一列全部设置为插入日历控件。
$ k# E4 `0 W6 R' n4 {3 ], t例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
' o" q3 P' `. w# A" R0 ^! T+ B2 z同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
' x- G2 b) K+ F% aActiveCell = Calendar1.Value
/ O( Y) n( Z* j. Q5 {Me.Calendar1.Visible = False
1 I: Q  M6 b* oEnd Sub
+ l( H/ H7 I$ g0 H& `: ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
6 \. g" m: N9 K$ m. X1 vIf Target.Column = 1 Then
* C2 r$ U6 ?9 e* F" p+ SMe.Calendar1.Visible = True
$ i6 S4 v& Q( K# J" |# ?Else
Me.Calendar1.Visible = False
End If
4 T- M. }3 L1 a9 }1 O1 tEnd Sub
( Y' J1 }5 B) r. t  Q0 P7 f4 I6 b
  L0 R3 t8 @9 x' N  I: z0 _5 G) {完成后，运行VBA代码，返回Excel操作窗口，即可实现。
' [4 a) i: Q: T" n) d