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

admin

Excel 中插入日期控件的实现方法
1 k! w8 N2 E8 V+ d1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
) `& n; n7 b2 }1 a; _（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
! u3 W1 w2 m0 u9 p: K, |& A- K- D/ t ActiveCell = Calendar1
Calendar1.Visible = False
/ {- j' W- Y3 \' A1 |" M) i [a2].Select
End Sub
" {' Q7 ~, h  v. ?9 o1 b" \& b3 \) G
. _" T6 G/ u2 y* U+ Y  EPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
! h- b$ T, f1 V& ]) @6 F, b  


5 e9 E, ^+ y- Z
; t8 o0 \$ O, l  I; y/ b+ O2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
1 p( d, I( w& J, s! w3 D同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

# K: ~, v% d( c$ S1 M7 pPrivate Sub Calendar1_Click()
2 h) B4 t* v* T! |5 ]/ o: fActiveCell = Calendar1.Value
: ^1 {* M7 [6 a, H* `4 P# oMe.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
% ?1 T4 n6 G! k, H) fIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

6 M$ p! I8 V4 a" e6 n; K$ X完成后，运行VBA代码，返回Excel操作窗口，即可实现。