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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
( j& a3 [, h% Q; B5 |（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
4 B3 i% m7 j" L: g（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
( I6 }/ u( [1 n4 RPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
9 r/ e) m+ g4 Y5 {9 s8 L  @ Calendar1.Visible = False
( {# k8 v" _2 i7 \! X+ ]+ R2 P) A [a2].Select
2 s3 @) I. [$ h3 k* EEnd Sub

: ~7 B: S9 m% k$ @8 VPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
4 f! G/ W" E) Y If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
% C% v+ p, z9 i& S  
+ B# V$ L; ^, ]. ~
6 S# t7 W, b% X' W: m0 W2 C
0 I3 _5 g, r* w; N! z( \/ C( T+ Y
2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
) Q' b: Y/ Y) I% Z同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
, d3 E4 W6 m9 H. q0 T
Private Sub Calendar1_Click()
" E2 v( Q7 H4 P# E; vActiveCell = Calendar1.Value
0 X. I& r) a0 q! u/ f7 oMe.Calendar1.Visible = False
End Sub

/ K$ Z) n& M: `8 J* q/ mPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
% j3 i" D  V# K' JMe.Calendar1.Visible = False
End If
End Sub

4 d& {& Y$ S% K$ c5 _( G) q/ g2 `4 }完成后，运行VBA代码，返回Excel操作窗口，即可实现。