Question

我正在设置范围内的超链接以转到表中的单元格

除p之外，其他所有功能均有效。应该可以获取该单元格的位置，然后将其插入地址中。

Dim t1 As ListObject
    Set t1 = Range("Testtbl").ListObject
    Dim i As Integer
    Dim j As Integer
    Dim p As String

    For Each cell In rng
    For i = 1 To t1.ListRows.Count
        If t1.ListColumns("UnLockedField").DataBodyRange(i) = "H" Then

        p = Range(t1.ListColumns("UnLockedField").DataBodyRange(i))


        With cell
         .Hyperlinks.Add Anchor:=cell, _
         Address:=p
        End With


        GoTo NEXTONE

    End If

    Next i

NEXTONE:
Next cell
End If

我希望p能得到单元格的位置，然后将该单元格插入地址。

Answer 1

您不需要Range对象，也不能使用它（如您所做的那样）来实现所需的功能。应该是：
p = t1.ListColumns("UnLockedField").DataBodyRange.Cells(i).Address

如何获取H的单元格位置并添加到超链接

1 个答案: