自建日历选择窗口取代VBA日历控件mscomct2.ocx解决兼容问题

向東 · 发表于 2020-5-26 13:50

本帖最后由向東于 2020-5-26 13:52 编辑

我估计其他单元格你没有设置好日期显示格式。可以在要显示日期的单元格上按鼠标右键，选【设置单元格格式】-【数字】页签-【分类】列表中选【日期】-右边【类型】框中选【*2020-5-26】这种带日期的格式，或者其他你想要的日期格式。

YZC51 · 发表于 2020-6-29 03:26

学习下

自建日期选择窗口_V2.zip (87.43 KB, 下载次数: 119)

zglibk · 发表于 2020-9-17 15:13

这个日期选择器做得很好！

xajax · 发表于 2020-10-13 21:23

谢谢楼主提供的程序

xgjing1220 · 发表于 2020-11-20 21:29

向東发表于 2020-2-29 22:18
在sheet1 中的代码中：

这样范围选择后，能弹出日历，但点击日期不能输入

xgjing1220 · 发表于 2020-11-20 21:33

本帖最后由 xgjing1220 于 2020-11-21 12:22 编辑

里面的CalendarForm窗口，模块bindBuntonModule，类模块buttonEvent可以导出，
然后在导入到你想使用的VBE中就可以了，窗口的格式及其中的代码都会保留，
这样也方便改造使用。注意，改造的时候CalendarForm窗口，类模块buttonEvent中
含有使用自定义窗口frm_query的代码，需要换成你自己的。

本人小白，不会换，能详细介绍一下吗？我现在导入后，新的表格不能弹出日历界面，出错界面如图：屏幕截图 2020-11-21 122052.png

xgjing1220 · 发表于 2020-11-20 21:35

本帖最后由 xgjing1220 于 2020-11-21 11:30 编辑

If Target.Column = 1 And Target.Row >= 5 And Target.Row <= 700 And Target.Cells.Count = 1 Or Target.Address = ActiveSheet.Range("B2").Address Then
'如果选中的是第一列，并且，大于等于第5行小于等于700行，并且选中的是一格，或者选择【B2】单元格，则

范围改成这样，相应单元格能弹出日历，但点击日期不能输入日期，这个该怎么改，谢谢

这个在类模块里同样改一下就好了，感谢

xgjing1220 · 发表于 2020-11-22 10:25

xgjing1220 发表于 2020-11-20 21:33
里面的CalendarForm窗口，模块bindBuntonModule，类模块buttonEvent可以导出，
然后在导入到你想使用的VBE ...

问题已解决，之前的日历控件删除保存一下，再重打开问题解决了

向東 · 发表于 2020-11-23 20:01

xgjing1220 发表于 2020-11-22 10:25
问题已解决，之前的日历控件删除保存一下，再重打开问题解决了

可能跟你以前用的日历控件有冲突，还没碰到过这种情况。不过感谢分享问题解决的过程，希望能帮助到更多人。

xiaomils · 发表于 2021-3-31 06:52

非常强大，感谢！！

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

[原创] 自建日历选择窗口取代VBA日历控件mscomct2.ocx解决兼容问题