Excel 技巧：单击单元格（或行）弹出日历控件

2009-08-20 20:49阅读：

使用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技巧系列■
Excel技巧：多个条件求和函数DUMN
Excel技巧：判断两个单元格是否相等
Excel技巧：如何批量删除同列单元格中最后一个字符
Excel技巧：有增减的柱状图
Excel技巧：格式统一相关函数
Excel技巧：满足两个条件,单元格求和
Excel技巧：条件函数IF， COUNTIF and SUMIF
Excel技巧：除需要输入内容的单元格外，锁定其余

举报/Report

新浪博客