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

admin

Excel 中插入日期控件的实现方法
7 x6 |9 u6 {5 p2 o4 c( j( P0 L6 R1、在某一单元格中插入日历控件
1 l# s+ l6 y" S* W（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
) \) I- n1 [2 a2 t9 b. p0 i（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()
ActiveCell = Calendar1
' ?3 a7 F0 `% q& R* | Calendar1.Visible = False
' S% e, ]+ m9 R8 v9 Z" q- ` [a2].Select
, q" h! F+ O8 p/ h0 QEnd Sub

; v  y* a, Q& t6 tPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
, M6 I; Q$ |. Q  O If Target.Address = "$A$1" Then Calendar1.Visible = True
$ z1 h4 T" M* y0 AEnd Sub
  
9 J; y. N$ b3 w6 n3 K# D% B# Y
9 @; w3 E* m( y1 {, L# p
- }; _9 k( ?. y2 o: J7 G4 t* y
2 [) |7 \3 R# H- W. X2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
) s5 F. k6 i9 L, Q; s8 U同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
8 ]5 V: k3 G$ O0 H1 m0 T* N  I8 f8 c- d8 bMe.Calendar1.Visible = False
End Sub

# _! I: r! Y! bPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
+ {( Q9 @" d' U9 k' D  nIf Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
0 e/ W4 W4 S* j7 WEnd If
( O, l3 K$ ~3 r! \End Sub
7 S' ]' J6 d, b+ z0 A5 i# _
9 T& m# B3 ^0 D; S( G: a; G完成后，运行VBA代码，返回Excel操作窗口，即可实现。