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

admin

Excel 中插入日期控件的实现方法
( U, Q% U7 h% M1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
2 C- D. r3 j0 A1 `/ {（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
: Q1 f1 R  C3 t" T6 J$ ePrivate Sub Calendar1_Click()
1 @0 ^0 m/ R6 P. b/ G ActiveCell = Calendar1
Calendar1.Visible = False
' f! A' Q. t" Q+ Q [a2].Select
6 @' q* u% n& E6 ZEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
* G7 ~2 P( t- y$ K$ E# G If Target.Address = "$A$1" Then Calendar1.Visible = True
( I6 f# Z* T  e% L, W' ~  M1 ]2 h4 \End Sub
. l8 Q9 ^; M5 d2 p8 [% F  



+ [% v4 x7 D9 k2 V; \! h; Q2、某一列全部设置为插入日历控件。
( i$ u7 X( s0 _+ T, L. f例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
7 c/ E$ _& H/ FActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
- K: D7 S' a# Z4 L" aEnd Sub
2 ~% g, i( f. F/ z6 q+ ]5 u
. F0 b0 |1 y* W6 H, m  ^/ D3 k3 iPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
: S; S7 E' @2 H- J4 tIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
; F8 I( x. [+ A- h5 ]& i* x: D* ~4 u4 OEnd If
End Sub

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