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

york888

这么快就更新了~!感谢李东华版主的杰作!

HermesZ

用了，不错，方便多了。给你鲜花~~

FENGJUN

Ldhyob斑竹太客气了。

我试用了修订后的主文件，想创建如图所示的菜单 a_主菜单 b_子菜单 bb_b子菜单菜单项 c_子菜单 cc_c子菜单菜单项

问题1：鼠标选中a时，无线按钮会自动切换到子菜单而不是主菜单； 问题2：此时，“层级校验”成功，而“生成代码”则因层级校验问题无法通过

[此贴子已经被作者于2005-7-27 15:53:16编辑过]

ldhyob

以下是引用FENGJUN在2005-7-27 15:43:17的发言：

Ldhyob斑竹太客气了。

我试用了修订后的主文件，想创建如图所示的菜单 a_主菜单 b_子菜单 bb_b子菜单菜单项 c_子菜单 cc_c子菜单菜单项

问题1：鼠标选中a时，无线按钮会自动切换到子菜单而不是主菜单； 问题2：此时，“层级校验”成功，而“生成代码”则因层级校验问题无法通过

呵呵,刚才没改完全.再次修正. 再次感谢FENGJUN

涵默

我下不了呢？

FENGJUN

Ldhyob：

欲建立如下样式的自定义主菜单：

DemoMenu(主菜单) A(子菜单)_AA(菜单项) B(子菜单)_BB(菜单项) C(子菜单)_CC(菜单项) D(子菜单)_DD(菜单项) E(子菜单)_EE(菜单项) 于是我用最终修订版建立了下面的层级样式：

单运行生成代码后却出现了下面的结果，非所欲也。

问题在哪里呢？

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

进一步建言： 如果能将其改写成COM 加载项就更好了(很赞同Button的建议)： ——既能将代码生成于记事本中，又能直接将代码生成于一个新建的工作簿的模块中； ——在AddCustomMenu过程中增加Application.CommandBars("Worksheet Menu Bar").Reset一句，以免重复运行时生成重复菜单； ——能自动在主菜单的最后建立一个菜单项“清除本菜单”，指定其宏名为“RemoveCustomMenu”。

不过这个EXE版本随着日臻完善，也很有存在的必要。

《菜单代码生成器》最终肯定会成为一款经典的、人手必备的Excel菜单开发工具，非常有意义！这或许时迄今最简便最直观的Excel菜单生成工具了。

[此贴子已经被作者于2005-7-29 11:59:16编辑过]

zhao__feng

谢谢，我下载了

dsunway

谢谢, 好东西哦

ldhyob

非常感谢FENGJUN的不断测试并提出问题和宝贵的建议.现在楼顶附件已更新,设计所需功能已具备.

对于之前曾下载过本程序的版友们在使用过程中因BUG带来的不便,表示歉意.呵呵.

plxmm

呵呵，ldhyob 版主 盐重了。