[算表] Excel新增快顯功能
軟體: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
→
12/03 15:02, , 1F
12/03 15:02, 1F
→
12/04 15:50, , 2F
12/04 15:50, 2F
→
12/04 15:51, , 3F
12/04 15:51, 3F
→
12/05 11:26, , 4F
12/05 11:26, 4F
→
12/08 15:24, , 5F
12/08 15:24, 5F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
