問題のあるセルをハイパーリンクのコピーでカタログする

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.Countが0を返しますので、あなたが「範囲外」というエラーが発生します。

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