VBA　名前定義一覧の取得

 

 

名前の定義の設定

 

Sub test()
　’名前の定義を設定


    Sheets(1).Range("E1:G10").Name = "test"

    Sheets(2).Range("A5:B10").Name = "test1"


End Sub


 

 

名前定義一覧の取得

 

Sub test2()
　' 名前定義一覧の取得

    Dim xlName As Name
    Dim i As Long
    i = 2
    
    For Each xlName In ActiveWorkbook.Names
    
        '　名前
        Cells(i, "A") = xlName.Name
        '　参照範囲
        Cells(i, "B") = "'" & xlName.Value
        '　範囲　（親オブジェクト
        Cells(i, "C") = xlName.Parent.Name
        i = i + 1
    Next


End Sub

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事