不確定能否上鏈接，帶附件的，微信公眾號，搜【財會人nAzy】，同課程內有鏈接地址。

———————————————

函數、應用，講完了，個人感覺掌握前面課程足夠快速上手，是否如此，有待時間驗證。

接下來全面進入VBA及case，教程只有少量簡單易懂的了，而case都是追求0培訓直接應用款。

功能

除去ALT+F8直接調用sub命名的宏外，private sub的"隱私"宏前臺看不到，需要其他方式設置好調用，用菜單跟工具欄減少操作步驟，將進一步加快您的手速，手速即效率，效率即money，VBA開發出來就是個小軟件，讓不懂的人做這個事兒，便是價值所在了。

簡述

本來想兩課就講完，不過看了看后面的代碼，分成三課來講。各位同學根據自己的需求，太深澀的可以略過，畢竟不是每個人都需要掌握各種調用宏的方式，最簡單的無非是之前所說的ALT+F8方式，然而，當您從網上下載一些高手所制作的模板時，Private Sub前臺不可見且無法直接調用，同時有很多功能更是在窗體控件內。

1. 回顧一下ALT+F8調用宏

新建一個模塊，隨便敲出來三個宏。

按ALT+F8調出宏運行窗口。

可以看到增加了Private字樣的宏，并不可見，如果您直接輸入"tryb"是可以執行的，因此這種方式調用并不常用，即使是自己調試宏時，亦多在VBE窗口通過F5或者F8。

2. 按鈕及ActiveX按鈕調用

分別插入兩個按鈕，一個是普通的按鈕，一個是ActiveX控件按鈕。

(1)普通按鈕通過【指定宏】勾稽，即使看不到，我們也可以強行勾稽，這就比ALT+F8更利于其他人使用。

(2)ActiveX按鈕，打開設計模式后，雙擊后可見按鈕有自己的定義方式，這款的為窗體控件，可以有多種動作觸發方式，比普通按鈕提供的功能豐富，宏位于sheet1內，與普通按鈕通常調用模塊內的宏不同。

至此，新建選項卡與宏形成了勾稽，配合之前講過的【錄制宏】，便可開啟自己的個性化便捷功能。

通過按鈕調用宏，簡單實用，作為入門最適合不過，唯二的缺點是，一不夠美觀，二按鈕是在某個頁面內的得點過去才可以看到。

3. 前端應用自定義菜單

通過【開始】-【自定義功能區】-【新建選項卡】

將新建的選項卡拖拽【開始】選型卡之后，并對其重命名、更換圖標。

通過前端應用自定義的選項卡，簡單易懂，美觀也有了，然而僅限自己電腦可以顯示，無法分享給其他電腦使用，同時圖標有些少哦。

4. 自定義工具欄

自定義工具欄會顯示在【加載項】選項卡內，比起【菜單】而言，對于使用人更為簡單，雙擊即可使用且加入【加載項】-【EXCEl加載項】后，每次啟動Excel均會自動掛起。

這是我的工具欄：

OK，以下的部分相對生澀了，各位同學憑基礎及興趣鑒賞、學習。

【Excel加載宏(*.xlam)】or【Excel 97-2003加載宏(*.xla)】

Private Sub Auto_Open()

CreateLineStyleButton

End Sub

Private Sub myButton(myCmd As String, myname As String, _

mynum As Integer, mycom As String, mid As Integer)

On Error Resume Next

Set newButton = Application.CommandBars(myCmd).Controls.Add( _

Type:=msoControlButton, Before:=mynum)

With newButton

.Style = msoButtonIcon

.Width = 30

.BeginGroup = False

.Caption = myname

.OnAction = mycom

.FaceId = mid

End With

End Sub

Private Sub MyG(myCmd As String, myname As String, _

mynum As Integer, mycom As String, mid As Integer)

On Error Resume Next

Set NewG = Application.CommandBars(myCmd).Controls.Add( _

Type:=msoControlButton, Before:=mynum)

With NewG

.BeginGroup = True

.Style = msoButtonIcon

.Width = 30

.Caption = myname

.OnAction = mycom

.FaceId = mid

End With

End Sub

Private Sub CreateLineStyleButton()

On Error Resume Next

Dim mynum As Integer, myname As String, mycom As String, mid As Integer

Dim myPosition As Variant

myPosition = msoBarTop

Application.CommandBars("nAzyLineStyle").Delete

Application.CommandBars.Add(Name:="nAzyLineStyle

總結

以上是生活随笔為你收集整理的工具栏自定义_EXCEL LESSON12 自定义功能区菜单及工具栏(1/3)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。