87本目 数式のシート間の依存関係をチェック

VBA100本ノック 87本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

https://youtu.be/9npfoQ4ZgqE

youtu.be

---

問題

「相関表」に数式の依存関係を作成してください。
B列のシートの数式が2行目のシートを参照している場合に交点に”○”を入れてください。
※画像参照
セルの数式のみ対象です。
以下は考慮しない。
・INDIRECT関数、串刺し計算、名前定義、条件付き書式、入力規則、文字定数。

解答

Sub マトリクス表内をループ()
    
    Dim ws As Worksheet: Set ws = Sheets("相関表")
    Dim rng As Range:       Set rng = ws.Range("B2").CurrentRegion
    Dim i, j
    Dim rng_search As Range, r As Range
    Dim ws元Name As String
    
    For i = 2 To rng.Rows.Count
        On Error Resume Next
        Set rng_search = Sheets(i).Cells.SpecialCells(xlCellTypeFormulas)
        If Err.Number = 0 Then 'もし数式セルが一つもなかった場合の分岐用
            For j = 2 To rng.Columns.Count
                ws元Name = Sheets(j).Name
                Sheets(j).Name = Sheets(j).Name & "@"
                If i <> j Then  '斜線以外に処理する
                    For Each r In rng_search  '数式セルの中の一つ一つのセルを見に行く
                        If r.Formula Like "*'" & Sheets(j).Name & "'!*" Then
                            rng.Cells(i, j).Value = "〇"
                        End If
                    Next
                End If
                Sheets(j).Name = ws元Name
            Next j
        End If
        On Error GoTo 0
    Next i
    
End Sub

■考え方・流れ
①マトリクス表内をループ
➁数式が入っているセル(シート)を取得
③数式セルの式を確認して表に”〇”をつける
④シート名を置換

86本目の続きの問題！

ループの最初でOn Error Resume Nextを入れて…
最後にOn Error GoTo 0 でErr.Numberを戻してあげる！

Err.Numberが0以外のみ、For Nextの処理をしてあげる感じだね～♪

ぐっじょ～ぶ

あとがたり

おはこんばんちは。uぷ主です。
87本目、シート間の数式の依存関係をチェックする問題でした。

問題見た最初、”数式の依存関係って何？”と、日本語よわよわマンが発動。
コード見てやっと意味に気づきましたねw

なるほどなぁ～！
このコードどこかに持ってたら、たぶん
活用できるときあるだろうなぁ～！
他の人から良くわからんExcelもらったときとか…
役に立つだろうなぁ～！

と、思ってます。
思ってます。

思ってるだけです…。

でも…実際実務で色々焦ってる時は…忘れちゃうんだろうな…

はい。とまあそんな感じで、今回も超々楽しかったです～！！

神髄さん！ありがとうございましたぁぁあああ！！

そして最後までご視聴いただいたみなさん！ありがとうございました！！感謝！