Excel VBA テクニック集
計算式によるリンクの一覧

Excelの計算式によるリンクの一覧の取得方法です。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

取得方法は、計算式に"["と"]"と"!"が含まれるセルを検索します。
コードにすると、

    Dim Cell_Obj As Object
    Dim Addrs_Frm As String

    Set Cell_Obj = Excel_App.ActiveSheet.Cells.Find(what:="*[*]*!*" _
                                , LookIn:=xlFormulas, LookAt:=xlPart _
                                , MatchCase:=False, MatchByte:=False)
    If Cell_Obj Is Nothing Then
        Debug.Print "無"
        Exit Sub
        End If
        
    Addrs_Frm = Cell_Obj.Address
    Do Until Cell_Obj Is Nothing
        Debug.Print Cell_Obj.Address, Cell_Obj.Formula
        Set Cell_Obj = Excel_App.ActiveSheet.Cells.FindNext(Cell_Obj)
        If Cell_Obj Is Nothing Then
            Exit Do
            End If
        If Addrs_Frm = Cell_Obj.Address Then
            Exit Do
            End If
        Loop

になります。

Excel VBA テクニック集計算式によるリンクの一覧

Excel VBA テクニック集
計算式によるリンクの一覧