PCメモ

Excelを中心とした業務改善の記録

④参照元・参照先のトレース

選択しているセルの参照元を表示させる。

改善前

参照元を図形矢印で繋いでいる。

参照元が変わっても矢印が図形の為、参照していないセルと繋いだままになる可能性がある。

f:id:abv72:20210612182647p:plain

 改善後

選択範囲の参照元を表示するマクロを構築。

Dim i As Long
For i = 1 To Selection.Count
 Selection.Item(i).ShowPrecedents
Next

 

参照元のトレース:ShowPrecedents
参照先のトレース:ShowDependents

 

表示させたいセルが毎回同じの場合は、セルを指定しても良い。

Range("C2").ShowPrecedents

f:id:abv72:20210612183000p:plain

選択範囲の参照元と参照先をトレース
クイックアクセスツールバーに埋め込んで使ってます。

Dim i As Long
For i = 1 To Selection.Count
 With Selection.Item(i)
  .ShowPrecedents  '参照元
  .ShowDependents   '参照先
 End With
Next