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

admin

Excel 中插入日期控件的实现方法
4 x% c  }% S; f6 A2 [4 i! [: B$ I1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
3 y( D' j) g; H: T8 K（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
- u! \! u* N* a2 ?- \3 a1 bPrivate Sub Calendar1_Click()
% d' f9 q* S& G3 G) f ActiveCell = Calendar1
2 I/ f) {& `" V4 d/ r$ M Calendar1.Visible = False
[a2].Select
- z2 V+ w. M( r0 q' ^$ e4 L7 F- K; uEnd Sub

8 d8 y; x+ x! X: Q" R& ?Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
5 l, ^- F: v: c# i. {End Sub
  

6 b2 |0 A# @* b$ F& }

$ u$ p0 s' ]1 {% P2、某一列全部设置为插入日历控件。
; E% W6 }# w- i/ P3 m例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

. c4 j6 K: m; L- [Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
9 K) w$ h! `8 L- c; f! t. y1 cMe.Calendar1.Visible = False
End Sub
! K! H6 G' M3 ^" h" ~5 m* D
; |; o6 D" `0 N2 x  `# FPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
$ n7 z% ?: }9 y! M0 Q! `& MIf Target.Column = 1 Then
Me.Calendar1.Visible = True
3 Z* \! e1 Z4 h2 ~. v8 E/ lElse
Me.Calendar1.Visible = False
6 `; ]. e" R' T4 e6 zEnd If
: N# l& m: d7 A* FEnd Sub

" A( z1 I4 X" K& Y% z& C& {, Z完成后，运行VBA代码，返回Excel操作窗口，即可实现。
: B  J+ V3 Z5 b2 G1 R