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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
8 s4 K; ]0 a! Z. \  _0 d- _（2）点击工具栏，“插入—对象—日历控件”，
5 J$ ?1 {6 n% G2 b. L（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
6 m0 i2 s- Z# IPrivate Sub Calendar1_Click()
  c" ]- G8 ?5 A7 u6 K( W8 N ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
7 ?: J" F0 r8 Z! ~/ x  BEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
$ \1 O' [/ n5 [' _" |7 } If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
: d% ^  y  ~5 ?, }; _5 ]. j  
# M) A/ [" s9 e' m" d
  S" |, E' g9 R0 Y" D
- |* X5 Q' [) p, \; j  v# m1 L
9 q$ u2 v* p/ }2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
/ j! w0 J+ n# S. O4 p8 h5 [
% o3 _& J( T6 H; l. gPrivate Sub Calendar1_Click()
ActiveCell = Calendar1.Value
" a$ v/ [. A5 Q# \" L1 R( IMe.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
/ W0 F: r- `: N6 k0 b/ |. wIf Target.Column = 1 Then
Me.Calendar1.Visible = True
% ~3 e. L+ X: G" R. YElse
. {+ r9 s5 n) T4 u5 S% T/ u* u! TMe.Calendar1.Visible = False
End If
End Sub
4 j! ?7 |/ z3 f% j: Q, ?
完成后，运行VBA代码，返回Excel操作窗口，即可实现。
  c7 T9 G2 D9 l/ e( R