Question

我有一个数据表和一个解释标签。由于数据表中的某些输入字段难以理解，因此我想向其中的许多添加超链接（单击列名，并进入“说明”选项卡中的适当单元格）。因此，我创建了“解释”选项卡，该选项卡可能与数据表中的值匹配或不匹配。

因此，我遍历Calcs（数据表）选项卡上的所有列标题，然后在Info（解释）选项卡中查找匹配的行，如果有匹配项，我想从Calcs创建超链接标签标题转到“信息”标签标题。

我得到的错误是以下代码的添加超链接部分上的“预期：命名参数”：

Sub AddLinks()
Dim LinkRow As Integer
Dim InfoTab As String
Dim LastCol As Integer

'Row on Calcs tab that column headings are in
LinkRow = 5

'Name of explanations/info tab
InfoTab = "Info"

'Find last column in calcs table
LastCol = Sheets("Calcs").Cells(LinkRow, Columns.Count).End(xlToLeft).Column

'Loop through calcs column, look for corresponding cell in explanations tab, if it isn't
'blank, then add it as a hyperlink
For i = 1 To LastCol
    For j = 1 To LastCol
        If Sheets("Calcs").Cells(LinkRow, i).Value = Sheets(InfoTab).Cells(j, 1).Value Then
        Sheets("Calcs").Cells(LinkRow, i).Hyperlinks.Add Anchor:=Range(Sheets(InfoTab).Cells(j, 2).Address), Address:="",
             SubAddress:="'" & InfoTab & "'" & _
             "!" & Cells(j, 2).Address
        End If
   Next j
Next i
End Sub

Answer 1

我在运行您的代码时没有任何错误。我会将代码分解成较小的易于测试的子例程。

tabNavigator

使用VBA添加超链接以创建“说明”选项卡

1 个答案: