利用Excel VBA制作的日期选取（非DTP方式）

cnkmtym · 发表于 2016-6-7 11:02

说明：VBA制作的日期选取。避免了使用DTP而产生的没有安装DTP出现的不能运行的情况。
点击运行日期设定后，运行日期选择窗体。在年月日选择列表框选取日期后，单击选定日期按钮，将选取好的日期写入到Sheet1的A1单元格。
能自动根据所选取的年月，自动调整日的列表，能区分润年及大小月，不会出现类似2月30日这种情况。

ciwei666 · 发表于 2016-11-1 00:32

看看学习下！

bbbbhiox · 发表于 2016-11-16 20:11

看且学习了。

topman-gang · 发表于 2016-11-23 13:17

感谢！下载学习啦！

dyj545 · 发表于 2018-7-17 10:52

感谢, 下载学习了..

XX你好烦 · 发表于 2018-8-27 18:00

回复帖子才是好习惯

szrrr · 发表于 2020-4-14 11:33

亲，看了代码，受益匪浅。我有一个问题，就是有些地方强令DateDD的text值比如""If DateDD=29 or DateDD=30 or DateDD=31 Then DateDD=28 这个是为啥呢？起啥作用？

szrrr · 发表于 2020-4-14 11:35

亲  看了您的日期选择代码  受益匪浅  但是请教您两个问题：
第一，代码里面有些地方  强令DateDD的text值  比如""If DateDD=29  or DateDD=30 or DateDD=31 Then DateDD=28 这个是为啥呢？起啥作用？
第二，年月日ComboBox的text初始值分别是  2016/12/31  这个是如何初始设定的？可不可以清除掉？
谢谢您！

dingwanz · 发表于 2020-12-4 11:07

下载不了可以提供一下吗

xuehuihuang · 发表于 2020-12-10 05:29

szrrr 发表于 2020-4-14 11:35
亲看了您的日期选择代码受益匪浅但是请教您两个问题：
第一，代码里面有些地方强令DateDD的text值 ...

1，如果你的前一个选择，日刚好选择了30或者31号。你再次点击月选择了2月份，这时候日这里显示为30或者31就有点尴尬了。所以如果你选择了2月份，会强制修改COMBOBOX DATEDD的TEXT值为对应的2月份的最后一天。

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

利用Excel VBA制作的日期选取（非DTP方式）

最新热点 /1