返回列表 上一主題 發帖

Excel中，右鍵新增項目

cchaha_captain

帖子
8 
主題
2 
精華
0 
積分
55 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-21 
最後登錄
2012-8-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-9-19 22:48 | 只看該作者

Excel中，右鍵新增項目

請問一下，例如在windows檔案總管內，我們可以透過某些方法，在按下右鍵所啟動的選單中，加入我們想要的項目。
那在excel中有沒有類似的功能，例如隨便一個儲存格上按下右鍵所啟動的選單中，加入一個項目，而這個項目可以打開我自己做的form或combo，不知excel的vba能否達到此功能？
請教各位前輩，謝謝各位！
收藏 分享

cchaha_captain

帖子
8 
主題
2 
精華
0 
積分
55 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-21 
最後登錄
2012-8-13 
3#
發表於 2011-9-20 00:10 | 只看該作者
好厲害！回應好快！成功了，謝謝oobird！

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-9-19 23:12 | 只看該作者
例如：
Sub xx()
With Application.CommandBars("Cell")
    .Reset
    .Controls.Add(Type:=msoControlButton, before:=2).Caption = "巨集1"
    .Controls("巨集1").OnAction = "yy"
    End With
End Sub
在右鍵的第二項增加一個執行巨集1的項目，該項目指向名為"yy"的巨集
離開時要移除
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("cell").Reset
End Sub

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題