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

admin

Excel 中插入日期控件的实现方法
. R2 E3 S0 T; u9 z, Q- q1、在某一单元格中插入日历控件
7 B* F/ K! r4 l1 {4 g8 [（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
$ Y! \7 X9 O9 h% w$ \; Y If Target.Address = "$A$1" Then Calendar1.Visible = True
3 y# Y2 ]& O8 t  d( L. q5 DEnd Sub
5 }; Y0 @6 n0 j* |) v; O  

) A! E9 w0 C6 N8 J

2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
8 d$ \/ S3 ?9 _5 z! E3 c
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
8 H5 D2 J1 c4 u! Q& GMe.Calendar1.Visible = False
  Y0 I& ^3 h, E8 P- Y, g2 dEnd Sub
5 I  R; r, c# g! i" T/ o8 [
! S" ?, l3 {% Y& r5 oPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
& D. |4 H; E" A, P; DElse
0 g* n' N1 U7 W% @) f2 LMe.Calendar1.Visible = False
End If
End Sub

) g: u8 i9 T  U完成后，运行VBA代码，返回Excel操作窗口，即可实现。