名前付きセル範囲の参照範囲を表示する|Excel VBA |
次のサンプルは、ブック内で定義されているセル範囲の名前をすべて取得し、Userform1のListBox1に表示します。
また、リストからセル範囲を選択するとLabel1にその参照範囲を表示します。
Option Explicit
Private Sub UserForm_Initialize()
Dim myName As Name
For Each myName In Names
ListBox1.AddItem myName.Name
Next
ListBox1.ListIndex = 0 '1行目を選択
End Sub
Private Sub ListBox1_Change()
Label1.Caption = Mid(Names(ListBox1.Value).RefersToLocal, 2)
End Sub