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

cpali3023

LDHYOB版主：

我用了以下层次设置

A

.....A1

B

.....B1

其生成代码如下：

Sub AddCustomMenu() '建立自定义菜单主调程序 Dim cmb As CommandBarControl

Set cmb = AddCustomCommandBarPopup("A") set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A") AddCustomCommandBarItem cmb, "A1","",False,True,0,""

Set cmb = AddCustomCommandBarPopup("B") set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A") AddCustomCommandBarItem cmb, "B1","",False,True,0,"" End Sub

第七行的set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A")

应为set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("B")才是，是不是我设置错误，请指导一下，谢谢！

[此贴子已经被作者于2005-8-1 8:37:52编辑过]

stanleypan

好！~跟VB的菜单编辑器有点类似！有想法，佩服！

FENGJUN

以下是引用cpali3023在2005-8-1 8:37:15的发言：

LDHYOB版主：

我用了以下层次设置

A

.....A1

B

.....B1

其生成代码如下：

Sub AddCustomMenu() '建立自定义菜单主调程序 Dim cmb As CommandBarControl

Set cmb = AddCustomCommandBarPopup("A") set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A") AddCustomCommandBarItem cmb, "A1","",False,True,0,""

Set cmb = AddCustomCommandBarPopup("B") set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A") AddCustomCommandBarItem cmb, "B1","",False,True,0,"" End Sub

第七行的set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("A")

应为set cmb=Application.CommandBars("Worksheet Menu Bar").Controls("B")才是，是不是我设置错误，请指导一下，谢谢！

参考：

如果要生成下图所示的自定义菜单 Orlibkvf.rar (6.99 KB, 下载次数: 86)

2005-8-1 10:04 上传

点击文件名下载附件

[此贴子已经被作者于2005-8-1 10:05:22编辑过]

ldhyob

以下是引用stanleypan在2005-8-1 9:36:50的发言：

好！~跟VB的菜单编辑器有点类似！有想法，佩服！

stanleypan兄好眼力,确实就是仿照VB的菜单编辑器的界面.

ldhyob

以下是引用FENGJUN在2005-8-1 10:01:35的发言：

参考：

如果要生成下图所示的自定义菜单

谢谢FENGJUN的注解.

这个小程序的使用,无非就是注意设置菜单项目的层级,相信大家会明白的.

mink

下载安装重启后，双击桌面图标，提示：“无法启动文件OLEAUT32.DLL,请检查该文件，确定问题原因”。这时还发现桌面上的我的电脑、我的文件夹等打开后什么都看不到。IE也不好用了。

不知道发生这情况是否与该程序有关？请高人告诉我该怎么办？WIN98/OFC2000

FENGJUN

以下是引用mink在2005-8-2 14:14:51的发言：

下载安装重启后，双击桌面图标，提示：“无法启动文件OLEAUT32.DLL,请检查该文件，确定问题原因”。这时还发现桌面上的我的电脑、我的文件夹等打开后什么都看不到。IE也不好用了。

不知道发生这情况是否与该程序有关？请高人告诉我该怎么办？WIN98/OFC2000

我在98系统中也曾遇到过这个问题，不过将其他98系统中老版本的OLEAUT32.DLL覆盖本机问题文件后操作系统问题得以解除，但《编辑器》是无法使用的，同时也难以卸载。

我认为此处应提醒98系统的朋友不要安装试用。

[此贴子已经被作者于2005-8-2 15:06:17编辑过]

mink

我覆盖了，但又有新问题：文件夹等打不开了，提示：“EXPLORER该程序执行了非法操作即将关闭……”，IE也还不好用，重装IE也仍不好用。是不是非得重装系统呢？

mickwei

下载不了，能不能发到我邮箱 mickwei0928@yahoo.com.cn

ruanyb0721

下载不了，可否直接发到邮箱里 ruanyb0721@163.com

谢谢！

[em08]