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

admin

Excel 中插入日期控件的实现方法
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
! h% b# A( h7 O（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
  w9 z  ^; C" M- Y3 p1 iPrivate Sub Calendar1_Click()
ActiveCell = Calendar1
1 h. e. ?0 o: Z( O+ g  h Calendar1.Visible = False
! R- @( b9 g7 O; ^, k& ?0 ]) l [a2].Select
End Sub
3 q; {/ g" t* n3 K6 L0 g& |
: W$ ^9 ]2 j# J/ k6 P' y1 vPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
  


$ b7 Y5 p3 M! n4 W- F, y- [) E7 \
2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

5 ~& E( Z1 Z% L) U7 X* T9 k  X$ d) hPrivate Sub Calendar1_Click()
ActiveCell = Calendar1.Value
0 @* {/ k4 g1 F: o5 d4 ?0 nMe.Calendar1.Visible = False
0 Y3 s0 i1 Z& QEnd Sub
/ o) s1 ?6 F- ?: B0 Q5 e/ x
* U  c% Q/ p( U; ~! z$ d2 cPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
0 h1 W, U" O5 @7 k; N" L: |If Target.Column = 1 Then
0 c- g; \7 ^  n2 @* tMe.Calendar1.Visible = True
& E# T3 C) w' t8 U) |: {8 ^& PElse
Me.Calendar1.Visible = False
End If
5 U6 ^, N6 Y8 g. |9 X; e" ^# Y( VEnd Sub
3 d: j2 C( s! B& S
' \& M9 j5 r- C1 V0 I完成后，运行VBA代码，返回Excel操作窗口，即可实现。