?

如下圖所示，當(dāng)鼠標(biāo)右鍵單擊excel工作表中的單元格時(shí)，將會(huì)彈出單元格右鍵快捷菜單。

雖然從excel 2007開(kāi)始 微軟引進(jìn)了ribbon 功能區(qū)來(lái)代替excel 常規(guī)菜單欄，但是像上圖所示的鼠標(biāo)右鍵快捷菜單還有很多沒(méi)有被替代。

vba 中提供了給菜單增加自定義命令的功能?？梢杂肅ommandBar對(duì)象獲取指定的菜單命令欄，然后用CommandBar對(duì)象的Controls屬性獲取所有的命令按鈕集合，最后用新增集合元素的方法添加新的菜單命令。
比如以下代碼可以在上圖所示的單元格右鍵快捷菜單中添加自定義的菜單命令。當(dāng)單擊新增的“測(cè)試”菜單命令時(shí)，將會(huì)執(zhí)行“l(fā)yq”子過(guò)程。

Visual Basic

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub xyf() ????Dim objCB As CommandBar ????'獲取單元格右鍵快捷菜單命令欄 ????Set objCB = Excel.Application.CommandBars("Cell") ????Dim oCBC As CommandBarControl ????With objCB ????????.Reset ????????'往單元格右鍵快捷菜單中新增菜單命令 ????????Set oCBC = .Controls.Add(before:=1) ????????With oCBC ????????????'指定單擊新增的命令時(shí)執(zhí)行的子過(guò)程名稱(chēng) ????????????.OnAction = "lyq" ????????????.Caption = "測(cè)試" ????????End With ????End With End Sub Sub lyq() ????MsgBox 1 End Sub

如圖所示

?

總結(jié)

以上是生活随笔為你收集整理的如何用vba在单元格右键快捷菜单中添加自定义的菜单命令的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。