下拉菜單在Excel中經(jīng)常會(huì)被用到。通常，點(diǎn)擊菜單后只顯示一級(jí)菜單。如果要在單擊這個(gè)菜單后，在其下面顯示與這個(gè)菜單相應(yīng)的子菜單的內(nèi)容，利用worksheet的change事件、offset函數(shù)、match函數(shù)組成的簡單代碼，就能輕松實(shí)現(xiàn)（圖1）。

首先，構(gòu)造子菜單及與之相關(guān)的內(nèi)容。如在A1單元格輸入一個(gè)子菜單，在A2:A7輸入點(diǎn)擊這個(gè)子菜單后需要顯示的內(nèi)容；在B1單元格輸入另一個(gè)子菜單，在B2:B3輸入與這個(gè)子菜單相關(guān)的內(nèi)容；其他，依此類推（圖2）。

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

接著，選中G1單元格，選擇“數(shù)據(jù)”選項(xiàng)卡，點(diǎn)擊“數(shù)據(jù)驗(yàn)證”，在彈出窗口的“設(shè)置”選項(xiàng)卡驗(yàn)證條件的允許處選擇“序列”，來源處選擇A1:D1，這樣在G1單元格就建立了下拉菜單。

選擇“開發(fā)工具”選項(xiàng)卡，點(diǎn)擊Visual Basic，在編輯窗口中，點(diǎn)擊“插入→模塊”，在右側(cè)窗口輸入如圖所示的幾行代碼（圖4）。

雙擊Sheet1，在右側(cè)編輯窗口輸入如下代碼：

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Call ss

Application.EnableEvents = True

End Sub

小提示：如果窗口中沒有“開發(fā)工具”選項(xiàng)卡，可以點(diǎn)擊“文件→選項(xiàng)”，在彈出窗口中勾選“開發(fā)工具”就可以了。

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

總結(jié)

以上是生活随笔為你收集整理的制作自动显示子菜单的下拉菜单怎么生成下拉菜单的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。