ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 挑战你的Excel知识,一起测验下 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 8637|回复: 35

[原创] 改码神器(VB封装辅助神器)一键即可在要修改的VBA对象前添加VB中代表Excel应用程序变量

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2014-6-29 16:45 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:封装
     相信好多VBA爱好者,对VBA代码用VB6.0封装成DLL都有一定的了解与操作,本工具是为了VB6.0封装操作更快捷更方便而打造的。

一、先看看本工具的界面:

    QQ截图20140629152027.png
QQ截图20140629152243.png
QQ截图20140629152308.png

二、因录制的GIF图片有点大, 不能直接上传,因此发个链接供你们查看一下操作步骤与效果
http://a1.qpic.cn/psb?/c87223d9-d15d-4b9d-b75e-bc6a9966d4fe/3WzIdPIX6xkSFJd03lLrNTc4OAmSGRtmDK7z2sz3TQo!/b/dFyWwmecCwAA&bo=XAMwAgAAAAACAEk!&rf=viewer_4



三、特别说明:

本人同时做了两个版本,供大家测试。

1、【改码神器功能区版】  适合office2003、office2007、office2010以上版本均可使用(不能在office 64位 下使用)。
2、【改码神器VBE版】 只适合2007以上office版本使用。
3、要使用此工具成功,需要请勾选“信任对VBA工程对象模型的访问!”,具体步骤为:Excel选项-->信任中心-->信任中心设置-->宏设置-->开发人员宏设置。不然运行了没反应的。切记!
4、本工具无毒、无插件、无限制,可免费无限期使用。

5、 经本人一系列的测试,发现存在以下几个问题,本人也非常的诚实告知,因本人初学VBA,技术还待提升中,所以暂时未想到在代码方面下手的解决方法,但却可以在书写代码方面避免使用【改码神器】时出现的错误。

问题① 如果声明的变量跟对象名称太相似的话就会容易出错,例如Range对象类型,大家都懂的吧,声明一个变量 Dim RangeRange as Range ,Set RangeRange=Range("A1:C5") 。使用【改码神器】后,会出现Set Excel_app.RangeExcel_app.Range=Excel_app.Range("A1:C5"),这样子变量就被坼分,那么怎么解决呢,其实很简单,平时我们书写对象类型的变量,可以用rng ,取Range其中几个字母作为变量即可,或者rng1、rng2。一句话简单的说 “声明变量全部用小写字母即可,或者中文变量”,保证不会有出错。顺便养个好习惯!

问题② 如果"Range("a1")"、" Range("a1")  我们  "、" 你好 Range("a1")  我们  " ,众所周知,双引号内的东西一般都是字串符,感觉这么写代码的情况应该不多吧?至少是属于字串符中的内容,不会影响运行的代码产生错误,但实际影响不知道大不大,还得继续的反反复复的测试才得到真正的结果,这个问题,我会继续去跟进与测试。使用Web网抓数据的时候,我就发现了一个, “.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '设置头部字段”,但是application是小写,所以无法影响到【改码神器】出错,我就忽略了,"Range("a1")" 这种情况,已修复,后面两个情况未解决!

以上暂时两大问题,我会继续去努力学习,把它完全优化过来,使它更强大!

目前希望网友们帮忙测试其是否拥有一定的可用性、使用性!工具暂时来说不是很完美,希望网友们不嫌弃,本人在这献丑了,把不完美的工具也分享出来!!!

同时希望这工具能帮到大家VB6.0封装时,更快更准确更方便!欢迎大家反馈各种Bug与提点建议。你的反馈、你的建议,是我前进的动力!坚持每天进步一点点!

               作者:鈊   QQ:383077419  2014-6-29

改码神器功能演示素材.zip (152.34 KB, 下载次数: 327)

评分

参与人数 4鲜花 +8 收起 理由
ardu95 + 2 优秀作品
一玩就中 + 2 值得肯定
lujkhua + 2 感谢帮助
7176386 + 2 此贴必火!感谢楼主无私。

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-6-29 17:01 | 显示全部楼层
支持原创,感谢楼主分享,收藏了     

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-29 17:15 | 显示全部楼层
dajiahaoxinku12 发表于 2014-6-29 17:01
支持原创,感谢楼主分享,收藏了

感谢支持!!!!

TA的精华主题

TA的得分主题

发表于 2014-6-29 17:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-6-29 20:35 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-7-1 08:28 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-7-1 12:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-7-1 12:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-7-14 16:47 | 显示全部楼层
本帖最后由 name004 于 2014-7-14 16:58 编辑

急需卸载,如何卸载?2003版的菜单--帮助之右边 :改码神器
弄掉了,

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-7-14 17:17 | 显示全部楼层
name004 发表于 2014-7-14 16:47
急需卸载,如何卸载?2003版的菜单--帮助之右边 :改码神器
弄掉了,

把安装的改码神器卸载了就可以了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-9-17 00:18 , Processed in 0.083211 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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