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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
% {* q& Z0 \# r9 b% F（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
8 w. r& d' R5 S+ n9 H# ?Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub

" V- d. D6 S" }  i- I6 RPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
/ Y% Z! }2 M1 z8 N8 m9 c% u If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
7 |- e4 q1 l* H  
# ]6 U* [* Z- d7 f/ c( E
% g- v0 I* f: F6 _

2、某一列全部设置为插入日历控件。
5 A: I' G$ e: X. v% i7 ~2 [* J例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
4 o3 {8 G0 l2 u! ~/ D同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
$ X6 {. B! H! r+ {
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
- P, l/ x4 W8 _' @. `* R1 M& b4 D
  S$ f5 E* Q$ @% V' fPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
& s9 R# b+ X9 E( i6 f! hIf Target.Column = 1 Then
Me.Calendar1.Visible = True
2 Y' d. a) Z, @/ V+ d+ L' L; P+ XElse
9 d/ b5 g/ g! R* c- K% e( l; ^  jMe.Calendar1.Visible = False
; k& j1 o( M$ O) _+ TEnd If
  f. \: i0 }" N# o" H7 J5 e. Z5 NEnd Sub
- P5 C. R' Y3 \. V( L( H/ j2 D! \
完成后，运行VBA代码，返回Excel操作窗口，即可实现。