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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
0 P. r, _1 b  e) z0 _（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
+ J) y) i9 W& i+ i; c+ ]* M（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
' D5 C" V( w$ B* z ActiveCell = Calendar1
Calendar1.Visible = False
6 x* K6 s, G' }* ^ [a2].Select
End Sub
) M& G9 o4 N; h* C; t+ n
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
5 [! f/ ~0 C+ `+ K2 N* p  
- B4 v! Y& ]7 V. Y5 v" }


% e' n* i( F' K" N2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
/ |) E0 D; b! m/ a/ D同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
0 e( `0 N6 c  S0 o% t4 d% v6 z
7 n  p& M" E3 b& _  h6 aPrivate Sub Calendar1_Click()
ActiveCell = Calendar1.Value
# s9 _* S4 q3 S! j2 G' CMe.Calendar1.Visible = False
" [, x8 ^8 q& _6 D0 c- U1 _' mEnd Sub
$ b  B+ @: ?) O' z$ g% Y- p
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
2 y4 H% s7 S3 ^Else
3 G( K7 P& F, @$ A" tMe.Calendar1.Visible = False
/ y1 x' F5 Y3 O0 R, `End If
7 n  b# v8 m: Q  c4 |End Sub
/ W, E3 S, J' ^5 J# Y
完成后，运行VBA代码，返回Excel操作窗口，即可实现。