Question

我试图标记有问题的单元格并将单元格超链接链接到另一个单元格以便稍后查看。这是我的代码。并非所有代码都可见。我打电话给＃34;我＆＃34;和＆＃34; j＆＃34;只要。 newLink = Range("AL" & i).Hyperlinks(1).Address发生错误，声称它超出了范围。＆＃34;我认为这意味着它正在呼唤一些不存在的东西，但说实话，我不确定。

    If Range("AK" & i).Value = "On" Then
        If Range("AL" & i).Value = 0 And Range("AM" & i).Value = 0 Then
            Range("AL" & i, "AM" & i).Interior.ColorIndex = 6
            'Cells("AL" & i) = H.Address'
            ErrorCount = ErrorCount + 1
            Dim newLink As String 
            newLink = Range("AL" & i).Hyperlinks(1).Address 
            Range("IV" & j).Hyperlinks.Add anchor:=Range("IV" & j), Address:=Range("IV" & j) 
            Range("IV" & j).Hyperlinks(1).Address = newLink 
            j = j + 1
        End If

Answer 1

如果单元格没有附加超链接，则Range("foo").Hyperlinks.Count将返回0，因此您将获得超出范围的＆＃39;错误。

您只需将newLink = ...语句包装在If中，以检查那里是否已有超链接。 E.g。

If Range("AL" & i).Hyperlinks.Count = 1 Then
  newLink = Range("AL" & i).Hyperlinks(1).Address 
Else
  'what else will you do?
End If

通过超链接复制编目有问题的单元

1 个答案: