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

admin

Excel 中插入日期控件的实现方法
3 `# Y1 m4 r+ D6 Z" D; z" B1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
! t# M: j" q' k+ ]1 ^6 C% V" N2 |" m5 ]（2）点击工具栏，“插入—对象—日历控件”，
. k3 Z+ F5 m! o（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
/ a6 y$ x7 s, t% o3 E- c0 WPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
( ~& E8 u2 g1 { [a2].Select
0 W) p% R9 j6 j, o7 q  D5 xEnd Sub

( H+ R1 `( |! N8 S/ p; jPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
: H6 n$ {* q1 Z6 r  L! f% m# d If Target.Address = "$A$1" Then Calendar1.Visible = True
4 R+ p  I, A  f9 r1 hEnd Sub
  

- y# ~8 h! n; }) h( ~
: m3 |) e" q. y: X0 J3 y
2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
: o9 J8 L( W5 w4 ^" [/ s同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
" N3 r  C, O0 s2 [
8 d' Y$ @9 ^! N& vPrivate Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
* n% N  y1 c$ c- L( h' r
9 c. s, i$ V) A! b% J+ uPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
) h" G/ ^9 [# K! _Me.Calendar1.Visible = True
  g7 x% P) |4 p: v0 g" _Else
Me.Calendar1.Visible = False
" C. \1 n: @& ^0 w! e* o; sEnd If
End Sub

+ T: y, ^7 n7 L1 u& t  h: |完成后，运行VBA代码，返回Excel操作窗口，即可实现。