Excel VBA 将超链接分配给单元格

Question

目前我有 VBA 宏，它将根据我在概述页面上键入单元格 T3 的一些信息生成一个页面。我想做的是让相同的"创建页面"按钮也根据值自动分配超链接。

例如，如果我将 brownj1 放入单元格 t3，将创建一个页面并命名为"brownj1"，

我还希望宏实现的是将单元格"b3"分配，该单元格也具有名称"brownj1"到新创建的页面。我认为另一种解决方法可能是更好的方法是搜索/循环遍历 B 列以找到与 T3 匹配的单元格，然后分配超链接。

正如我提到的，我已经拥有生成页面并将名称分配为工作表名称的必要代码，我正在寻找的只是一个公式，用于在生成页面时将超链接分配给特定名称。

Answer 1

下面是如何执行此操作的示例：

Sub createLink()
Dim lastRow As Integer, sheetCount As Integer, myRange As Excel.Range, c As Excel.Range
lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sheetCount = Application.Sheets.Count
Set myRange = Excel.ThisWorkbook.Sheets("Sheet1").Range("B1:B" & lastRow)
For Each c In myRange
    For x = 1 To sheetCount
        If Worksheets(x).Name = c.Value Then
             Excel.ThisWorkbook.Sheets("Sheet1").Hyperlinks.Add Anchor:=c, Address:="", SubAddress:=c.Value & "!A1"
        End If
    Next x
Next c
End Sub