ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创] 公开源码---VBE环境下创建工具栏(常用代码快捷录入工具)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2014-7-23 23:17 | 显示全部楼层
本帖已被收录到知识树中,索引项:VBE环境开发
本帖最后由 livedcn 于 2014-7-23 23:28 编辑

也不知是win8系统原因还是office2013的版本问题,原来的英文缩进插件,安装完后“不出现”,使用不成,有这个加载宏很好了!一些常用但记不住的命令,可以快捷输入了,非常感谢大师们的创新精神分享精神。本人系统:32位win8.1 ,office2013,运行正常!

TA的精华主题

TA的得分主题

发表于 2014-8-4 08:54 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
史上最好用VBA代码助手/随时随地收藏及插入代码/VBE无缝结合代码收藏工具
http://club.excelhome.net/thread-1142740-1-1.html
好的 我在做大杀器  稍后把这里的功能加入我的工具中

TA的精华主题

TA的得分主题

发表于 2014-8-4 09:14 | 显示全部楼层
这个要花点时间学习

TA的精华主题

TA的得分主题

发表于 2014-8-4 19:39 | 显示全部楼层
本帖最后由 lolmuta 于 2014-8-5 13:19 编辑

感动…这个超棒

2003可以跑,但是2010不能跑,
错误讯息如下
显示物件不支持此属性或方法 err code:438


一開始執行就出錯

1.jpg

按鈕ui有成功加載
2.jpg


錯誤的地方
3.jpg

錯誤訊息

4.jpg


我是64bit excel 2010 有人有跟我一样的吗?


我猜测是这个有问题
"Microsoft Visual Basic for Applications Extensibility 5.3"
应该是bug


http://social.msdn.microsoft.com/Forums/zh-TW/a7705b7f-1f97-485d-96f0-139033779bd4/microsoft-visual-basic-for-applications-extensibility-53-library-bug-in-office-2010-x64?forum=officegeneral
雖然有小小的缺失,
这个是我目前看过最简单,也纯绿色,操作最顺手的软体了





TA的精华主题

TA的得分主题

发表于 2014-8-4 23:10 | 显示全部楼层
lolmuta 发表于 2014-8-4 19:39
感动…这个超棒

2003可以跑,但是2010不能跑,

试试我这个看
史上最好用VBA代码助手/随时随地收藏及插入代码/VBE无缝结合代码收藏工具
http://club.excelhome.net/thread-1142740-1-1.html

TA的精华主题

TA的得分主题

发表于 2014-8-11 00:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
测试了一下兄台的工具,非常好用!!!平时我自己整理了一些常用代码,也很想做成这种工具栏形式的,不知道兄台能否不吝赐教怎样才能制作这种工具栏呢?

TA的精华主题

TA的得分主题

发表于 2014-8-11 22:13 | 显示全部楼层
本帖最后由 百度不到去谷歌 于 2014-8-11 22:31 编辑
怀英慕者 发表于 2014-8-11 00:29
测试了一下兄台的工具,非常好用!!!平时我自己整理了一些常用代码,也很想做成这种工具栏形式的,不知道 ...

试试我这个看
史上最好用VBA代码助手/随时随地收藏及插入代码/VBE无缝结合代码收藏工具
http://club.excelhome.net/thread-1142740-1-1.html
不需要你制作 直接用我的工具 你可以随意分类 然后就能按你的意愿生成对应的工具栏
当然我的源码也开放的 你可以自己看源码

TA的精华主题

TA的得分主题

发表于 2014-8-12 07:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-10-16 14:42 | 显示全部楼层
本帖最后由 Moneky 于 2014-10-17 09:29 编辑

换了win8,原来的不能用了,这个插件不错。
自己改了一下只保留了代码缩进和空行删除。

感觉下面的代码可以修改下
Do Until Left(aLine, 1) <> " "
            aCodePane.CodeModule.ReplaceLine aLineNumber, Mid(aLine, 2)
            aLine = aCodePane.CodeModule.Lines(aLineNumber, 1)
Loop                        'Loop repeats until all spaces/indents removed
我直接改成了:
aCodePane.CodeModule.ReplaceLine aLineNumber,trim$(aLine)
感觉速度快一些了
============================================================

精简后的工具,没有创建新的工具栏,只是在内置的“编辑”工具栏上添加了两个按钮,在右键菜单中也添加了两个菜单项,方便快捷调用。现在的代码对齐代码有一些小缺陷,但总体还是够用了,如果自己写的代码基本上用不上。

2014-10-17_092340.png

代码对齐.zip

15.87 KB, 下载次数: 119

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-10-17 08:28 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Moneky 发表于 2014-10-16 14:42
换了win8,原来的不能用了,这个插件不错。
自己改了一下只保留了代码缩进和空行删除。

感谢指点,我试试。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-15 21:10 , Processed in 0.039041 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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