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

admin

Excel 中插入日期控件的实现方法
% @5 Q, W3 ~' r! v0 h  R1、在某一单元格中插入日历控件
/ d1 s7 M- f$ h; o. X& Z5 E4 _（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
/ D! |$ R7 r2 Z4 U（2）点击工具栏，“插入—对象—日历控件”，
( P1 K& G$ `$ m0 C5 F+ m（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
' y/ C: S) G* n. o+ GPrivate Sub Calendar1_Click()
2 c6 h2 F" t) O( Y! I$ h- l0 R1 @; O& | ActiveCell = Calendar1
Calendar1.Visible = False
0 X0 t- Q/ n8 w* `/ k" \ [a2].Select
End Sub
7 a$ M& b/ X5 U) L( s; n" T
! Y* S1 A! q/ G+ j3 ePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
! p3 z7 y. K. v/ E9 CEnd Sub
  

; e. ~6 Y$ M! D0 P/ M+ j

5 u' A9 v3 m* X9 \/ a& O7 O9 a2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
: H; N( `" R7 ~3 T5 g6 [同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

' K5 E, R" v0 p3 w2 q4 u) i5 ]) ]Private Sub Calendar1_Click()
" x3 d  B5 i0 S6 FActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
4 p; J* O& v1 q. w$ XIf Target.Column = 1 Then
5 O6 w, h6 l" qMe.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
5 t: x7 I+ x5 CEnd Sub

, U8 ^: K: o, d5 ]. {0 G4 ]完成后，运行VBA代码，返回Excel操作窗口，即可实现。