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

admin

Excel 中插入日期控件的实现方法
, c" m; R1 N. s1、在某一单元格中插入日历控件
4 c! I' x0 f; q' q" n0 O（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
( s* B# c1 n6 H* A ActiveCell = Calendar1
. t3 t9 C7 ]$ g, ?, R6 H; L6 y9 Z Calendar1.Visible = False
[a2].Select
+ d, p  t0 _8 I+ iEnd Sub
% r* H8 c: O0 ~% L+ M' V' Q2 \
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
9 t4 Y' }$ B1 l2 h6 IEnd Sub
# Z- l7 h7 d4 x+ @: s: i  
* k, o5 {6 \# x1 r
2 J$ ]( U& n9 v  F% {2 {

* `. G3 ^$ o. {2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
# M7 q6 y$ N/ a1 Z- G同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
# N5 j  `0 [% h5 \8 B9 j; h% e' I
, e$ f/ H! [- rPrivate Sub Calendar1_Click()
ActiveCell = Calendar1.Value
+ j- [# g; ?" M, i% U+ [Me.Calendar1.Visible = False
End Sub
$ E" T: q' O, c' D
5 E7 c7 Z$ j) I5 v' o" q  ZPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
1 C: `1 A  O! J4 E+ @: H7 dMe.Calendar1.Visible = True
" S, X% t0 ^# X0 R- QElse
4 P/ y- L* h- C, XMe.Calendar1.Visible = False
End If
% q! @( O) Y1 F7 @7 l  sEnd Sub

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