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

admin

Excel 中插入日期控件的实现方法
( n) U5 B1 w# t  U5 A, H1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
: H0 T& a; ^4 E- P, KPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
1 G- j+ V3 L' X6 Z0 |9 z Calendar1.Visible = False
' S- j% N/ u+ B$ s6 @  D [a2].Select
End Sub

- \" A6 Y4 q/ G( p: OPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
* l" J& C, q9 Y' f* z If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
& G& O4 W; [. ^* T, h  q  


3 b' }( P1 Q* J1 f. Q" f1 b
2、某一列全部设置为插入日历控件。
+ B8 x' |; w" [! F例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
. ~' l0 H9 a9 B: O2 |/ O/ q; d同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
" Q# Z" w- X, j
0 h! w4 a& ]7 D( t' ]Private Sub Calendar1_Click()
* N( m4 K# h* n9 c% CActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
7 k( h6 \5 \3 @; CEnd Sub

! k6 a( B6 T2 }6 L* X7 VPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
: i- g2 y2 }  t4 w. h7 _9 O) @: qIf Target.Column = 1 Then
$ x2 o- F* B7 P$ h7 q3 U5 xMe.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
) W& l: w: T& p* c6 MEnd Sub
( h# @6 v; n5 ^5 ]* f- X4 `
, s+ Z' z! V& r3 H3 F  N6 _完成后，运行VBA代码，返回Excel操作窗口，即可实现。