如何在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是创建下拉列表的单元格。

步骤2

现在将工作表另存为宏启用模板,然后在VBA应用程序中单击F5,下拉列表将成功创建。

结论

在本教程中,我们使用了一个简单的示例来演示如何在Excel中创建带有每个工作表超链接的下拉列表,以突出显示特定数据集。

更新于:2023年7月12日

431 次查看

启动您的职业生涯

通过完成课程获得认证

开始学习
广告