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

admin

Excel 中插入日期控件的实现方法
/ X4 Y; ^9 U6 d/ k/ Y0 n3 u1、在某一单元格中插入日历控件
0 I( C% o' j6 V+ ^* a8 |（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
6 o' C% k# D7 s9 b$ J# M) L) t（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
$ S4 j3 s- j$ M% P6 X: A* t. j9 m. ]Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
2 |$ Z0 }  Q; o9 o/ r. \End Sub
1 [  c# O6 q: A7 S& @5 V( l! J! T
& h/ f4 X% o- K5 K$ ~& ZPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
' J/ B3 K5 d$ z1 A If Target.Address = "$A$1" Then Calendar1.Visible = True
/ o& ?5 H) [* [% H) p# xEnd Sub
4 |7 Q8 k8 v7 `" G: i  
. C; G' C$ H' {- L* k0 U


0 y2 g# E2 A5 x2、某一列全部设置为插入日历控件。
& M, S1 x2 a) H1 t例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
- x2 M6 S( @/ q8 M# V1 V& H同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

' E" X* }7 w0 p; z9 d* G4 o, APrivate Sub Calendar1_Click()
% s. t- K8 q7 ~1 K; r& M% ZActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
  g2 X4 T: [5 B) n& X; Y" H$ wEnd Sub
  A+ c9 R* [* x1 G$ U" k
. I; A5 M, h. WPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
) }& R! z( o" qMe.Calendar1.Visible = False
End If
6 v2 O7 k* z" y% e" PEnd Sub

+ }* e1 `) w- F: f3 N完成后，运行VBA代码，返回Excel操作窗口，即可实现。