制作自動顯示子菜單的下拉菜單

馬震安

首先，構造子菜單及與之相關的內容。如在A1單元格輸入一個子菜單，在A2：A7輸入點擊這個子菜單后需要顯示的內容;在B1單元格輸入另一個子菜單，在B2：B3輸入與這個子菜單相關的內容;其他，依此類推（圖2）。

接下來，選擇“公式”選項卡，點擊“名稱管理器”，在彈出的窗口中點擊“新建”，在彈出窗口的“名稱”處輸入“日系”，“引用位置”處選擇A2：A7。新建名稱“韓系”，“引用位置”處選擇B2：B3，依此類推;新建名稱“臨時選擇”，引用位置處選擇G1;新建名稱“提取”，引用位置處選擇I1：L1（圖3）。

接著，選中G1單元格，選擇“數據”選項卡，點擊“數據驗證”，在彈出窗口的“設置”選項卡驗證條件的允許處選擇“序列”，來源處選擇A1：D1，這樣在G1單元格就建立了下拉菜單。

選擇“開發工具”選項卡，點擊Visual Basic，在編輯窗口中，點擊“插入分模塊”，在右側窗口輸入如圖所示的幾行代碼（圖4）。

雙擊Sheet1，在右側的編輯窗口輸入如下代碼：

Private Sub Worksheet_Change（ByVal Target As Range）

Application.EnableEvents=False

Call ss

Application.EnableEvents=True

End Sub

最后，再選中G1單元格，設置好它的字體、字號等，點擊“文件→另存為”，在彈出窗口的文件類型處選擇“Excel啟用宏的工作簿（*.xlsm）”，進行保存就可以了。