用窗体模仿日历控件

爱疯 · 发表于 2019-2-26 15:18

用窗体模仿日历控件_20190226.rar (26.98 KB, 下载次数: 88)

爱疯 · 发表于 2019-2-26 15:19

chinaextra 发表于 2019-2-25 23:01
能把最新一稿加上右键现实功能么？

谢谢 chinaextra 的建议！
是89楼这样的么？

chinaextra · 发表于 2019-3-2 11:25

爱疯发表于 2019-2-26 15:18
加在右键菜单了（和命令栏上的一样，是临时的）

是这样的，大神，问你2个问题。

首先感谢这个帖子还是活着的，太感谢作者了，一直跟着。

问题1：你能让这个控件在输入时间的时候，不要改变原本的列宽么，原来是多少就是多少，显示成####也不要紧？因为一般我们统计表都为了打印，选择一下日期就打印，我发现即使我把列宽设置好，这个控件只要输入日期都会改变列宽。

问题2：能设置一下，我打开指定工作簿，默认弹出这个控件么？比如我输入
Sub auto_open()
test
End Sub
的话，所有工作簿全部都默认打开了，我只想指定某个工作簿默认打开，这个怎么写？

爱疯 · 发表于 2019-3-2 12:23

chinaextra 发表于 2019-3-2 11:25
是这样的，大神，问你2个问题。

用窗体模仿日历控件_20190302_1.rar (20.89 KB, 下载次数: 199)

17362279485 · 发表于 2019-3-30 10:45

是个好东西，正好使用。感谢作者的不懈努力！感谢作者的无私分享！

pp25258 · 发表于 2019-4-9 21:13

谢谢大师，我下载了

淡淡的邪 · 发表于 2019-6-23 15:14

亲爱的楼主大大，请问一下我想在ActiveCell.Value里加入选取的日期外还想加入时间比如00:00:00请问该怎么改，谢谢了。这个场景可以用在查询里比如我想查询2019/6/23 00:00:00 到 2019/6/23 23:59:59 这个时间段。谢谢

淡淡的邪 · 发表于 2019-6-24 13:39

爱疯发表于 2017-5-22 08:52
谢谢反馈！
我暂时想不出解决的方式，只有等待学习了！

大佬能不能把textbox对象作为参数传进去，然后把activecell.value改成textbox.text呢？这样行的通吗？每个textbox调用日历的时候，把自己作为参数传进去，返回值不就可以各自使用了吗？我是小萌新，求帮。谢谢给位大佬

lewis88 · 发表于 2019-6-24 18:03

利害了，谢谢分享

darrell · 发表于 2019-7-23 08:27

楼主，计算某年某月有多少天，有一个非常简单的办法，就是查询下一月的第0天的数值即可。
举例：计算2016年2月有多少天，即查询2016年3月0日的数值即可，在你的sub fresh()中，
将原来的：
n = howManyDays(y, m) '某年某月有多少天
修改成：
n = Day(DateSerial(y, m + 1, 0))

删除掉原来的两个函数（一个计算天数，一个判断闰年）
不谢！

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

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

评分

评分