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

netbeing · 发表于 2021-4-8 15:40

好厉害！！

Zhanglingdong · 发表于 2021-6-29 17:55

谢谢楼主，你这个贴解决了我一直困扰的日历问题，感谢

dlk231 · 发表于 2021-7-6 15:51

先收藏了谢谢找了一下午网上其他的下不到了

zhoujx2 · 发表于 2021-7-20 21:12

不错的代码

sdg1345 · 发表于 2021-8-21 20:44

大佬，请问我还要再加2个日期的选择栏TextBox9、10，代码要怎么加呢？
Private Sub datewithChange() '调整时间时，TextBox里的值跟着变
If frm_query.Visible Then
If Cs Then frm_query.TextBox7.Value = Left(ComboBoxY.Value, 4) & "-" & Format(Split(ComboBoxM.Value, "月")(0), "00") & "-" & Format(Split(TextBoxD.Value, "日")(0), "00")
If Ce Then frm_query.TextBox8.Value = Left(ComboBoxY.Value, 4) & "-" & Format(Split(ComboBoxM.Value, "月")(0), "00") & "-" & Format(Split(TextBoxD.Value, "日")(0), "00")
End If
End Sub

向東 · 发表于 2021-8-22 13:01

sdg1345 发表于 2021-8-21 20:44
大佬，请问我还要再加2个日期的选择栏TextBox9、10，代码要怎么加呢？
Private Sub datewithChange() '调 ...

把代码中的TextBox7替换成TextBox9，把代码中的TextBox8替换成TextBox10

sdg1345 · 发表于 2021-8-22 19:49

向東发表于 2021-8-22 13:01
把代码中的TextBox7替换成TextBox9，把代码中的TextBox8替换成TextBox10

我改了之后改变的是原来7、8的数据
选择本期之后，改变的是对应的上面一行上期数据
QQ图片20210822194635.png

02761752696 · 发表于 2021-8-22 21:25

很实用 DIY 日历

向東 · 发表于 2021-8-23 11:19

sdg1345 发表于 2021-8-22 19:49
我改了之后改变的是原来7、8的数据
选择本期之后，改变的是对应的上面一行上期数据

检查一下，四个下拉按钮事件DropButtonClick()里面的代码，你写的是否正确。

vort99 · 发表于 2021-9-1 10:10

年月都可以更改日改不了

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

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