用窗体模仿日历控件

im0615 · 发表于 2015-10-17 22:29

值得好好学习，感觉日历控件太麻烦了，老是出现兼容性的问题。LZ强大~~

goldowl · 发表于 2015-11-8 17:03

Mark .Very good.Thanks a lot.

648025426 · 发表于 2015-11-12 14:04

怎么用呀

cqlty · 发表于 2015-12-1 17:08

感谢分亨，太有用了！

achenakid · 发表于 2015-12-30 17:13

z07041630 发表于 2015-8-16 17:33
请问一下，怎么能让他像系统控件日历那样点击某个单元格出现呢？

我在工作簿中加了这一行代码，是之前在另外一位大神那里看到的。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 5 Or Target.Row < 10 Or Target.Row > 15 Then Exit Sub
cal.Show 0
End Sub

然后在cls那个class Modules中的最后第二行End With后面加了
Unload cal
实现点击之后关闭窗体

rapsilen · 发表于 2016-3-17 14:26

好帖必顶

flashnop · 发表于 2016-3-29 15:03

感谢楼主

lichuanboy44 · 发表于 2016-3-31 16:59

辛苦了，感谢

KenKuo · 发表于 2016-5-17 12:52

感謝分享~~

278059169 · 发表于 2016-6-19 16:08

2013用上没有反应啊

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

[分享] 用窗体模仿日历控件

点评