ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E友软件 > Excel VBA > 赠送大家一个通用版日历控件 比Excel自带的好多了

赠送大家一个通用版日历控件 比Excel自带的好多了

作者:绿色风 分类: 时间:2022-08-17 浏览:156
楼主
罗刚君
Excel自带的日历控件即不美观,又兼容性差
用用这个试试
请单击图片放大  查看清晰版本

 
通用版日历插件.rar
2楼
YESS95
谢谢罗总
3楼
xyf2210
罗总V5
4楼
xpm130
罗总真是高人!
请问下,如何在需要它的时候让它出来,不要老是脚夫前脚后的跟着.
5楼
gaokaozhu
win7 64位下不会使用。
6楼
罗刚君
修改工作表事件就行了
例如只有单击第2列才出现,那么改用以下代码:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Target.Column = 2 Then
  3.         Dim strTmp As String
  4.         strTmp = Application.ExecuteExcel4Macro("GetDate(""400"",""200"")")    '400表示左边距,200表示上边距
  5.         If strTmp <> "0" Then ActiveCell = strTmp
  6.     End If
  7. End Sub
7楼
ronty
顶一个,嘿嘿
8楼
〖滟じ☆ve珺〗
多谢罗大
9楼
yjwdjfqb
谢谢罗总
10楼
yjwdjfqb
罗大师,能把源码上和制作方法,给兄弟们共享下吗,感谢啦!
11楼
germanycream
好流逼
12楼
yjzstar
留名收藏,以备后用!
13楼
gysegz
要是能做成工作簿的窗口形式就好了****,因为如果没有拷贝MyXllDate文件的话,工作簿根本无法打开**!
14楼
罗刚君
拷贝不就行了?
15楼
jacinto
请问这个控件怎么安装?是存放在Windows/system32下面吗?
16楼
小小小丸子
谢谢分享!想问如何把这个日历插入到我自己的工作表的其中一列??
17楼
zzmjxxy
支持,收藏了
18楼
lilytracy
谢谢罗总
19楼
lpsafcz
罗总,高人啦!
20楼
gaokaozhu
off2013版出现:运行错误13,类型不匹配。
21楼
罗刚君
XLL文件 不支持64位OFFICE
22楼
gaokaozhu
罗版你好:
    我是32位office2013版,2010版时可用,安2013版后出现问题,请帮解答。谢谢!
23楼
gaokaozhu
罗版你好:
     不知是更新还是设置的原因现在又好用了!


仍不可用,在2010版好用。(我2010版和2013版并存,打开是用2010版误认为是2013版)

补充内容 (2013-3-20 13:49):
2013版可用将附件放到工作簿所在目录下即可。
24楼
胖纸
谢谢罗总
25楼
小虾米ゲ
一定要打开附件中的日期,才能用吗?要是自己新建的工作簿要怎办??office是2010的。
26楼
罗刚君
自己加工成加载宏就行了
27楼
第一段
罗老师真是厉害和无私,谢谢了
28楼
Erik_16888
感谢罗总
29楼
小1
30楼
chensw20042004
非常不错,谢谢分享
31楼
罗刚君
Excel自带的日历控件即不美观,又兼容性差
用用这个试试
请单击图片放大  查看清晰版本

 
通用版日历插件.rar
32楼
YESS95
谢谢罗总
33楼
xyf2210
罗总V5
34楼
xpm130
罗总真是高人!
请问下,如何在需要它的时候让它出来,不要老是脚夫前脚后的跟着.
35楼
gaokaozhu
win7 64位下不会使用。
36楼
罗刚君
修改工作表事件就行了
例如只有单击第2列才出现,那么改用以下代码:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Target.Column = 2 Then
  3.         Dim strTmp As String
  4.         strTmp = Application.ExecuteExcel4Macro("GetDate(""400"",""200"")")    '400表示左边距,200表示上边距
  5.         If strTmp <> "0" Then ActiveCell = strTmp
  6.     End If
  7. End Sub
37楼
ronty
顶一个,嘿嘿
38楼
〖滟じ☆ve珺〗
多谢罗大
39楼
yjwdjfqb
谢谢罗总
40楼
yjwdjfqb
罗大师,能把源码上和制作方法,给兄弟们共享下吗,感谢啦!
41楼
frankzewen
大发了
42楼
lzg043
先谢楼主。。
43楼
千里马
谢谢分享。  
44楼
hbzsf
不错的东西,收下了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap