跳到主要內容

如何基於Excel中另一個工作表上的單元格值選擇特定的工作表?

假設您有一個包含所有工作表名稱的數據驗證下拉列表,並且您要根據在下拉列表中選擇的工作表名稱自動選擇或跳轉到相應的工作表,該怎麼辦? 在將工作表名稱輸入指定的單元格後,如何自動跳至某個工作表呢? 本文將向您展示幾種實現它的方法。

根據帶有VBA代碼的下拉列表選擇來選擇特定的工作表
使用VBA代碼根據單元格值選擇特定的工作表
使用Kutools for Excel輕鬆創建工作表索引並轉移到某些工作表


根據帶有VBA代碼的下拉列表選擇來選擇特定的工作表

例如,一個下拉列表位於sheet2的單元格A8中。 在下拉列表中選擇工作表名稱時,可以運行下面的VBA代碼來選擇或跳至相應的工作表。

1。 按 其他 + F11 打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中,雙擊左欄中的工作表名稱(工作表包含您將從中選擇工作表名稱的下拉列表),然後將下面的VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼:根據下拉列表選擇來選擇特定的工作表

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
        ThisWorkbook.Sheets(Target.Value).Activate
End Sub

備註:您可以將“ A2”更改為您自己的單元格。

3。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic應用程序 窗口。

從現在開始,當您在Sheet8的下拉列表中選擇工作表名稱時,將自動選擇該工作表。


使用VBA代碼根據單元格值選擇特定的工作表

如果要在單元格(sheet1中的單元格A1)中鍵入工作表名稱後跳轉到某個工作表,可以嘗試以下VBA代碼。

1。 按 其他 + F11 打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口,雙擊左欄中的工作表名稱(您將在工作表名稱中鍵入的工作表),然後將下面的VBA代碼複製並粘貼到“代碼”窗口中。 看截圖:

VBA代碼:根據單元格值選擇特定的工作表

Sub ActivateSheetsByValue()
    On Error Resume Next
    ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub

3.返回到工作表,並在單元格A1中輸入要選擇的工作表名稱,並激活代碼窗口,然後按F5鍵運行代碼。

如果Sheet1中的單元格A1包含工作表名稱“ Sheet8”,則在運行VBA代碼後,它將立即跳轉到Sheet8。


使用Kutools for Excel輕鬆創建工作表索引並轉移到某些工作表

如果您只想快速選擇或跳至特定工作表,則可以嘗試 創建工作表名稱列表 的效用 Excel的Kutools。 使用此實用程序,您可以輕鬆地創建工作表索引,然後通過單擊工作表名稱快速跳轉到某個工作表。

申請前 Excel的Kutools首先下載並安裝.

1。 點擊 Kutools 加 > 下載學習單 > 創建工作表名稱列表。 看截圖:

2。 在裡面 創建工作表名稱列表 對話框中選擇 包含超鏈接列表 在選項 工作表索引樣式 部分; 在表格中輸入工作表索引的名稱 指定圖紙索引的圖紙名稱 框; 選擇 在所有工作表之前插入工作表索引 在下拉列表中。 然後點擊 OK 按鈕。

備註: 檢查 包含按鈕和宏 選項,您將獲得帶有宏按鈕的圖紙索引。 看截圖:

在索引工作表中,您可以單擊某個工作表名稱以自動跳至該工作表。

  如果您想免費試用(30天)此實用程序, 請點擊下載,然後按照上述步驟進行操作。


使用Kutools for Excel輕鬆創建工作表索引並轉移到某些工作表

最佳辦公生產力工具

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

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

產品描述


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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I have generated a table that lists the name of every sheet in my workbook. I have a macro whereby I select the cell with a particular sheet name, hit the form control button and that sheet is made visible and active. I want to expand on this. For example I have 3 sheets named 107A, 107B, 107C When I select 107 in my index table, I want the macro to open every sheet that begins with 107 I have a macro that will find and unhide sheets with a name Like *107* but I have not succeeded in modifying that to look for the sheet name listed in the active cell. Can you help?
This comment was minimized by the moderator on the site
Hi,
Sorry can't help you with that. Thank you for your comment.
This comment was minimized by the moderator on the site
I would like to know how to make a command button when i have hidden tabs. I have a drop down list of names and each name has a dedicated form i would like to choose the name on the list and the sheet for that person is displayed
This comment was minimized by the moderator on the site
Please upload a video regarding this as it will be much easier to understand.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations