|
move-evom さん、こんばんわ。
>循環参照しているセル番地を取得する何か方法はありますでしょうか?
CircularReferenceプロパティを使用すると、シート上の最後に作成された循環参照のセル範囲を取得できるので、循環しているセルの数式をコメントアウトしながらイミディエイトウィンドウに抽出していきます。
Sub TEST()
Dim ws As Worksheet, NN As Long
Debug.Print " Start " & Now 'ログ開始
'現在表示しているシートが対象
Set ws = Application.ActiveSheet
'なくなるまで繰り返す
With ws
Do Until .CircularReference Is Nothing
NN = NN + 1
With .CircularReference
'数式をコメントアウト
.Formula = "'" & .Formula
'イミディエイトウィンドウにログ表示
Debug.Print NN & " : " & .Address(False, False, , True)
End With
Loop
End With
Debug.Print " End " & Now 'ログ終了
End Sub
こんな感じです。
|
|