基于鏈接的工作表管理菜單的設(shè)計(jì)與應(yīng)用。在Excel工作表中設(shè)計(jì)一個(gè)管理菜單,依次選中各菜單項(xiàng),執(zhí)行“插入/超鏈接”命令,分別鏈接到相應(yīng)實(shí)驗(yàn)的工作簿文檔上。其缺點(diǎn)是只能在帶管理菜單的工作表中打開(kāi)各實(shí)驗(yàn)的工作簿文檔。
采用宏可以編制多級(jí)用戶菜單取代系統(tǒng)提供的命令菜單,方法如下。
打開(kāi)文檔時(shí)自動(dòng)運(yùn)行的宏
Sub Auto_Open()
OpenMenu
End Sub
關(guān)閉文檔時(shí)自動(dòng)運(yùn)行的宏
Sub Auto_Close()
On Error Resume Next
MenuBars("MyMenu").Delete
End Sub
自定義多級(jí)菜單的宏
Sub OpenMenu()
On Error Resume Next
MenuBars("MyMenu").Delete
Sheets("物理實(shí)驗(yàn)管理").Select
MenuBars.Add ("MyMenu")'自定義菜單
'添加第1級(jí)“力學(xué)實(shí)驗(yàn)”菜單項(xiàng)
MenuBars("MyMenu").Menus.Add Caption:="力學(xué)實(shí)驗(yàn)"
'添加第2級(jí)“力學(xué)實(shí)驗(yàn)1”~“力學(xué)實(shí)驗(yàn)2”菜單項(xiàng)
MenuBars("MyMenu").Menus("力學(xué)實(shí)驗(yàn)").MenuItems.Add Caption:="力學(xué)實(shí)驗(yàn)