赠送大家一个通用版日历控件比Excel自带的好多了

andysky · 发表于 2012-9-10 07:33

山山好又快发表于 2012-9-9 17:34
请教版主：如果不想在整个表中使用日期控件，只想在某一行、某一列或在某个区域使用，代码怎么改？谢谢！

加一句IF就行了

山山好又快 · 发表于 2012-9-10 08:12

andysky 发表于 2012-9-10 07:33
加一句IF就行了

谢谢版主！
我是想能否在需要的区域，点击时才出现控件，区域之外不显示日期控件。

andysky · 发表于 2012-9-10 10:32

本帖最后由 andysky 于 2012-9-10 11:07 编辑

山山好又快发表于 2012-9-10 08:12
谢谢版主！
我是想能否在需要的区域，点击时才出现控件，区域之外不显示日期控件。

不是说了吗？加一句IF就行了！

符合指定条件时才显示

ugyun · 发表于 2012-9-10 13:03

山山好又快发表于 2012-9-9 17:34
请教版主：如果不想在整个表中使用日期控件，只想在某一行、某一列或在某个区域使用，代码怎么改？谢谢！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strTmp As String
If Target.Column = 3 And Target.Row > 3 And Target.Count = 1 Then '当选中C3:C区域中的单个单元格时
strTmp = Application.ExecuteExcel4Macro("GetDate(""200"",""200"")") '两个200分别表示左边距和上边距
If strTmp <> "0" Then ActiveCell = strTmp
End If
End Sub

复制代码

山山好又快 · 发表于 2012-9-10 14:11

ugyun 发表于 2012-9-10 13:03

请教大师：日期控件如何随着点击的单元格位置显示？谢谢！

zhangse270 · 发表于 2012-9-10 14:31

很漂亮，谢谢分享～{:soso_e179:}

ugyun · 发表于 2012-9-10 21:35

山山好又快发表于 2012-9-10 14:11
请教大师：日期控件如何随着点击的单元格位置显示？谢谢！

我不是大师，只是一个菜鸟
下面有两个例子，可以参考下

xsy我可以很好 · 发表于 2012-9-10 21:44

O(∩_∩)O谢谢分享{:soso_e179:}

sh205 · 发表于 2012-9-11 07:44

多谢了！很实用。

pst168 · 发表于 2012-9-13 14:24

谢谢楼主资源共享

		自动登录	找回密码
密码			免费注册

[VBA程序开发] 赠送大家一个通用版日历控件比Excel自带的好多了