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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
2 R3 m. i+ i$ r9 z7 V（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
9 `  x! G( Z, y8 L# f' d+ V% D$ F7 v! @（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
! {+ `6 T+ U5 H8 ?3 B Calendar1.Visible = False
[a2].Select
End Sub
# }3 r# [5 J" v/ t; j0 k7 B
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
3 J2 i9 u# K  X: C If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  


" a' _  \, q  D3 w# N8 G
0 i/ ?/ _+ Y! r) K( ^2 e" S* v2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
- m; t9 M: S4 F) `* N5 ^  \0 S- j同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
* R: R. k3 n& Z& N  k, ^ActiveCell = Calendar1.Value
2 ]* O5 B6 Z. f! K) R$ DMe.Calendar1.Visible = False
End Sub
' F4 C( e& o# J1 ?/ }7 u1 {  y6 h
. A$ l. ~  b8 N; @9 u4 V, HPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
. D/ \$ U- q* R: X6 b( yIf Target.Column = 1 Then
8 L) `) S& X: m7 q4 u0 c6 rMe.Calendar1.Visible = True
Else
2 f' A; O! q  n0 |6 I$ qMe.Calendar1.Visible = False
End If
% d9 i) K3 P0 l  ~2 t$ wEnd Sub

* I. N% j& P0 M$ L/ s5 [5 T# [完成后，运行VBA代码，返回Excel操作窗口，即可实现。