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

Excel VBA为单元格指定超链接

1 个答案: