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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
. T7 j/ h' B) l（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
3 r& x. o9 e6 N2 b7 _+ K（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
/ o- E- M$ W) ? [a2].Select
End Sub
# g7 m0 C# c9 J/ T3 y1 w5 G
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
! I& a  N" I. v. w  M, P, EEnd Sub
5 b! K- V6 H, W  
* g, {9 n1 }; |! F3 v2 Y" I. ~


2、某一列全部设置为插入日历控件。
( Z1 K# e0 d" a; m, P/ X9 k! q例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
7 K3 s5 z& z/ S同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
6 G# {1 }# Q  \' f/ \0 g
" y8 P" \; S8 v' p- sPrivate Sub Calendar1_Click()
. M$ [: _: F6 Q' PActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
! V* x. O. M, V6 K' g7 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
! p6 n2 {$ Z2 o. YMe.Calendar1.Visible = True
1 t& W' X/ _6 N2 yElse
+ {9 x7 Z' A4 g0 uMe.Calendar1.Visible = False
2 q2 y  I' P# Z0 X  C1 S' y' oEnd If
End Sub
* U* \" ?) u/ u+ q7 d/ \& }# f
+ f* |& d4 ^7 z  ~7 S1 p$ K7 l完成后，运行VBA代码，返回Excel操作窗口，即可实现。
* M; j1 k) ~( H8 d! k