【源码】一个修改版的简单日期选择控件-无office 版本限制

httemp

声明： 本控件非原创，是在其它人的源码上修改的
原来的网盘失效
源码见附件

由于工作需要，要写一些VBA程序，而使用datepicker控件在VBA里有些问题，就 一直使用国内大神制作的Calendar组件（附件的界面就是，而且使用了很多年，而且我当初搜索到就是被抹除了制作者信息的版本，现在连是谁制作的都Baidu查不到了，真不好意思)，但是这个组件是最开始是针对Excel 表格上选择日期设计的，而我最近需要用在UserForm上， 又搜索到TreVorEyre的Calenar 组件，这个组件功能更加强大，但是由于英文界面，而且很多功能实际用不到。就整合两个组件的优点，搞了个VBA Date Picker。 可以方便的用在Excel 表格和VBA 的UserForm上。

改善:

以国内大神的 CalendarForm 组件为主构架，将使用Class 绑定按钮事件数组的方法改成TreVorEyre版本的单控件写事件再集中处理的方法，这样只要一个Form就可以了，不需要Module和Class 了。
又学习 TreVorEyre的带参数的做法（TreVorEyre版本的参数很强大)，为了方便我只做了3个参数， 缺省日期，窗体顶部位置和窗体左侧位置。
方便使用，没有用API，只有一个Form, 源码也简短（这是其它大神的功劳)

源代码提供， 可以根据需要修改，本人非专业人员，有错误难免，有问题可以直接沟通，谢谢。
再次感谢其它源码提供者。




下载解压后，导入到你的VBA工程中， 只有一个 VBADatePicker Form

1. 函数GetDate 是整个控件唯一入口，控制所有功能，所有参数可选，最简单用法

dateVariable = VBADatePicker.GetDate.
2. 下列是GetDate用到的参数，全部是可选

SelectedDate (Date) - 缺省选择日期，有这个参数，及时不选择就关闭日期选择界面，也返回这个缺省日期（不选择也返回默认日期）。如果不带此参数，界面上默认选择日期是今天，但是如果不选择就关闭，返回值为0（注意，不选择不返回今天)；

PositionTop (Long) - 可选，日期选择界面顶部位置。

PositionLeft (Long) - 可选，日期选择界面左侧位置。

PositionTop和 PositionLeft 两个参数一起不指定时日期选择界面窗口自动居中。其中一个参数指定，而另一个不指定会变成 -5（缺省值)。所以最好一起指定。





TreVorEyre版本下载 https://trevoreyre.com/portfolio/excel-datepicker/

ylf969

网盘链接失效了，能发一个吗？ylf1969@126.com。十分感谢

ivccav

为什么不在这里上附件呢？又不是不能

httemp

不好意思，源码见附件
还是又可以优化的地方

httemp

ylf969 发表于 2023-1-30 16:37
网盘链接失效了，能发一个吗？。十分感谢

我在帖子里更新了，去下载吧

雪之花

谢谢分享~~

ylf969

谢谢分享,十分感谢