跳到主要內容

如何通過Excel中的組合框的選定值打開特定的工作表?

假設您有一個組合框,其中包含當前工作簿的所有工作表名稱,如下所示。 現在,您想在“組合框”中選擇相應的工作表名稱時打開一個特定的工作表。 如何實現呢? 本文中的方法可以為您提供幫助。

通過帶有VBA代碼的組合框的選定值打開特定的工作表


通過帶有VBA代碼的組合框的選定值打開特定的工作表

下面的VBA代碼可以幫助您根據Excel中的“組合框”選擇轉到特定的工作表。 請執行以下操作。

備註:如果組合框在工作表中不包含任何工作表名稱,請按照以下提示快速將所有工作表名稱添加到該組合框。 如果已經有一個包含所有工作表名稱的組合框,請轉到 步驟1 直。

尖端:在您的工作表中插入一個命令按鈕1,右鍵單擊它並選擇 查看代碼 從右鍵單擊菜單中。 然後將以下VBA代碼複製並粘貼到 推薦碼 窗口,然後按 其他 + Q 關閉鍵 Microsoft Visual Basic應用程序 窗口。 單擊插入的命令按鈕,然後當前工作簿的所有工作表名稱將自動添加到ComboBox1中。

VBA代碼:輕鬆將所有工作表名稱添加到組合框

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

如果已經有一個包含所有工作表名稱的組合框,請執行以下操作。

1。 打開 設計模式開發者 標籤。

2.右鍵單擊帶有工作表名稱的組合框,然後單擊 查看代碼 從右鍵單擊菜單中。

doc組合框打開工作表12png

3.然後 Microsoft Visual Basic for Applications 彈出窗口,請用以下VBA代碼替換“代碼”窗口中的原始VBA代碼。

VBA代碼:通過組合框的選定值打開特定的工作表

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

備註:在代碼中,ComboBox1是包含工作表名稱的組合框的名稱。

4。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口,然後關閉 設計模式開發者 標籤。

現在,在“組合框”中選擇任何工作表名稱時,將自動打開相應的工作表。


在Excel中輕鬆列出當前工作簿的所有工作表名稱:

在工作簿中使用工作表索引可幫助您輕鬆管理工作表。 隨著 創建工作表名稱列表 的效用 Excel的Kutools,您可以輕鬆地創建一個包含當前工作簿中所有工作表名稱的工作表索引。 之後,您只需單擊“索引”工作表中的工作表名稱即可快速切換到某個工作表。 見下面的截圖:
立即下載並試用! (30 天免費試用)


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations