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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
0 ?* b) P6 @8 V" m) |9 MPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
$ _, p# m. D" C [a2].Select
- O: c. ^% n! @7 AEnd Sub
9 {) ]. p, l% N, f
+ U# m2 r. x. o, i+ f/ Q5 [" x% C/ n( f  OPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
& Z( V& q' P# Z" JEnd Sub
( y6 y# r  Q5 e' a  
, I7 {9 K3 E. z/ Y: A


7 A( F0 K0 y* T8 d2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
- n& K- ~- x6 q, n$ k0 V7 h同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
/ g6 `1 ]% [( z; a7 X1 \+ iEnd Sub

. ?5 Y1 H% R% |/ Z; J% N4 n0 MPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
7 j6 y& R2 F4 e# `  H, ^) v1 zIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
6 w4 V& R1 N2 X. zMe.Calendar1.Visible = False
End If
End Sub
' B$ r2 ^! F- v7 G
完成后，运行VBA代码，返回Excel操作窗口，即可实现。
' g7 s* t& ]! f& t/ t% f