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

admin

Excel 中插入日期控件的实现方法
2 n9 d! g9 [+ |+ W+ g* W* F7 k1、在某一单元格中插入日历控件
6 \. L% v2 |# U( R（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
; ~. _) Q: T/ L1 M  Z2 E% n/ L（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
" |' D  ^  s% l8 F ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub
# g& H. h! e2 N3 X3 _7 I
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
, x5 _$ h. P9 G" ^' i If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
) ]. H' J. r; e: N9 \  


% O- s# p& B( R7 [
1 K7 ?- ^5 Y7 M9 m& t2、某一列全部设置为插入日历控件。
7 U: J7 [) K& c$ H: ]0 |例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

1 y+ ~5 q1 g& ]3 }! b" z; L1 N& nPrivate Sub Calendar1_Click()
7 D% u8 J! \4 `- xActiveCell = Calendar1.Value
+ h1 c: N0 Y5 J! B9 ^" QMe.Calendar1.Visible = False
$ V3 Q' c3 t: j; eEnd Sub
, Z$ L8 |& S6 e2 ]
* U; a, V8 N' V! QPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
4 g4 ^2 o5 h/ S% \, l1 |9 B$ yMe.Calendar1.Visible = True
Else
/ Y# k. v+ U2 h) nMe.Calendar1.Visible = False
9 l4 ^, M" l  z4 oEnd If
- G! D, T2 w/ ?, g5 P& j  uEnd Sub

完成后，运行VBA代码，返回Excel操作窗口，即可实现。