グーグル "ExcelのVBA関数が範囲のセルIDを返すことはできますか？"

Question

私はRange Functionの逆数を探していると思います。ワークシートに名前付きRangeがあり、イベントマクロでは、A1：A12のように範囲定義文字列を取得することに興味があります。

Private Sub UserForm_Initialize() 
    Dim MyData As Range 
    Dim r As Long 
    With Me.ListBox1 
     .RowSource = "" 
     Set MyData = Worksheets("Sheet1").Range("A2:D100") 'Adjust the range accordingly 
     .List = MyData.Cells.Value 
     For r = .ListCount - 1 To 0 Step -1 
      If .List(r, 3) = "" Then 
       .RemoveItem r 
      End If 
     Next r 
    End With 
End Sub 

私はむしろイベントマクロで範囲をハードコーディングするのではなく、「設定するのMyData =」文で範囲の名前を使用したい：ここで私が働いているコードがあります。あなたは、単に範囲のアドレスが必要な場合

Answer 1

、使用

Dim MyRange as Range 
Set MyRange = Worksheets("Sheet1").Range("A2:D100") 
' Here do what you want 
Msgbox MyRange.Address 

.Addressは "A2：D100" を返します

https://msdn.microsoft.com/fr-fr/library/office/ff837625.aspx