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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
! ~$ w- W; z. \' w) }! G+ \（2）点击工具栏，“插入—对象—日历控件”，
! S  d. O; C" a2 P# L7 z6 t  [（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
$ R0 C- c8 m9 ~9 _ ActiveCell = Calendar1
Calendar1.Visible = False
7 w4 _2 p+ C. p& k [a2].Select
* O' M* L) c& F- `End Sub
+ Z7 T6 T* \6 ^$ p( w+ ?6 P: Z
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
! f& {9 m7 d! s If Target.Address = "$A$1" Then Calendar1.Visible = True
# z( s5 @6 R; Y8 |/ k8 G- rEnd Sub
3 A5 L3 Z: O% a# e" b  

( c, O% P% ~% y+ s# H- x0 [
3 p+ `& m; D' e" g
0 L; \, q- I$ w8 l/ P4 b2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
$ M. X7 C/ m" b( s, d
Private Sub Calendar1_Click()
  ~! {! C+ ^$ J3 V$ O! v' dActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
' h4 }# m& h) @End Sub

; z1 i! `+ z( j3 M7 n" Q5 dPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
. m! C( u7 ~& u0 q% z7 ^If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
$ V( M7 q, [# M( LEnd If
5 n+ v+ n0 I6 S, i  l6 MEnd Sub
- w: C% n' M+ x2 w
完成后，运行VBA代码，返回Excel操作窗口，即可实现。
% I4 P( v: H7 Y' }