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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
% O& c4 u# W- I- c" V$ j( E5 W（2）点击工具栏，“插入—对象—日历控件”，
5 K' m* X( H0 a  a# y+ t: y（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
' e" H/ K2 r% r+ D1 y( m9 dPrivate Sub Calendar1_Click()
4 U. H9 S* l! V' I9 Q0 r; e ActiveCell = Calendar1
% u3 m7 t3 ^/ J7 ^5 S% U  ` Calendar1.Visible = False
[a2].Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
' l% g8 ^3 @5 `End Sub
  

% Z5 J( p0 D* N' G  f

  v+ [0 V1 n% X# W3 q/ F# m  ?9 `6 {) P2、某一列全部设置为插入日历控件。
! t+ B- i% h( p  d7 Z- I# H例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
, Y6 r* V; }# z3 A9 l6 `* v同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
3 T1 q4 K3 E6 r" F; z
0 Y3 v5 u- _( n( J* E- ?0 Z  M/ KPrivate Sub Calendar1_Click()
' \7 |3 l: u2 ^, T" m+ \3 NActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
' q$ |9 b3 R; A# ]End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
. w) B# `0 t2 l: P# BIf Target.Column = 1 Then
( R% J+ c$ P+ J' mMe.Calendar1.Visible = True
) c. [  D+ t4 Y4 f1 F- zElse
4 k0 H5 z) p" fMe.Calendar1.Visible = False
End If
End Sub
3 m$ l' |3 Y& ?" L) M
4 y- B! m+ V& ]8 y: u) [完成后，运行VBA代码，返回Excel操作窗口，即可实现。