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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
+ F; ~, q# u0 ~6 k6 `. x（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
) E8 Y, v( S( v3 @, H3 n ActiveCell = Calendar1
Calendar1.Visible = False
7 b, F6 ?& f# V1 q; z, X [a2].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
& l) Y4 z4 ], P' Q' l5 y; ] If Target.Address = "$A$1" Then Calendar1.Visible = True
$ C  |' g( E3 V+ B! R) rEnd Sub
/ [4 S) C6 ~( C& s4 v0 d" Y! Q8 z( a  
. r7 u9 f+ Q8 D6 @! ~  A7 Y


2、某一列全部设置为插入日历控件。
( T: @" ]6 R0 ^例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
0 @  \2 [  A9 @4 _% D& _$ ?9 @同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

1 t2 _) g' J$ y2 v- l6 j# kPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
6 j; L2 f" d1 w( Q3 }1 UIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
" R5 ~/ J7 |' U7 w7 b" f% HMe.Calendar1.Visible = False
" c5 R+ t; @7 d# GEnd If
End Sub
2 O. P6 [- M% x
) }" F" C2 e$ z" V# ~2 R/ }/ i% a完成后，运行VBA代码，返回Excel操作窗口，即可实现。
& y9 G5 O% P7 D7 s6 i