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

ldhyob

以下是引用plxmm在2005-7-29 11:52:01的发言： 呵呵，ldhyob 版主 盐重了。

呵呵,对plxmm对该帖的支持也表示衷心的感谢!

FENGJUN

Ldhyob:

建言： 能否再创建2按钮，一为“保存”，一为“打开”，前者用来将层级结构信息保存为一个文本文件，后者用来打开已存在的层级结构信息文件，以便将来进一步修改使用。

在最新版中偶然发现2点情况，或许需要处理：

1）当所有的标题都相同时，代码生成的菜单就有可能混乱(如下图)。当然，在实际中谁也不会创建所有的标题都相同的菜单。 结果：

2）当输入的标题为超长字符串时（如偶然粘入了字串“Application.CommandBars("Worksheet Menu Bar").Reset”），程序会崩溃退出。

[此贴子已经被作者于2005-7-29 14:18:12编辑过]

ldhyob

以下是引用FENGJUN在2005-7-29 14:10:08的发言：

建言：

能否再创建2按钮，一为“保存”，一为“打开”，前者用来将层级结构信息保存为一个文本文件，后者用来打开已存在的层级结构信息文件，以便将来进一步修改使用。

偶然发现的2点情况，或许需要处理：

1）当所有的标题都相同时，代码生成的菜单就有可能混乱(如下图)。当然，在实际中谁也不会创建所有的标题都相同的菜单。

结果：

2）当输入的标题为某种字符串时（如偶然粘入了字串“Application.CommandBars("Worksheet Menu Bar").Reset”），程序会崩溃退出，过长原因？

呵呵,这个是我原来在写这个代码的时候就考虑到的问题,不过因为觉得大家如果真的使用它的时候,可能也就是使用一次,所以就没有提供保存与打开的功能.这在楼顶的帖里就提出了.FENGJUN兄既然提出建议,我决定将此功能加入:)

相同标题的问题,我觉得应该在代码里加入容错处理,应该不允许出现同级次的相同标题的情况.

对提出的问题2,是因为为标题中含有了双引号的原因.

太好了,有FENGJUN的耐心测试,这个程序肯民的定会越来越完善,谢谢FENGJUN兄.

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

hxhgxy

兄弟，终于“出关”了？学习一下大作！

顺便问一下，你如何将2M以上的附件贴上来的呢？

yyxxdd

谢谢！加紧学习！

王晖辉

收下,感谢

小奔

好象不能建立两个主菜单，只能建一个，而另外一个建不了下级菜单。

ldhyob

以下是引用hxhgxy在2005-7-29 19:03:26的发言：

兄弟，终于“出关”了？学习一下大作！

顺便问一下，你如何将2M以上的附件贴上来的呢？

虎兄最近少见在论坛露面了?都忙啥去了,呵呵.我因为工作变动,所以较少上网.至于2M多的附件我是上传到另一个FTP服务器上的,在坛里挂了下载链接

ldhyob

以下是引用小奔在2005-7-29 21:26:57的发言： 好象不能建立两个主菜单，只能建一个，而另外一个建不了下级菜单。

小奔请下载最新更新的附件.按照锯齿缩进层级结构建立应该不会有问题,呵呵

清风_ll

[em17]

发现BUG:在新增菜单项时不能自动缩进,需再次选中该条目时才会缩进(生成的代码不同)

弄不明白主菜单与子菜单的分别(生成代码一样,效果也一样都是在菜单栏中生成一子菜单)

悄悄问一下:是用VB做的吗?[em31]