| 楼主 罗刚君 |
出一个VBA题目 很简单的 五句代码就行可以完成  请看上图 也就是在Excel 2007中产生经典菜单，而且所有菜单的功能都有效 |
| 2楼 chrisfang |
|
| 3楼 chrisfang |
罗版，为什么别的测试题都是加技能分，唯独我的是加魅力分呢？难道我的魅力太低啦？ |
| 4楼 罗刚君 |
我只看到这个选项哦2.png |
| 5楼 biaotiger1 |
 方版太有才啦 |
| 6楼 chrisfang |
呵呵，我看了一下我也只有这个选项，看来可能跟“休假”有关。 |
| 7楼 biaotiger1 |
 两个问题 1、方版的程序我运行有问题呀？截图如上 2、一旦运行通过后，如何恢复呢？ 谢谢 |
| 8楼 chrisfang |
问题一，变量a和过程的名称a应该取不一样的名字吧。 问题二，CommandBars("mybar").Delete |
| 9楼 yardview |
为什么代码不能放在 ThisWorkbook中，自动生成经典菜单，关闭前自动删除呢？ Private Sub Workbook_Open() Set tbar = CommandBars.Add("mybar") tbar.Visible = True For Each a In Array(1, 4, 8, 10, 13, 18, 23, 27, 28) CommandBars("Built-in Menus").Controls(a).Copy (tbar) Next End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) CommandBars("mybar").Delete End Sub |
| 10楼 nothingwmm |
不能放在Thisworkbook里面，需要放在新插入的 “模块” 里面 |
| 11楼 天远的三国 |
这个创建的不是临时菜单，怎么去掉呢,我运行了几次后，就算CommandBars("mybar").Delete也去不掉，有时，出现两行相同的菜单栏了 |
| 12楼 天远的三国 |
word 和 ppt 怎么写 |
| 13楼 JOYARK1958 |
謝謝提供學習 |