不卡AV在线|网页在线观看无码高清|亚洲国产亚洲国产|国产伦精品一区二区三区免费视频

學(xué)習(xí)啦>學(xué)習(xí)電腦>電腦硬件知識(shí)>鍵盤鼠標(biāo)>

excel鼠標(biāo)右鍵菜單是怎么設(shè)置

時(shí)間: 鎮(zhèn)權(quán)965 分享

  使用ECXEL表做事的時(shí)候,特別是當(dāng)有一大堆數(shù)據(jù)處理,除了快捷鍵使用。鼠標(biāo)右鍵菜單還可以設(shè)置的呀。下面學(xué)習(xí)啦小編整理了excel鼠標(biāo)右鍵菜單怎么設(shè)置的知識(shí),希望能幫到大家O(∩_∩)O哈哈~

  excel鼠標(biāo)右鍵菜單怎么設(shè)置

  1.在宏編輯器下。選中ThisWorkbook,輸入如下代碼。

  1234567891011121314151617181920212223242526272829303132333435363738394041424344454647Private Sub Workbook_Open()

  刪除右鍵菜單

  添加右鍵菜單

  End Sub

  2.新建一個(gè)模塊,輸入如下代碼:

  '------------------------------------------------------------------------分割線

  Sub 添加右鍵菜單()

  With Application.CommandBars("cell").Controls _

  .Add(Type:=msoControlButton, _

  temporary:=True)

  .Caption = "功能1"

  .FaceId = 986

  .OnAction = "MyMacro1"

  End With

  '------------------------------------------------------------------------分割線

  With Application.CommandBars("cell").Controls _

  .Add(Type:=msoControlButton, _

  temporary:=True)

  .Caption = "功能2"

  .FaceId = 931

  .OnAction = "MyMacro2"

  End With

  '------------------------------------------------------------------------分割線

  End Sub

  '------------------------------------------------------------------------分割線

  3.Sub 刪除右鍵菜單()

  '刪除右鍵菜單,重置

  Application.CommandBars("cell").Reset

  End Sub

  Sub mymacro1()

  Application.Run "PERSONAL.xls!功能1"

  End Sub

  Sub mymacro2()

  Application.Run "PERSONAL.xls!功能2"

  End Sub

  Public Sub 功能1()

  '輸入功能1的代碼

  End Sub

  Public Sub 功能1()

  '輸入功能2的代碼

  End Sub

  保存excel以后,關(guān)閉重新打開,右鍵即可看到效果。

  完成以上步驟,相信小編整理的知識(shí)一定能解決你的問題啦。獲取更多,上學(xué)習(xí)啦。

2150718