No.1
Excel給我們的感覺就是，靈活性比較好，自定義很方便，但是在使用過程當中，或許我們自定義功能用得十分的少，甚至從未用過。
其實呢，由於Excel太過隨意，完全可以設計一個十分修改化的工作界面。
不過這也是一個比較麻煩的過程，首先學會如何自定義各個項目菜單。
然後找到相關功能進行菜單布局設置。
在此過程中基本上都放棄了。
下面我們簡單介紹一下，如何用VBA代碼，給滑鼠右鍵添加一個自己定義函數或者過程。
No.2
右鍵也可以自定義，也許不是很熟悉的人，對此也十分陌生。
但並不會影響我們對此學習的探究。
Windows有一個好處，就是相對開放且可以自由設置，畢竟盜版系統很多，微軟也一直默認這種情況繼續下去。
可能其根本原因是不想失去免費帶來的市場佔用率，間接帶動收費用戶增加吧！
經濟上的事情，我們不談，只討論如何將自己的工作做好。
No.3
接入正題，滑鼠左鍵可以自由添加，其實際意義在於，如果工作當中對於某一個功能操作有十分高的頻率，那麼滑鼠右鍵彈出快捷功能將是一個十分有用的方法。
下面就如何增加滑鼠左鍵，做一個簡單介紹。
下圖為例，給右鍵增加一個計算求和功能。
求和區域就是滑鼠所選擇的區域。
以對話框的形式將求和結果輸出，如果可以不妨用你想用的方式來進行存儲結果。
左側列表為滑鼠右鍵所有功能名稱，這個功能在第一個按鈕實現。
把所有滑鼠右鍵的功能都顯示在第一列中，不同的電腦內容可能不一樣，這個隨Excel設置來決定。
No.4
單擊「添加右鍵菜單」按鈕就在滑鼠右鍵裡添加了一個功能項目，如下圖：
求和計算右鍵功能就添加進來了，以後對表格進行求和，可以直接右鍵單擊此功能項目就實現求和了。
添加右鍵過程
Sub AddRightCom()'在單元格滑鼠右鍵快捷菜單中新建一個名為「求和計算」的命令按鈕 If CheckComm Then Exit Sub'檢測是否已經添加「求各計算」 With Application.CommandBars("Cell").Controls.Add(before:=1) .Caption = "求和計算" .OnAction = "test"'要執行的過程名 End WithEnd Sub
檢測是否已經添加「求和計算」
Function CheckComm() As Boolean '判斷按鈕是否已經添加CheckComm = False Dim com As Object For Each com In Application.CommandBars("Cell").Controls If com.Caption = "求和計算" Then CheckComm = True Exit For End If Next comEnd Function
這個示例以對話框形式將求和結果顯示出來，如果要把求和的值添加到特定位置，還需要進行代碼處理。
求和過程
Sub test()MsgBox Application.WorksheetFunction.Sum(Selection)End Sub
No.5
本例用到CommandBars對象，以及Add屬性。
代碼示例：
Application.CommandBars("Cell").Controls.Add(before:=1)
方法
Application.CommandBars.Controls.add(Name,Position,MenuBar,Temporary)
具體使用可查看下面地址：
https://docs.microsoft.com/zh-cn/office/vba/api/office.commandbars.add
No.6
本文主要以添加滑鼠右鍵功能為例，做一個簡單介紹，如果想在實際應用中添加自己定義的函數或過程，需要大量的時間去驗證，所以此方法推薦有意要對Excel應用操作個性化定製的朋友。
當然了CommandBars不僅包括滑鼠右鍵，也包括菜單欄、功能欄等等個性化定製功能，大家可以觸類旁通、舉一反三進行深入學習。
歡迎關注、收藏