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

admin

Excel 中插入日期控件的实现方法
' f! _$ T; Z% m) A( D1、在某一单元格中插入日历控件
7 P$ [* W% s* H3 _& {# U2 W（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
+ p0 M* R: k! @# c9 p" ~) p% Y ActiveCell = Calendar1
Calendar1.Visible = False
5 `' ^: s, a) S4 x$ S" |! z [a2].Select
0 m9 F' N2 b5 K, k; S+ p$ mEnd Sub
9 F- L* r/ V$ [, U) V) C& m
; U6 O8 T4 F  z! RPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
; J! q5 h9 |! Y: j+ d6 J2 Y If Target.Address = "$A$1" Then Calendar1.Visible = True
. {0 O* t2 A7 CEnd Sub
7 `9 @* z6 y& X9 u  


" M) e9 n  t! O, @) Z7 |4 v
7 P) Z2 E& r1 @2 e2、某一列全部设置为插入日历控件。
9 L: x' d+ }& |. a% G+ S例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
4 r3 @6 y1 G$ {8 b
1 W& C$ x* ]3 ]Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
0 J# g& r; T; t6 {) l3 Q; [
7 ^& Y' g. S; Q6 l, V+ {Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
8 P9 P" x. w4 @Me.Calendar1.Visible = False
End If
3 Q3 {# _' ?, C8 H# S6 F7 L) sEnd Sub

完成后，运行VBA代码，返回Excel操作窗口，即可实现。
2 I% Q# r  O; T7 L/ [! u$ \0 z0 A) x