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

admin

Excel 中插入日期控件的实现方法
2 F! r  e7 B" }3 p' Y' C2 w1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
1 H4 C& R! }0 Z( {$ a（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
! n0 I( C; ~* q  e* C# T$ U* } ActiveCell = Calendar1
. R7 |- M) j" U- ^4 v0 p  Z Calendar1.Visible = False
[a2].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
( l3 D  I4 v! ^+ {. l+ i/ M  
" i! x: K8 W, c
# P3 A% l$ c) y. K) l( u

2、某一列全部设置为插入日历控件。
% i0 _3 D" |" y7 |1 L例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
7 y* @  Q% W' c! R同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
% `3 K% q, l" V9 p1 QActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
5 B, j" Y. Y, K% F. D/ y  ]) v8 q) t8 sEnd Sub

3 q* Y8 Y) I1 G% X- EPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
1 B0 V# \# P6 V; a; s( wElse
Me.Calendar1.Visible = False
End If
End Sub

3 m) G2 n- n. U) V/ `完成后，运行VBA代码，返回Excel操作窗口，即可实现。