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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
9 _9 R8 D8 [6 }( |6 u（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
( E: p2 W4 ^3 A: y, U' j（2）点击工具栏，“插入—对象—日历控件”，
1 ~7 k  x3 }8 {6 c3 j( Q9 Z（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
8 s. `7 _* g) n; H ActiveCell = Calendar1
" c) j% `; h8 K5 F2 b; R Calendar1.Visible = False
) k0 T, d" s( c  T [a2].Select
End Sub
9 L  b& U4 q5 F, I( k% O
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
5 {8 @% e0 f) pEnd Sub
  
, _3 u- ]: \2 L- C
; U7 S* q: s* d# j/ G6 I3 `
7 w# L* u2 {( k' p7 \* H" \
* }8 n: h8 M$ `2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

1 l4 ~9 ~0 E  p  V; MPrivate Sub Calendar1_Click()
3 Y( o2 Z8 B- R+ r5 n+ z1 D& DActiveCell = Calendar1.Value
5 o# Q# e, |6 h3 a# o+ [Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
2 ]8 g5 Y' i2 j3 k7 p8 e$ z; M3 vElse
/ x+ `% Q0 d) v* f) w8 Q+ {5 UMe.Calendar1.Visible = False
End If
; o7 \! a8 K& o6 D' ~8 i2 dEnd Sub
( S) J; e, r: o, B' b. `6 T# G
, V- d5 o0 J* J完成后，运行VBA代码，返回Excel操作窗口，即可实现。