ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 63860|回复: 127

[原创][分享]通用日历拾取类(无须控件,公开源码)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-14 14:56 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:控件

在VBA编程中,常常会碰到需要用户进行日期型数据的选择,一般除了采用最普通的文本框加上代码检测外,用的最多的就是启用第三方控件,如Calendar Control和DTPicker Control(即Microsoft Date and Time Picker Control),但是用此类控件有时会遇到因控件文件缺失或版本问题而使文档无法正常使用.给我们带来一些麻烦.下面看看我抛开这些控件而自行制作的日历拾取类的运行状态: 4dOntRaj.rar (30.77 KB, 下载次数: 1906)

(VBA查看口令为ldhyob) 另:使用中,若用户不作任何选择,按ESC键即可.

[此贴子已经被作者于2005-8-14 16:43:16编辑过]

[原创][分享]通用日历拾取类(无须控件,公开源码)

[原创][分享]通用日历拾取类(无须控件,公开源码)

[原创][分享]通用日历拾取类(无须控件,公开源码)

[原创][分享]通用日历拾取类(无须控件,公开源码)

j5ZdPp1v.rar

34.65 KB, 下载次数: 980

[原创][分享]通用日历拾取类(无须控件,公开源码)

ciakt1Op.rar

34.55 KB, 下载次数: 729

[原创][分享]通用日历拾取类(无须控件,公开源码)

YebYVpFT.rar

34.93 KB, 下载次数: 715

[原创][分享]通用日历拾取类(无须控件,公开源码)

DCFAZbJr.rar

43.03 KB, 下载次数: 963

[原创][分享]通用日历拾取类(无须控件,公开源码)

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2005-8-14 15:19 | 显示全部楼层

实在是高

TA的精华主题

TA的得分主题

发表于 2005-8-14 15:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

奇怪,偶不能下载呢。是不是偶是新来的啊?

TA的精华主题

TA的得分主题

发表于 2005-8-14 16:01 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

收藏

有个问题,点了那个下拉箭头后,如果我不想选择日期,怎么退出呀

楼上的,可以下载的,不管新不新来的

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-14 16:01 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用来生缘在2005-8-14 16:01:19的发言:

收藏

有个问题,点了那个下拉箭头后,如果我不想选择日期,怎么退出呀

楼上的,可以下载的,不管新不新来的

呵呵,按ESC呀

TA的精华主题

TA的得分主题

发表于 2005-8-14 16:12 | 显示全部楼层
以下是引用来生缘在2005-8-14 16:01:19的发言:

楼上的,可以下载的,不管新不新来的

好像你给偶说过,关于更换头像的问题 可能要有一定的发帖量才行的。是不是下载文件,也是有这样的限制呢?偶真的不可以下载的。

TA的精华主题

TA的得分主题

发表于 2005-8-14 16:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

汗,忘了ESC

下载应该是没有限制的,我记得好像总版版式是这样说过的

头像是有限制

TA的精华主题

TA的得分主题

发表于 2005-8-14 16:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

ldhyob版主,不断为我们奉献精华帖!受益非浅!其实版主每发一新帖我们就学习了不少知识!希望多发一点!

TA的精华主题

TA的得分主题

发表于 2005-8-14 16:36 | 显示全部楼层

谢谢 ldhyob 斑竹。下载使用,提示 找不到工程或库

Private Sub UserForm_Initialize() Me.TextBox1.Text = Format(Date, "yyyy-mm-dd") 'Date关键字处提示错误。 Set DTPicker(1).DTText = Me.TextBox1 '挂接日历拾取类 Set DTPicker(2).DTText = Me.TextBox2 '挂接日历拾取类 End Sub

啥原因呢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-14 16:39 | 显示全部楼层
以下是引用紫蝶儿菲菲在2005-8-14 16:36:57的发言:

谢谢 ldhyob 斑竹。下载使用,提示 找不到工程或库

Private Sub UserForm_Initialize() Me.TextBox1.Text = Format(Date, "yyyy-mm-dd") 'Date关键字处提示错误。 Set DTPicker(1).DTText = Me.TextBox1 '挂接日历拾取类 Set DTPicker(2).DTText = Me.TextBox2 '挂接日历拾取类 End Sub

啥原因呢。

这说明你的OFFICE未引用VBA库,把这个库引用上就行了,或者把代码改成vba.date

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 16:05 , Processed in 0.052291 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表