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

admin

Excel 中插入日期控件的实现方法
5 l8 ^) D# B$ Z; s. b4 d3 o& U1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
$ X7 F/ A/ j+ n$ z) S（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
  _5 Z; \% w+ t6 V' C* v ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
" N6 ~  I/ ~' P9 v5 V5 `- pEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
! U3 ?) ~- ~8 s6 b3 Y If Target.Address = "$A$1" Then Calendar1.Visible = True
- J1 Y% q( Q$ C: E% ?* pEnd Sub
  
+ b/ j) \! A( y


2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
+ c, C8 l7 n, j# Q& A同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
, B0 }5 Y5 X0 v; Q$ X& jMe.Calendar1.Visible = False
End Sub

) e  U' i7 O5 R5 G( bPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
& e, c, }4 a" O5 _If Target.Column = 1 Then
Me.Calendar1.Visible = True
. _0 j/ j4 E7 X7 X/ d, cElse
Me.Calendar1.Visible = False
End If
  ]( N! C- s6 H3 @7 n: OEnd Sub

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