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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
% Y3 E; Z2 d# g/ {7 C& kPrivate Sub Calendar1_Click()
/ g- [# D( Q+ a5 w1 d/ B. K  H- Z5 L! m ActiveCell = Calendar1
3 R% J0 [% k8 y5 ]* r% V Calendar1.Visible = False
[a2].Select
8 E  J; f- q' R9 P, {End Sub
. O2 c! W7 V4 z; c
* }% f; C5 Z8 e: K. ?+ n; L% CPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
% x$ C+ c& Q8 a( S  
! R. ^0 R" J8 Y" Z7 K7 D


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

Private Sub Calendar1_Click()
2 A1 c8 u, @8 O  U& H0 uActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
: r0 X. V" {; }2 j" e  l  [* CEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
# s0 @* L; K" oIf Target.Column = 1 Then
/ I; k6 q/ h! \+ VMe.Calendar1.Visible = True
Else
& d% z; U; t& r- P% u. m; C7 eMe.Calendar1.Visible = False
End If
End Sub
2 y) L2 {% d, K' k/ E
" w( N0 m$ M( n* D5 A9 Z0 N2 t完成后，运行VBA代码，返回Excel操作窗口，即可实现。
, K+ E# H3 z) G9 k