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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
1 w' d( `3 M, T6 NPrivate Sub Calendar1_Click()
) G. M* j. o& G- {  Y' I ActiveCell = Calendar1
Calendar1.Visible = False
" m5 Q4 D7 J; ~% | [a2].Select
; F  h/ o, J5 h5 {End Sub
# r3 K, T! K" q6 y$ R6 o5 J1 k# z
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
: j5 y, Y$ T* ?$ r6 E  p4 W4 \" h- u% z If Target.Address = "$A$1" Then Calendar1.Visible = True
4 r5 }( ^4 W% J6 _, F" KEnd Sub
6 m2 o3 O2 y$ T4 x3 `  
% M: ~" Q) g. C3 R* k/ n% X  v
! n5 x4 W9 S! n* p1 K" ~! I

  x. ~0 ^! ?7 f$ V2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
0 ?; ~5 s2 Z# H  r! K同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
1 m" @; K' j$ rEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
6 o8 ~8 z8 F9 h0 \& V9 xElse
6 d  e+ l9 {1 {4 X, I5 v1 y: l. EMe.Calendar1.Visible = False
  g9 G3 K3 Y+ X8 fEnd If
End Sub
( r8 C' N% t- {4 t8 T7 E
完成后，运行VBA代码，返回Excel操作窗口，即可实现。
  j4 h! e" F% _/ l2 ]! s