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

admin

Excel 中插入日期控件的实现方法
3 G( y$ z1 P3 F1、在某一单元格中插入日历控件
+ f$ z' V0 {8 `! d; k- J/ V（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
2 ^8 [: H: Z  g: S2 u（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
- L' ?. F$ {3 BPrivate Sub Calendar1_Click()
  I7 u  T, G! I& ^# v/ S1 @. ~ ActiveCell = Calendar1
- {# F" s+ I/ z# i; u; N( ]9 I Calendar1.Visible = False
[a2].Select
3 U$ O& m& I/ j& WEnd Sub

5 a+ G, q  |1 D! f# pPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
6 N. I% S  f. y' Q% j) }/ | If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  
7 d% b7 K3 V. \$ x: e+ w  v
! P% ?# C  n* c/ {

2 R6 m* e! r. i2、某一列全部设置为插入日历控件。
6 b5 X! n; |4 x2 I& b0 ?例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
2 Q) `7 \: L% I# f同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
/ h# v4 Y6 v0 L3 b/ N
, v: x# b8 g/ Z: t+ }% {Private Sub Calendar1_Click()
9 b; Q- Z( N; P! K0 yActiveCell = Calendar1.Value
; d: @1 `9 `3 _) h: x0 w5 y. a. FMe.Calendar1.Visible = False
" N- L0 ?2 @2 Q! yEnd Sub
: n) ?" E' C8 y. Q
! s$ S8 e# a1 F8 XPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
. l( A$ c, H8 Z* RIf Target.Column = 1 Then
  H; }  S' G. Q: ]Me.Calendar1.Visible = True
Else
& F! o% X1 b" e+ Z) o: G, s4 E6 pMe.Calendar1.Visible = False
! p( U/ m0 q( H( Q5 r& {1 [End If
$ D7 W  V0 o3 T* p6 c  d# vEnd Sub

9 e2 G- O# `* g- Z- s* _8 X2 T完成后，运行VBA代码，返回Excel操作窗口，即可实现。
; ^1 Z+ M. f. B2 O/ _6 V/ A3 K3 j