[算表] Excel新增快顯功能

[home0303 (Blue night)]

軟體:EXCEL

版本:2010

平常我有個習慣   將常用的巨集新增到工具列   VBA如下：

Sub NowToolbar2015()
    Dim Toolbar As CommandBar
    On Error Resume Next
    Application.CommandBars("MyToolbar").Delete
    Set Toolbar = Application.CommandBars.Add( _
                Name:="MyToolbar", Position:=msoBarTop)
        With Toolbar
            .Protection = msoBarNoResize
            .Visible = True
            With .Controls.Add(Type:=msoControlPopup)
                .Caption = "資產負債表"
                .FaceId = ""
                .BeginGroup = True
                .OnAction = ""
                .Style = msoButtonIconAndCaptionBelow
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "現金"
                    .FaceId = ""
                    .OnAction = "巨集1"
                End With
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "應收帳款"
                    .FaceId = ""
                    .OnAction = "巨集2"
                End With
            End With
            With .Controls.Add(Type:=msoControlPopup)
                .Caption = "損益表"
                .FaceId = ""
                .BeginGroup = True
                .OnAction = ""
                .Style = msoButtonIconAndCaptionBelow
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "銷售收入"
                    .FaceId = ""
                    .OnAction = "巨集3"
                End With
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "銷貨成本"
                    .FaceId = ""
                    .OnAction = "巨集4"
                End With
            End With
        End With
 End Sub

請問有沒有辦法可以將這樣的指令   賦予新增到右鍵的快顯功能中

當然原本的快顯功能不變


謝謝

--



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.41.19
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1417575911.A.A8A.html
→ soyoso: http://goo.gl/x10rJc 試試
→ home0303: 謝謝  請問可以先第一層「報表」  然後第二層
→ home0303: 「現金」「應收款」 這樣嗎   謝謝
→ soyoso: 上面連結重下試試
→ home0303: 謝謝！