Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 爱疯

[分享] 用窗体模仿日历控件

  [复制链接]
 楼主| 发表于 2013-12-7 16:19 | 显示全部楼层
xzwdk 发表于 2013-12-7 15:33
18版在我的机器上可以运行了。请问您修改的哪一条?我要学习一下了。

15楼代码中有三处,将
(Date)
改为
(VBA.Date)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

 楼主| 发表于 2013-12-10 20:27 | 显示全部楼层
用窗体模仿日历控件_21.rar (21.16 KB, 下载次数: 255)
回复

使用道具 举报

匿名  发表于 2014-8-11 23:37
回复

使用道具

匿名  发表于 2014-9-4 20:02
QQ_05F30C 发表于 2014-8-11 23:37
试试,谢谢大侠

谢谢分享
回复

使用道具

发表于 2014-9-18 10:46 | 显示全部楼层
回复

使用道具 举报

发表于 2014-10-28 13:37 | 显示全部楼层
爱疯 发表于 2013-12-10 20:27

谢谢,
为什么我打开时会报错“执行阶段错误‘13’:形态不符”,错误位置为 cal.Show 0;
我的电脑是64位,excel 2007


评分

参与人数 1 +8 金币 +8 收起 理由
爱疯 + 8 + 8 谢谢

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-10-28 15:35 | 显示全部楼层
sailing2you 发表于 2014-10-28 13:37
谢谢,
为什么我打开时会报错“执行阶段错误‘13’:形态不符”,错误位置为 cal.Show 0;
我的电脑是64 ...

谢谢sailing2you !
我的测试环境是:32位win7 + Excel2010
等有了测试机会,看看能否修复好。
回复

使用道具 举报

发表于 2014-10-31 15:45 | 显示全部楼层
爱疯 发表于 2014-10-28 15:35
谢谢sailing2you !
我的测试环境是:32位win7 + Excel2010
等有了测试机会,看看能否修复好。

找到问题了,因为我用的是繁体系统,而程序中:
    With Me
        If .Label1 = "年" Then y = Year(VBA.Date): .Label1 = y Else y = .Label1
        If .Label2 = "月" Then m = Month(VBA.Date): .Label2 = m Else m = .Label2
    End With

“年”,“月” 为乱码, 所以报错, 改下就好了。谢谢!

评分

参与人数 1 +10 金币 +10 收起 理由
爱疯 + 10 + 10 赞一个!谢谢

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-10-31 16:42 | 显示全部楼层
用窗体模仿日历控件_28楼.rar (18.26 KB, 下载次数: 101)
回复

使用道具 举报

 楼主| 发表于 2014-11-1 00:01 | 显示全部楼层
本帖最后由 爱疯 于 2014-11-1 12:01 编辑



用窗体模仿日历控件_29楼.rar (19.54 KB, 下载次数: 126)
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 13:07 , Processed in 0.654286 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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