Excel 技巧: 单击单元格(或行)弹出日历控件

标签:
exceloffice日历控件杂谈技巧 |
分类: 五花八门 |
使用PROJECT能够直接调用日历控件,简单方便。如果没有安装Project,可以在EXCEL中使用下面的方法。
在Excel中选择“视图”,然后“工具栏”,然后“控件工具箱”
按上面的操作,选择 Calendar Control 9.0 (我的版本太低,你的不一定是9.0),然后双击,弹出
再双击Calendar然后VBA编辑窗口,编辑一下,
之后运行就完成了。
为了方便复制,代码如下:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
注释:Target.Column = 3 选择第三行
抱歉,我使用的是英文版Excel。
■我的EXCEL技巧系列■