加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

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

(2009-08-20 20:49:14)
标签:

excel

office

日历

控件

杂谈

技巧

分类: 五花八门

使用PROJECT能够直接调用日历控件,简单方便。如果没有安装Project,可以在EXCEL中使用下面的方法。

 

在Excel中选择“视图”,然后“工具栏”,然后“控件工具箱”

 

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

按上面的操作,选择 Calendar Control 9.0 (我的版本太低,你的不一定是9.0),然后双击,弹出

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

再双击Calendar然后VBA编辑窗口,编辑一下,

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


之后运行就完成了。

 

为了方便复制,代码如下:

 

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技巧:除需要输入内容的单元格外,锁定其余

0

阅读 收藏 喜欢 打印举报/Report
前一篇:故事六则
后一篇:吃醋
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有