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

admin

Excel 中插入日期控件的实现方法
5 Z1 \& k1 t, l# \& x9 N/ t) J1、在某一单元格中插入日历控件
& n  p8 c% H3 ^$ C$ X! v; l（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
" X3 ?% ]3 i7 e% B! }0 }$ _3 C8 n（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
6 R7 O! g) A5 q5 K. U& KPrivate Sub Calendar1_Click()
! L. x5 N' {8 ~) h; [4 } ActiveCell = Calendar1
6 V* l4 d5 F5 Z( f' Y' U6 `8 L Calendar1.Visible = False
[a2].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- S" |7 c* u# @, E0 T If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
* K6 @$ W! z9 F+ [. h) d  


* @4 d& k5 L) U. O0 X- x
2、某一列全部设置为插入日历控件。
; H5 P9 j+ M+ l, D例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
( f' x8 Q8 O& w  O
Private Sub Calendar1_Click()
* J1 B+ ^9 R4 J# E: TActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
, o' l& k& @  }( GIf Target.Column = 1 Then
+ M2 `" ^( L/ [6 b- ]2 GMe.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
+ B& J+ R/ g3 `- k  wEnd If
End Sub

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