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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
  P, \0 d6 \6 S. ?6 M  ?0 k% R& X（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
7 B! Q4 F% W7 I( `' M0 @! o( A3 W（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
' d. `8 [, a+ Z' ~) J ActiveCell = Calendar1
Calendar1.Visible = False
3 A. D9 E( f( d* L [a2].Select
% W, g; ^. \' c, [- `End Sub
# D0 |  l9 N$ f0 J) C: Y6 I
& ^# F9 P. k5 p* s0 }Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  
. J: P1 s6 i! }! b( }$ d0 Y


2、某一列全部设置为插入日历控件。
8 O$ H5 |* ~4 K9 U8 I8 C/ V例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
/ I3 ?- P+ v# z' ?' ^同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

' P! V. d9 J5 ^3 K0 LPrivate Sub Calendar1_Click()
# `2 @5 ^1 x4 |$ YActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
" M% F7 e! T& ?
! L& Z: N% ?  k6 R  c  H' ZPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
( r! ?- d* s9 [, K0 M, A; H% E6 CIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
/ }0 j4 q* o0 V6 H( V3 BMe.Calendar1.Visible = False
End If
End Sub

) v0 U4 X( P/ {( Q; l  B* f* v完成后，运行VBA代码，返回Excel操作窗口，即可实现。