ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

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

[原创]新突破:UserForm菜单编辑器及代码生成加载宏!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-6-16 22:09 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:VBE工具

熟悉VB的网友都知道,VBE的环境下点击窗体会有自定义菜单编辑器这一工具出现.菜单编辑器是方便用户在编程时提高开发效率和规范代码. 但我们都知道在的EXCEL VBE环境中却没有此工具,所以我决定编一个加载宏以方便VBA开发者使用.

在此之前,李东华先生有写过大作: 我的菜单代码生成器(EXCEL VBA)http://club.excelhome.net/viewthread.php?tid=112039&replyID=&skin=0  此作品是针对EXCEL界面的菜单.此工具大大加强和改善的VBA开发者的速度和效率.

UserForm窗体菜单编辑器及代码生成加载宏 作品的基本思路是模仿VB的菜单编辑器而制作.所以使用方法也是很类似:

首先注册加载此DLL.在VBE环境下(支持所有OFFICE软件  Excel,Word,PPT,Outlook, ACCESS,Visio etc),在窗体上点击右键,出现相应工具.

①菜单及热键设置:在“标题”中加入&带字母,如“文件(&F)”,菜单支持中英文;

 ②分隔线:将“标题”设置为“-”,即一个减号;

 ③设置好各菜单项目的级次,符合锯齿缩进即可,跟VB一样;

 ④按Preview时,窗体会生成的代码.在Preview窗体会模拟菜单出现.(所见即所得);

⑤按生成菜单,程序会自动写入相应的代码在模块中.模块名字按相应的规律生成.但对VBE窗体中的代码用拷贝Preview窗体中代码的方式,粘贴到VBE窗体中.然后退出.

 ⑥然后,菜单代码的相应的框架基本行了,用户另还需再编写相应代码,否则菜单仅是显示而不会响应事件。具体可以启动VBE窗体进行测试.

懒得做成安装程序,直接运行一下BAT文件就可注册此DLL.在VBE环境的UserForm窗体上点右键,可看到新增的菜单编辑器菜单.点此菜单就可以测试了.


4XTUTj6I.zip (137.63 KB, 下载次数: 902)

[原创]UserForm窗体菜单编辑器及代码生成加载宏!

[原创]UserForm窗体菜单编辑器及代码生成加载宏!

[原创]UserForm窗体菜单编辑器及代码生成加载宏!

[原创]UserForm窗体菜单编辑器及代码生成加载宏!

TA的精华主题

TA的得分主题

发表于 2007-6-16 22:59 | 显示全部楼层

正是急需要用的,谢谢版主,下载试用先!

版主能否一并提供VB的源代码,最近对VB倍感兴趣,谢谢!

[此贴子已经被作者于2007-6-16 23:09:56编辑过]

TA的精华主题

TA的得分主题

发表于 2007-6-17 17:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-6-24 11:25 | 显示全部楼层

没成功。

在界面输入相应文字后点预览,什么都没有。

也没有产生代码。

TA的精华主题

TA的得分主题

发表于 2007-6-24 16:58 | 显示全部楼层

to stanleypan

bug:

同4楼,注册并引用后,按Preview时无反应.

测试环境:XP2+OFFICE2003

TA的精华主题

TA的得分主题

发表于 2007-6-25 17:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-7-7 19:20 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-7-10 21:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-7-14 20:44 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-7-14 21:56 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2019-8-24 01:37 , Processed in 0.150171 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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