如何在Excel中建立帶有每個工作表超連結的下拉列表？

在Excel中，建立一個下拉列表，允許使用者快速導航到工作簿中的不同工作表非常有用。一種實現方法是使用VBA程式碼建立一個包含指向工作簿中每個工作表的超連結的下拉列表。

在本教程中，您將學習如何逐步建立一個宏，該宏將在指定的單元格中建立一個下拉列表，其中包含活動工作簿中每個工作表的名稱。該宏還將在下拉列表旁邊的每個單元格中建立一個超連結，連結到相應的工作表。透過學習本教程，您將能夠建立更友好、更高效的Excel工作簿導航方式，從而節省時間和精力。讓我們開始吧！

建立帶有每個工作表超連結的下拉列表

在這裡，我們將首先建立一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，瞭解如何在Excel中建立帶有每個工作表超連結的下拉列表。

步驟1

考慮任何包含多個工作表的工作簿。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。然後，單擊“插入”並選擇“模組”，然後將下面提到的文字複製到文字框中，類似於下圖。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製程式碼

程式碼

Sub CreateSheetLinksDropdown()
   Dim ws As Worksheet
   Dim list() As String
   Dim i As Integer
    
   ReDim list(1 To ActiveWorkbook.Worksheets.Count)
    
   i = 1
    
   For Each ws In ActiveWorkbook.Worksheets
      list(i) = ws.Name
         i = i + 1
   Next ws
   Range("A1").Validation.Delete
   Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(list, ",")
   For i = 1 To UBound(list)
      Range("A1").Hyperlinks.Add Anchor:=Range("B" & i), Address:="", SubAddress:="'" & list(i) & "'!A1", TextToDisplay:="Go to " & list(i)
   Next i
End Sub

在程式碼中，A1是建立下拉列表的單元格。