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

admin

Excel 中插入日期控件的实现方法
* l% z# ]; I( s$ O9 R' w8 [( t* x1、在某一单元格中插入日历控件
. y; B  }) Z; C% e（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
- a7 |: W2 T+ W/ M0 w0 h ActiveCell = Calendar1
" R- h2 u6 @. e- K$ l4 j: b* p6 A Calendar1.Visible = False
& I; q$ ^/ v$ w* N [a2].Select
' ]. k/ F: K2 K( D1 e( Z( pEnd Sub
* X5 }  C; h$ ^
1 {9 M9 o6 z( [2 h0 KPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
: e3 w$ \* M( P2 _# y% m2 c If Target.Address = "$A$1" Then Calendar1.Visible = True
) n$ S' A& _4 B- H  B: QEnd Sub
  
1 H) e2 \5 C  S
; C; \7 q; _3 j$ {, [

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

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
4 K& ~/ }6 }4 cEnd Sub
4 r8 J; X! k% H9 C, ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2 t, O* b0 H, W( gIf Target.Column = 1 Then
7 p/ B) s" ^& @8 O/ }, q) YMe.Calendar1.Visible = True
" }; b1 c& g9 R/ v* e6 ^Else
) H# b' ^  e" V8 b& J1 r+ KMe.Calendar1.Visible = False
End If
End Sub
5 z6 j( c% w7 F) I. L; G8 W/ h
  y$ t! Z! @- i8 t& {完成后，运行VBA代码，返回Excel操作窗口，即可实现。