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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
3 s  P, a( p/ ^  d9 ^0 w; [（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
4 a* }7 ?# ~' K; `( u（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
$ Y2 e: l$ U. _ [a2].Select
  t/ z% m  f- @7 r! p5 \) TEnd Sub
: c: C1 C  ?9 v; ]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  
4 `+ ?6 V) d! g1 [6 z, L1 r


3 @! a  ]/ B: ?: o$ E+ C2 G2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
+ ?* D# h2 u4 C7 T! m4 J# N同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
# b1 v$ q$ O& t4 ?! B4 Y
9 O3 H9 Z+ j1 a8 ~' TPrivate Sub Calendar1_Click()
% ?4 c# T" x9 \  Q6 y: kActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
) C1 ~+ w. T) F) K4 ^, l& TEnd Sub
% l2 [- V+ q6 w& B- E: M0 a% n
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
: I3 A& r# q* U  _+ r: {4 W6 {: H7 UIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
1 W  r; \. w3 b6 rMe.Calendar1.Visible = False
; i- A& H' M+ qEnd If
2 T& I7 G% O2 t4 }+ {End Sub

完成后，运行VBA代码，返回Excel操作窗口，即可实现。
5 y$ k; k" H8 H5 L; r, o- y