ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] 一步步教你DIY 你的VBE对话框 57楼增加可复制的版本_ldy

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-27 12:12 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:VBE工具
经常使用VBA的朋友可能经常感觉到系统的对话框特别别扭,拿工程引用对话框来说吧,其对话框实在不看着不舒服。
vbe00.GIF
长期以来,老朽一直忍受着。相信你也是如此忍受着……
多希望是这个样子: VBE.gif
有没有办法,我们自己来改造呢?
答案是肯定的。
终于有一天,老朽实在是无法忍受了,经过摸索,老朽找到了问题的根源,经过老朽的改造,现在已经是这个样子了。
有人会问,这是怎么实现的。下面,老朽将自己的DIY经过与大家分享。
首先:你必须得有一款修改DLL的工具。老朽用的是eXeScope。
这个工具网上有,老朽提供链接,你可以自行下载http://sx.jackdown.net/UploadFil ... Scope650-moming.rar
同时,老朽也是刚刚下载的。 在此老朽一并共享 eXeScope650-moming.rar (487.11 KB, 下载次数: 1164)

Office 2003版的用户请在5楼下载老朽修改成功的作品
Office 2007版的用户请在14楼下载老朽修改成功的作品

[ 本帖最后由 ldy 于 2009-7-30 12:55 编辑 ]

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 12:13 | 显示全部楼层
OK,下面,老朽带你一起开始DIY。
1、        安装eXeScope650
2、        之后,我们进入到C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052,这个目录下只有一个DLL文件,那就是VBE6INTL.DLL,我们先行备份。这个简单,复制、粘贴一下就OK,以防不测。
3、        选定DLL文件,右键,用 eXeScope 编辑资源
vbe01.GIF
4、        在eXeScope窗口,找到对话框,展开,由于不知道具体是哪一个对话框,我们可以逐一展开各对话框,终于在4040对话框中看到了熟悉的字眼“可使用的引用(&A):”,这不就是我们要修改的对话框的标题么?对,就是它!
5、        目标找到了,现在我们就要开始修改了。我们希望修改的只有一个:修改Listbox的高度和宽度。尽管我们修改的属性比较单一,但是牵涉到的地方很多,设计过窗体的都知道。
6、        那么我们将要修改的细节有:
a.        增加整个窗体的高度和宽度(这个简单)
b.        调整其它控件的位置,这里将牵涉到多个控件。还是用图片说话吧。
c.        我们就将ListBox的宽度、高度各增加100为例
vbe0.GIF

[ 本帖最后由 zldccmx 于 2009-7-27 12:30 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 12:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
DIY正式开始
7、        手术开始:
A.        退出EXCEL。
B.        增加窗体的宽度和高度,在原来的基础上各加100,由原来的287、204分别修改为387、304。退出eXeScope,当然了,必须得允许保存。
   启动EXCEL,切换到VBE,是不是这个样子?
vbe02.GIF

OK,这说明我们的第一步成功。
关闭Excel,重新用eXeScope打开C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052\VBE6INTL.DLL。

C.  调整ListBox的宽度和高度:在图示位置,找到ListBox,然后将显示在顶端的宽度、高度数据由原来的162、123修改成262、223。OK
vbe03.GIF

D.        调整各按钮的LEFT:从图示位置找到对应按钮,以“确定”按钮为例:将它的X坐标值由原来的230修改为330,即可。这里的X坐标实际就是窗体中的Left属性。依次调整其它按钮的X坐标,各加100就OK。
vbe04.GIF

E.        调整框架的Top与WIDTH:在图示位置找到GroupBox,将其Y坐标(TOP属性)由原来的154修改为254,宽度也修改为374。然后再修改GroupBox内部的几个控件的TOP属性,Y坐标各加100。本例中,GroupBox内部有4个Label控件,即下图红色框标识的部分。
vbe05.GIF
F.最后修改ListBox右边的两个箭头以及“优先级”的X坐标,在原来的基础上直接加100。
G.存盘,退出eXeScope。DIY结束。
重新启动Excel,切换到VBE,再打开 工具-引用,对话框是不是OK了?

[ 本帖最后由 zldccmx 于 2009-7-27 12:38 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 12:14 | 显示全部楼层
以下是操作录像,与您分享!
diy.gif

[ 本帖最后由 zldccmx 于 2009-7-27 12:40 编辑 ]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 12:41 | 显示全部楼层
这是一个修改之后的文件,你可以下载,然后覆盖C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052下的同文件即可
覆盖之前,必须关闭EXCEL和WORD等与VBA相关的应用。
VBE6INTL.rar (25.85 KB, 下载次数: 513)
效果图
DIYOK.GIF

[ 本帖最后由 zldccmx 于 2009-7-27 13:04 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-7-27 12:47 | 显示全部楼层
坐沙发,好东西,一起分享,感谢老朽

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 13:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
呵呵,经过自己动手修改之后,你 是不是很有成就感?

哈哈,你完全可以自豪:“我都可以修改MS的东东了!!”

对,这就是DIY的乐趣!

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-27 13:31 | 显示全部楼层
从此以后,只要你看着不顺眼的对话框都 可以尝试这样来修改
不过有一条得记住了,一定要先备份,万一改砸了还可以手动恢复

TA的精华主题

TA的得分主题

发表于 2009-7-27 14:16 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-7-27 19:03 | 显示全部楼层
姜还是老的辣啊^_^
谢谢老朽共享

[ 本帖最后由 bibisin 于 2009-7-27 19:05 编辑 ]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 13:01 , Processed in 0.057027 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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