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

admin

Excel 中插入日期控件的实现方法
6 {" I& D. [' U* p8 U1 N2 a1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
4 {4 C# J$ V1 k( Q) }& T（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
+ W- U$ Y, \) C+ b0 yPrivate Sub Calendar1_Click()
# R7 {1 ?! m4 s7 `% h7 c. s ActiveCell = Calendar1
% z, ~+ \8 Q/ Z/ v. u8 W Calendar1.Visible = False
. o8 h, L8 R+ l' h' x" c [a2].Select
# L9 b  @* Z* x* W: \* aEnd Sub
8 Z5 a7 V* `2 h2 ]7 G, R3 d
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  E. @' h- s" U+ ~' v2 H If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  



2、某一列全部设置为插入日历控件。
% z% t2 j) \5 j1 f- Y例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
) h- l3 D; V& _4 E+ g同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
8 K" @  ]2 a9 a2 u1 E6 c) Q; w" O
Private Sub Calendar1_Click()
8 M- e) `( [# v, [9 ^ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
0 ?# f, M3 B# G# _End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
6 t# T7 m8 b9 b2 p6 ^If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
4 H) j3 G5 b5 ]$ Z0 O& L4 KMe.Calendar1.Visible = False
End If
# r* _6 _6 Y# s" ~0 bEnd Sub

3 a; ^6 j( P- s完成后，运行VBA代码，返回Excel操作窗口，即可实现。
5 e( X# _% V  o2 |( v. B