EXCEL 自定义菜单

Sub XXXscrap()

Dim XXX As CommandBarPopup Dim scrap As CommandBarPopup Dim about As CommandBarControl

Dim finderror As CommandBarControl Dim cleanup As CommandBarControl Dim updatascrap As CommandBarControl

‘菜单栏出现公司名称 Set XXX = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) XXX.Caption = "XXX公司"

‘点击XXX公司，出现两个子项 Set scrap = XXX.CommandBar.Controls.Add(Type:=msoControlPopup) scrap.Caption = "Scrap"

Set about = XXX.CommandBar.Controls.Add(Type:=msoControlButton, ID:=2950) about.Caption = "About" about.OnAction = "abouttony"

‘点击scrap，出现三个子项 Set cleanup = scrap.CommandBar.Controls.Add(Type:=msoControlButton) cleanup.Caption = "Clean up data" cleanup.OnAction = "cleanuptony"

Set finderror = scrap.CommandBar.Controls.Add(Type:=msoControlButton) finderror.Caption = "Find error data" finderror.OnAction = "finderrortony"

Set updatascrap = scrap.CommandBar.Controls.Add(Type:=msoControlButton) updatascrap.Caption = "Updata Scrap" updatascrap.OnAction = "updatascraptony"

End Sub