切断されたハイパーリンクに

Question

フェア警告を特定し、要約し、これが私の最初のスタックオーバーフローの質問です：

私は、細胞や形状の両方でいくつかのハイパーリンクを持つシートを持っています。私たちは、これらのリンクのいくつかを壊すようなフォルダを整理するためにファイルを並べ替えるつもりです。 Stack Overflowで有用なQ/Aを見つけました。リンクを壊して強調表示するかどうかを確認するためにサブを構築しました。

私の質問はどのように壊れたリンクのアンカーを決定できますか？

ブック全体に壊れたリンクがすべてリストされ、壊れたリンクを見つけて修正するためのハイパーリンク（または説明）を作成するブック "broken_hyper"に新しいシートを作成したいとします。

私はしかし、私は簡単にアンカーを見つけ.cells.row以外の.parentまたは.cells.columnの下で任意のプロパティを見つけることができません

If objhttp.statustext <> "OK" Then 

    alink.Parent.Interior.Color = 255 
    ActiveSheet.Cells(i, 2) = alink.Parent 
    ActiveSheet.Hyperlink.Add _ 
     Anchor:=ActiveSheet.Cells(i, 2), _ 
     Address:=alink.Parent 
     i = i + 1 
End If 

を使用してみました。

ご協力いただきまして誠にありがとうございます。私は専門家ではありません。私がこれまでに取り上げたものは、あなたのような人々からの有益な回答でした。

Answer 1

セルに.Addressproperty

If objhttp.statustext <> "OK" Then 

    alink.Parent.Interior.Color = 255 
    ActiveSheet.Cells(i, 2) = alink.Parent 
    ActiveSheet.Hyperlink.Add _ 
     Anchor:=ActiveSheet.Cells(i, 2), _ 
     Address:=alink.Parent.Address 
     i = i + 1 
End If