1樓：
1、按下組合鍵alt+f11，開啟vba**編輯視窗。
2、vba單元格中生成彈出式選單第二步，在左側的vba工程視窗空白區域上右擊滑鼠，彈出選單中選擇「插入」——「模組」。
3、vba單元格中生成彈出式選單第三步，在新建的模組中，輸入以下**。
4、定義一個commandbar物件型別，用來儲存單元格右鍵快捷選單命令項。
5、再定義了一個選單項物件，指向commandbar物件型別的一個新增選單項，並指定單擊新增的命令時執行的子過程名稱為test，顯示為測試。
6、再定義一個子過程test，用來響應選單的動作。
7、vba單元格中生成彈出式選單第四步，將游標定義在第一個過程中，按f5執行該過程。
8、最終效果如圖所示。
2樓：匿名使用者
先用選單編輯器編輯一個帶有子選單的選單，如需美觀，該選單可以隱藏。再用popupmenu函式呼叫這個選單。
格式：popupmenu (選單名稱)
例子：popupmenu mnupopup執行結果：
3樓：du瓶邪
用mouseup事件裡的 button引數 1表示左鍵 2表示右鍵建一個選單 vbfile 子選單vbright:
(右鍵點選窗體 就會彈出 vbfile下的幾個子選單了)private sub form_load()vbfile.visible = falseend sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
select case button
case 1
print "點選了左鍵"
case 2
print "點選了右鍵"
popupmenu vbfile
end select
end sub
vb 中彈出式選單怎麼寫
4樓：
彈出式選單名稱為： a
寫入：private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then popupmenu a
end sub
還可以繼續編寫子選單：用mouseup事件裡的 button引數（1表示左鍵 2表示右鍵）
建一個選單 vbfile 子選單vbright: (右鍵點選窗體 就會彈出 vbfile下的幾個子選單了)
寫入：private sub form_load()
vbfile.visible = false
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
select case button
case 1
print "1"
case 2
print "2"
popupmenu vbfile
end select
end sub
以上這樣就可以了。
5樓：顧傾城
1、vb彈出式選單，先寫欄目和彈出列表，如圖所示。
2、開啟vb軟體，新建一個工程，新增一個文字框，將其text屬性清空，設定scrollbars屬性為2-vertical，multiline屬性設定為true，如圖所示。
3、在選單欄選擇【工具】選項下的【選單編輯器】，然後進入選單編輯器對話方塊。
4、接著新增檔案選單，做箭頭表示將選單升級，右箭頭表示將選單降級，上箭頭和下箭頭可以移動選單項的位置。
5、然後新增新建、開啟、儲存、另存為等選項欄目，如圖所示。
7、接著就可以完成選單製作了，效果如下圖所示。
6樓：匿名使用者
彈出式選單，首先要建立選單物件。方法是，把你要彈出的選單當成是一個正常展示在窗體頂部的選單，使用選單編輯器將它製作出來。比如：
新增一個標題是「彈出選單」名稱是「menu1」的根選單項，在其下層你可能要新增複製、貼上、這是什麼…這樣的子選單項作為彈出選單的內容，內容你隨意，這裡不細究。最後要把根選單項的「可見」對勾去掉。
建立完選單物件後，便可以使用popupmenu方法來彈出選單。方法是：
popupmenu 選單物件名
繼續上個例子，就是
popupmenu menu1
這個方法後面還有很多可選引數，如協調位置等，這些待你自己慢慢研究，這裡不細究。如果你的彈出選單是通過按右鍵彈出的話，通常會把它放到mousedown事件中，繼續上個例子，就是
private sub 控制元件_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then '如果點的是右鍵
popupmenu menu1
end if
end sub
7樓：
if button = 2 then '如果是右鍵popupmenu mnuedit, vbpoupmenurightbutton
『mnuedit是要彈出的選單的名稱，改成你'要彈出的選單的名稱
end if
8樓：微言悚聽
1、vb彈出式選單，先寫欄目和彈出列表，如圖所示。2、開啟vb軟體，新建一個工程，新增一個文字框，將其text屬性清空，設定scrollbars屬性為2-vertical，multiline屬性設定為true，如圖所示。3、在選單欄選擇【工具】選項下的【選單編輯器】，然後進入選單編輯器對話方塊。
4、接著新增檔案選單，做箭頭表示將選單升級，右箭頭表示將選單降級，上箭頭和下箭頭可以移動選單項的位置。5、然後新增新建、開啟、儲存、另存為等選項欄目，如圖所示。6、建立好檔案選單之後，單擊「下一個」選項，使之成為一級選單，接著設定「編輯」等功能。
7、接著就可以完成選單製作了，效果如下圖所示。
vb 右鍵彈出式選單製作
9樓：匿名使用者
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then popupmenu file
end sub
怎麼製作vb彈出式選單 10
10樓：
彈出式選單，首先要建立選單物件。方法是，把你要彈出的選單當成是一個正常展示在窗體頂部的選單，使用選單編輯器將它製作出來。比如：
新增一個標題是「彈出選單」名稱是「menu1」的根選單項，在其下層你可能要新增複製、貼上、這是什麼…這樣的子選單項作為彈出選單的內容，內容你隨意，這裡不細究。最後要把根選單項的「可見」對勾去掉。
建立完選單物件後，便可以使用popupmenu方法來彈出選單。方法是：
popupmenu 選單物件名
繼續上個例子，就是
popupmenu menu1
這個方法後面還有很多可選引數，如協調位置等，這些待你自己慢慢研究，這裡不細究。如果你的彈出選單是通過按右鍵彈出的話，通常會把它放到mousedown事件中，繼續上個例子，就是
private sub 控制元件_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then '如果點的是右鍵
popupmenu menu1
end if
end sub