[原创][分享]我的菜单代码生成器(EXCEL VBA)

呵呵，好久没在论坛发帖了，昨晚利用了一些时间把自己原来做了一半的东西做完了，也就是这个《菜单代码生成器(EXCEL VBA)》，现在把它放上来，希望大家能用的着它。

简单介绍一下制作初衷，一般的开发类语言平台都提供了自定义菜单编辑或生成之类的工具，以方便用户在写代码时规范且提高效率，而我们的EXCEL VBE里却没有提供类似的功能，所以产生了自己制作一个能自动生成VBA代码的想法。

在论坛上已见过网友发过一些相关的帖，是直接利用工作表来设置菜单项目进而获得代码的，与此不同，我做的这个小工具仿照了其他开发平台一般采用的编辑界面，并整合了菜单项图标的即时浏览设定，在设置调整各菜单项目的级次与内容时显得更方便快捷。

几点使用提示：

①热键设置：在“标题”中加入&带字母，如“文件(&F)”； ②分隔线：将“标题”设置为“-”，即一个减号； ③在生成代码前应设置好各菜单项目的级次，符合锯齿缩进即可，不允许出现跳级。使用时可用“层级校验”钮进行复核。 ④生成的代码将会用记事本打开，全部拷贝后，粘贴入EXCEL的XLS文件的模块中，执行AddCustomMenu子程序即可。 ⑤在用该代码显示菜单后，使用者若需删除，可执行恢复系统菜单命令。 ⑥对设置了“宏名”和“快捷键”的菜单项目，用户应另行编写代码，否则菜单仅是显示而不会响应事件。 另外，该工具没有提供保存功能，原来想让程序自动将代码写进指定XLS的设计想法也暂时没做，呵呵，懒啦。欢迎大家测试试用，并提宝贵意见！

先来看看程序运行界面： rXd7FHJC.rar (40.39 KB, 下载次数: 2707)

[color="#FF0000"]非常感谢[color="#113DEE"]FENGJUN[/COLOR]的细心测试,才发现存在众多BUG,利用一晚上做出来的东西确实太粗糙了,代码考虑不周,遗漏之处,还请大家海涵,由此给大家带来不便之处,请大家原谅. [color="#113DEE"]FENGJUN[/COLOR]指出的问题及提出的建议非常恰当,特别感谢[color="#113DEE"]FENGJUN[/COLOR]付出的劳动!现已重新修订代码,几处关键BUG已获更正,将"标题"及"宏名"改为下拉框的建议也很好，不过现在暂时未做.

BUTTON和FENGJUN提出将此转为EXCEL加载宏的建议非常之好,使之能将产生的代码直接嵌入当前XLS的模块中,以后有时间,一定完成这项任务,呵呵.

继续欢迎大家指出BUG... <完>

谢谢分享!

用迅雷下载！

版主的原创必属精品

我也下载不来

ldhyob=经典*(创意+作品)

只是安装图片库的时间忒长

[em27]等...

能否提供选择选择安装呢？

现在不能下载了~~!