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

admin

Excel 中插入日期控件的实现方法
2 {5 l- R- ^8 r1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
! i! ]* X0 \: F7 ^2 H（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
& \. }- n: {9 N. }+ ?- n ActiveCell = Calendar1
" `% D8 U  p2 k8 c( v3 ~4 ^3 [# K  j Calendar1.Visible = False
[a2].Select
End Sub

& S* F* {' X' y" A' ZPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
- \" A1 k9 S! H  K3 [ If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
7 ^4 ~. g- g$ B2 [  

, n' n( s) \, q* @6 \4 F2 G9 j

2、某一列全部设置为插入日历控件。
- F3 C7 v, J  [0 A* q- t例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
: z  k' i0 g- ?: L) a; HActiveCell = Calendar1.Value
% @8 Q% r) e5 p1 o; rMe.Calendar1.Visible = False
End Sub
% B9 E/ b( G) H* }
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
8 d. p1 Q3 C6 j! T- ~% o5 SIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
3 _  D0 V" n: H& \+ r; ^End If
/ i7 R! K4 ~; z2 `$ _+ h$ k* iEnd Sub
' Q  K, `. v+ E2 |+ Q2 K
% E, i) R! b8 p  B* T- C; V完成后，运行VBA代码，返回Excel操作窗口，即可实现。