문제가있는 셀을 하이퍼 링크 복사로 카탈로그하기

Question

문제가있는 셀에 플래그를 지정하고 셀 하이퍼 링크를 다른 셀에 연결하여 나중에 검토하려고합니다. 여기 내 코드가있다. 모든 코드가 표시되는 것은 아닙니다. 나는 "i"와 "j"를 오랫동안 불렀다. newLink = Range("AL" & i).Hyperlinks(1).Address에서 "범위를 벗어났습니다"라는 오류가 발생합니다. 나는 이것이 존재하지 않는 것을 부르고 있다는 것을 의미한다고 생각하지만, 솔직히 말해서 나는 확실하지 않다.

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.Count0을 반환하고, 따라서 당신이 '범위 초과'오류가 발생합니다 셀에 연결된 하이퍼 링크가없는 경우.

If에 newLink = ... 문을 입력하여 이미 하이퍼 링크가 있는지 확인하기 만하면됩니다. 예 :

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