ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] VBA界的小规模杀伤性武器:代码百宝箱2.0(永久免费)----罗刚君

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-12-16 13:57 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:其他插件和工具
本帖最后由 andysky 于 2014-10-30 16:50 编辑

 

A.代码百宝箱是什么?
答:代码百宝箱是给VBA爱好者用的编程工具,不用VBA者可以略过本帖。代码百宝箱可以自动向模块或者窗体中写入指定的代码,也可以删除工作簿中所有代码(包括模块、窗体),还可以为代码编号等等。
B.代码百宝箱有什么用?
答:代码百宝箱的用处主要体现在五个方面:
1)某些代码的使用频率较高,几乎天天需要使用,手工一个一个字母录入效率太低。本工具可以让你一键录入。例如:

Application.ScreenUpdating = True
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
Application.EnableEvents = False
Application.EnableEvents = True
Application.EnableEvents = False
Application.EnableEvents = True
Application.DisplayAlerts = False
Application.DisplayAlerts = True


2)逐字录入代码,出错的可能性较大,虽然常用,但是录入次数多了总有可能错那么几次。例如误将“Application.ScreenUpdating = True”书写成“Application.ScreenUpdating = Ture”,导致代码无法达成预期的效果。使用代码百宝箱单击插入,可以确保每次输入的代码总是一致的,杜绝出错。
3)在书写结构性代码时,估计每个开发者曾经遇到过此类事件----写了IF和then,忘记了End if导致代码执行出错,或者写了Selet Case忘记了End Select.....采用代码百宝箱可以让你不再犯此类错误。
4)某些代码很长又难记,每次输入代码还得查资料、可能半小时也不一定能完成工作,而采用代码百宝箱可以单击完成。例如让您的窗体显示在所有程序的上层,确保任何情况下总是都看到窗体的内容,这里的API代码就很长。
5)某些知识点可能需要学习几天,而学会后在使用时又涉及很繁琐的编写过程,无端耗费掉了我们的精力。例如开发自定义菜单和工具栏,包括二级菜单。有了代码百宝箱,你可以不再需要学习任何设计菜单相关的技术,直接使用本工具的模板即可,生成模板后,将里面的菜单名称改成您需要的名称即可。以往可能需要写半小时的代码,现在仅仅三秒钟完成。
C.代码百宝箱收费吗?
答:免费给所有用户使用,不限功能、不限时间、不限安装次数。
D.代码百宝箱支持哪些版本的Excel?
Excel 2007、2010、2013,不支持64位版的Office。(经过测试,有时能在Excel 2003中使用,有时不可以,还没掌握好规律,至于使用Excel 2003的您是否可以使用,就得看看运气了。)
E.代码百宝箱都有哪些功能?
答:请看下表:

单句代码:                                  功能:
防错                                          程序出错时也可以继续执行
关闭刷新                                  关闭屏幕刷新,提升代码效率
开启刷新                                  恢复
自动计算                                  让工作表中的公式自动计算
手动计算                                  让工作表中的公式手动计算
禁用事件                                  禁止事件的连锁反应
启用事件                                  恢复
禁止提示                                  禁止弹出某些提示信息
允许提示                                  恢复
条件语句                                  多行模式的 IF...then... End if
循环语句                                  For Next循环语句
条图片插入到批注中                    一句代码插入图片到批注中
删除所有回车符                            一键删除所有回车符,避免影响工作
获取特殊文件夹路径                    获取“桌面”、“我的文档”等路径
计算最大的非空行/列                    获最后一个真正的非空行行号或者最后一个真正的非空列的列号
下一个空单元格/按行                    引用A列最后一个非空单元格的下方单元格
下一个空单元格/按列                    引用第一列最后一个非空单元格的右方单元格
检查工作表是否保护                    检查工作表是否处于保护状态,如果是则提示用户(很多代码都只能在工作表未保护下才能工作)_________________________________________________________________________

整段代码:                                     功能:
创建工具栏:                                 用代码创建自定义工具栏,且包含一个按钮
创建工作表菜单:                         用代码创建工作表菜单,且包含两个子菜单
工具栏二级菜单:                         用代码创建工具栏,且包含2个一级菜单和4个二级菜单
获取Excel内部图标ID:                 生成4000多个内部图标,并提供ID,给自定义菜单时提供参考
利用集合取不重复值:                  展示集合Collection的常规用法
字典的两种基本用法:                  展示字典对象Dictionary的两种用法
正则表达式的两种用法:               展示正则表达式REGEXP的两种用法
弹出对话框选择单元格:               弹出对话框选择单元格,然后获取选中区域的地址
浏览文并获取指定路径名称:       弹出对话框选择一个文件夹,并取得其地址
浏览并报告所有文件名称:           弹出对话框选择多个文件,然后返回所有文件的名称
罗列所有文件夹名称:                  罗列出指定路径下的所有文件夹名称
创建文件目录:                            对指定路径下的文件创建目录
FileSystemObject应用:                利用FSO技术获取文件的若干属性
按类型选择文件:                        弹出对话框让用户选择指定类型的文件
查询并选中所有0值:                  循环查找活动工作表中所有值为0的单元格
文本框数据类型限制:                用于窗体中,限制文本框只能录入数值、字母或者汉字
开发带有可选参数的函数:         展示开发带有可选参数的手法
两种定时执行程序的方法:         在指定时间执行程序的两个模板
生成隔行选择行的代码:              生成隔若干行选择一行的代码,起止范围和间隔行皆可自定义
显示颜色提取器:                       弹出对话框让用户选择任意颜色,然后返回颜色值
读取与写入注册表:                   读取与写入注册表的代码模板
VBA调用DOS命令:                    展示VBA调用DOS命令的基本手法
多区域转数组:                          将多个不规则的区域转换成一维数组
测试代码执行时间:                  生成测试代码执行时间的模板
_________________________________________________________________________
常用API代码:                           功能:
彩色Msgbox对话框:               让信息框的文字显示为彩色,可自定义颜色
创建定时关闭的输入框:          创建一个5秒钟自动关闭的输入框
创建定时关闭的信息框:          创建一个5秒钟自动关闭的信息框
让窗体置顶:                           将窗体置于所有程序的上层
按下窗体时拖动:                     按下窗体的任意空白区域可拖动窗体
去除窗体边框与标题栏:          去除窗体上方的标题栏和四周的边框
让窗体变透明:                       将窗体的背景变透明,可以看到后面的信息
为窗体添加最大/小化按钮:    为窗体添加最大化、最小化的两个按钮
设计圆形窗体:                       让窗体变化圆球形状
在状态栏显示鼠标所在列的合计: 鼠标移动时可以在状态栏显示鼠标指针所在列的合计
启动默认邮件发送窗口:         用代码启动邮件发送窗口,并自动写上件收人地址和邮件内容
其它功能:
1.添加行号:为过程中的每一代码添加编号
2.删除所有代码:删除活动工作簿中的所有VBA代码,包括模块和窗体
3.插入字符图案:在模块中插入美丽的字符图案,即作为装饰,又可在其中书代码名称、版本号、作者等信息。形成自己的独特风格。
E.这么好的工具去哪里下载呢?
VBA代码百宝箱.rar (666.98 KB, 下载次数: 6196)

————————————————————

更新3.0版(请下载此附件):

ExcelVBABBX.rar (646.8 KB, 下载次数: 4915)

_______________________________

相关软件:http://excelbbx.net/Eling.rar

评分

11

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-12-16 13:59 | 显示全部楼层
本帖最后由 andysky 于 2013-12-16 14:06 编辑

F.工具栏的界面如何呢?
答案:请看图
3.png

2.png

1.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-12-16 14:03 | 显示全部楼层
本帖最后由 andysky 于 2013-12-16 14:35 编辑

G.此工具相对1.0的什么改进呢?
答:除了功能多很多倍之外,在防错方面做了大量的工作。例如
1.当没有进入代码窗口时,单击菜单不再出错,而是弹出一个提示框,从而更人性化,同时了避免工具崩溃。
纠错一.png
2.自动判断用户选择的窗口的类型。例如某些代码只能在窗体使用,那么您当前处于模块中或者工作表事件代码窗口中,则会弹出一个窗口,给您正确的指引,而不会由于错误的操作导致程序无法执行。
纠错二.png
3.插入单句代码是插入到用户当前的鼠标插入点,而当用户需要插入的代码具有API声明时,不再是插入到当前插入点,而是自动插入到过程的顶端,避免代码无法使用。这也是工具的人性化体现。
纠错三.png
4.对代码编号时,如果没有代码不再会崩溃,而是弹出提示框,见下图:
纠错四.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-12-16 14:05 | 显示全部楼层
本帖最后由 andysky 于 2013-12-16 15:01 编辑

演示一个功能:查找所有0值
或许你经常需要使用循环查找的代码,每次都要手工一个一个字母编写,即辛苦又易出错。使用本工具,只需要几秒钟就完成。
请看动画(自动产生代码,然后根据需求改一个数字就完成了)
演示.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-12-16 14:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 andysky 于 2013-12-16 21:50 编辑

功能演示:生成二级菜单

全自动生成源代码,您只需要在此基础上改一下菜单名称就可以为您所用。让您不再为开发菜单而发愁。

以前半小时的工作量,现在只需要几秒钟。

菜单.gif

TA的精华主题

TA的得分主题

发表于 2013-12-16 14:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-12-16 14:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-12-16 14:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
罗总V5{:soso_e163:}

TA的精华主题

TA的得分主题

发表于 2013-12-16 15:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-12-16 15:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
罗版精品,好好学习。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 19:23 , Processed in 0.062582 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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