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

admin

Excel 中插入日期控件的实现方法
7 h. z1 d& D9 ^! x; ^2 g7 @  C1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
6 F9 C. a! t3 K: a( tPrivate Sub Calendar1_Click()
. f& f% {  t1 A' h+ H& j, ?2 [ ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
1 |4 k2 F8 C9 d. R2 G) n% SEnd Sub

, s& `0 ~7 ^9 L! b" ^Private Sub Worksheet_SelectionChange(ByVal Target As Range)
/ q) E9 @0 }8 K If Target.Address = "$A$1" Then Calendar1.Visible = True
4 p: P; m- {8 |, @End Sub
  
, n8 k6 e  X7 n: g/ T: L3 L


2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

9 y0 C0 e! E, K* \Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
' [' u0 s  `* r1 x% \9 G$ _Me.Calendar1.Visible = False
End Sub

& o  Z2 B( |$ P9 {* [: H& i3 vPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
+ a! Q% q+ v5 F  \7 c: ^- u+ \Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
! \8 f6 m; J4 p9 E- cEnd If
End Sub

完成后，运行VBA代码，返回Excel操作窗口，即可实现。