UI设计自制日历窗体（无需注册MSCOMCTL.OCX）

mqjbayni

prome3 发表于 2024-2-14 16:00
揭秘本贴主题的时刻到了。

在单元格怎么调用日历呢？

opiona

简单代码实现的自定义日历 没有API , 支持VBA所有版本的32位和64位 (Excel和WPS)
窗体跟随功能可以自己找一个套用
https://club.excelhome.net/thread-1567645-1-1.html

prome3

mqjbayni 发表于 2024-3-20 16:08
在单元格怎么调用日历呢？

调用方法前面的楼层有示例的。

但，建议用72楼 @opiona 的日历，运行更稳定。

182197315

prome3 发表于 2024-1-17 19:03
我这边运行起来没有任何问题，也是 Microsoft Office 2019（64位）：
网上有很多很多不基于 WINDOWS API ...

这个我刚好也有，确实不错

prome3

182197315 发表于 2024-3-21 16:30
这个我刚好也有，确实不错

那款日历在设计上该有的功能几乎都有了，美中不足的是，它是外国人做的，在样式上其实不符合国人的习惯，比如年月日的顺序什么的。

国内的人设计的日历，样式上很符合国人的习惯，甚至还包含了农历节气这些。但是，国外的软件代码写得规范很多，可维护性和安全性都有一定程度的保障，甚至有些有完整的开发文档。这一点也是我推荐那款日历的原因：自定义修改很方便。

prome3

朋友们，更新来了。


楼上 mqjbayni 的评论说明之前的模块调用接口还是不够明显，为此我又做了一些调整。现已将两个代码模块整合为一个，并且只开启了一个调用接口。新的代码模块请见附件，只需将解压后的 modDTP.bas 文件拖到自己的 VBA 工程里面，然后在其它代码模块里面的任意地方写下这么一句：

1. ShowCalendar Range("H5"), True

复制代码

即可调用。其中 Range("H5") 表示 H5 单元格，True 表示点选日期后自动隐藏日历窗口。

调用接口的原型为：

1. Public Sub ShowCalendar(ByVal SourceObject As Object, Optional ByVal HideOnSelect As Boolean = False)

复制代码

参数说明：

名称	存在性	描述
SourceObject	必选	要显示日历的对象。可以是工作表上的单元格，也可以是用户窗体上的控件。当前支持的窗体控件包括文本框、组合框、标签这3类。
HideOnSelect	可选	表示日历是否自动隐藏的布尔值。True 表示选择日期后日历窗口自动隐藏；False 表示选择日期后日历保持显示，用户可以按键盘左上角的 ESC 键或者回车键手动关闭。默认值是 False。

在应用中如遇任何问题，欢迎评论留言，咱们共同讨论。

prome3

基于Windows系统自带控件的日历（永久免费）

最新版本1.2.2（2024年4月9日）
相比其它款日历的特点：
1. 可用键盘操作。具体操作请参见关于月历控件 - Win32 apps | Microsoft Learn；

2. 在高版本Office中有现代化的外观；
3. 纯VBA代码生成。兼容Microsoft Office和WPS Office，兼容32位和64位。

使用方法：
把modDTP.bas文件拖入自己的VBA工程内，然后在需要显示日历的地方，调用modDTP模块的ShowCalendar过程即可。示例如下：

prome3

又做了一点更新，代码量要爆炸了……为此移除所有注释内容，如果需要中文注释的话可以单独提出来。

这次更新在技术上有点意思的地方：动态加载 manifest 文件，直接切换 Excel 程序的上下文，以此保证加载的是 6.0 以上版本的系统控件。

低版本 Excel 比如 2003、2007 和 2010 会同时加载 5.8 和 6.0 版本的 comctl32.dll 链接库，如果 VBA 要创建窗口的话，默认调用的是 5.8 版本的，窗口的外观就是那种 VBA 用户窗体控件模样。然而此款日历要实现的是调用 6.0 版本的、现代外观的控件。



原先我还以为需要自己去遍历 Excel 的进程模块，找到 6.0 版本的 comctl32.dll，再调用其中的接口来生成控件。为此调试、测试了整整两天时间，一筹莫展。期间同时在学习 Jaafar 的代码（请见附件MultipleHyperlinkMsgBox.zip），突然觉得其中一段代码有点眼熟，发现正是自己需要的。（他写的代码模块化做得相当出色，很多代码模块和片段、函数、过程都能直接拿来上手就用）

感兴趣的朋友可以对比一下 1.2.6 比 1.2.2 多出来的几个 API 函数就知道了。




补充：78楼缺失的链接（日历控件内置的快捷键）：
https://learn.microsoft.com/zh-cn/windows/win32/controls/month-calendar-controls