[已解决]求助修改vba，以满足要求。

monkeymini

希望高手出手帮助。文件内有说明，谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-13 14:33

下拉菜单.rar (17.53 KB, 下载次数: 11)

2013-6-13 14:32 上传

点击文件名下载附件

发现问题所在了，原来用的STR函数，所有的非数字就报错了。

跳转到最佳答案楼层

hwc2ycy

这个右键菜单是单号对应的客户来显示在菜单中的。
跟是不是纯数字，字母，或者数字字母混合无关系，一切都是根据你的入库明细来实现的。
只要你的入库明细里有什么单号就成。
不信你可以在入库明细里增加一个字母数字混合的单号一测试就知道了。

hwc2ycy

你在入库明细里更改数据后，再回到生产明细工作表后会提示是否更新右键菜单的，这里你更新后就会看到新的数据项了。

hwc2ycy

下拉菜单.rar (17.53 KB, 下载次数: 11)

2013-6-13 14:32 上传

点击文件名下载附件

发现问题所在了，原来用的STR函数，所有的非数字就报错了。

hwc2ycy

把所有的STR函数换成CSTR函数就可以了。

hwc2ycy

为什么加用CSTR转化呢。
因为你在直接指定INDEX时，类型可以是数值，也可以是字符串。
如果是数值，那就按COMMANDBARS里的元素排序ID取，如果是字符串，就按每一项的名称匹配。

hwc2ycy

代码列出工具栏菜单项。

1. Sub ListCommandbars()
   
2.     Dim objCmdbar As CommandBar
   
3.     For Each objCmdbar In CommandBars
   
4.         With objCmdbar
   
5.             Debug.Print .Name, .Index
   
6.         End With
   
7.     Next
   
8. End Sub

复制代码

monkeymini

非常感谢hwc2ycy，一切ok了，谢谢。