为什么提示下标越界？

月满西楼雪

Sub 打开总账()
Sheets("总账").Visible = True
Sheets("总账").Select
End Sub
Sub 打开明细分类账()
Sheets("明细分类账").Visible = True
Sheets("明细分类账").Range("O2").Select
End Sub
Sub 打开总分类账()
Sheets("总分类账").Visible = True
Sheets("总分类账").Select
End Sub
Sub 打开收支明细账()
Sheets("收支明细账").Visible = xlSheetVisible
Sheets("收支明细账").Activate
Sheets("收支明细账").Select
End Sub

我在菜单栏调用时，总账的可以，后面的三个为什么不对，是不是页码多了就不对啦，求各位高手解决？

月满西楼雪

'菜单三
Set MyBar3 = MyBar.Controls.Add(Type:=msoControlPopup)
MyBar3.Caption = "会计账簿(&K) "
Set MyBar31 = MyBar3.Controls.Add(Type:=msoControlButton)
With MyBar31
    .Caption = "总账(&L)"
    .Style = msoButtonIconAndCaption
    .FaceId = "942"
    .OnAction = "打开总账"
End With
Set MyBar32 = MyBar3.Controls.Add(Type:=msoControlButton)
With MyBar32
    .Caption = "收支明细账(&M)"
    .Style = msoButtonIconAndCaption
    .FaceId = "3736"
    .OnAction = "打开收支明细账"
End With
Set MyBar33 = MyBar3.Controls.Add(Type:=msoControlButton)
With MyBar33
    .Caption = "明细分类账(&N)"
    .Style = msoButtonIconAndCaption
    .FaceId = "2560"
    .OnAction = "打开明细分类账"
End With

Set MyBar34 = MyBar3.Controls.Add(Type:=msoControlButton)
With MyBar34
    .Caption = "总分类账(&ZZ)"
    .Style = msoButtonIconAndCaption
    .FaceId = "2566"
    .OnAction = "打开总分类账"
End With

lu_zhao_long

月满西楼雪 发表于 2012-12-29 21:44
'菜单三
Set MyBar3 = MyBar.Controls.Add(Type:=msoControlPopup)
MyBar3.Caption = "会计账簿(&K) "

请问楼主，MyBar3 是什么类型的命令条呢？

月满西楼雪

自定义菜单

hehex

月满西楼雪 发表于 2012-12-30 18:30
自定义菜单

先找找那些名字的Sheets 是否真的存在。
出现下标越界错误提示的情况，个人经验遇到过两种，第一种是数组，很明显不适合你的例子情况，貌似没有定义数组。第二种情况就是引用对象的时候该对象并不存在，或不可访问。
总帐可以应该是有一张表名字叫" 总帐" 的，后面3个下标越界，你对对后面3张表的名称先。

月满西楼雪

有这几个表呀

月满西楼雪

Sheet14.Visible = True
  Sheet14.Activate
  Sheet14.Select

月满西楼雪

hehex 发表于 2012-12-30 19:59
先找找那些名字的Sheets 是否真的存在。
出现下标越界错误提示的情况，个人经验遇到过两种，第一种是数组 ...

这样就对啦
Sheet14.Visible = True
  Sheet14.Activate
  Sheet14.Select