ReferesToRangeは、ランタイムエラー '91'を返します。

Question

こんにちは私は次のコードのforループの行の "変数またはブロック変数が設定されていません"を取得し続けます。私がどこに間違っているか教えてもらえますか？ありがとう

Public Sub TestFind() 

Set wsNew = Worksheets.Add(after:=Worksheets(Worksheets.Count)) 


    wsNew.Range(wsNew.Cells(1, 1), wsNew.Cells(1, 17)).Value _ 
      = Array("ReturnId", "GridName", "Item", "TabName", "AltFldName", "FieldPos", "Reference", "Type", _ 
      "SortPos", "FieldSize", "CalcField", "CellDesc", "DoNotExport", "SortStrategy", "Threshold", "IsInnerGridCell", "ReportLine") 

Dim Nm As Name 
Dim rng As Range 
Dim wb As Workbook 

Set wb = ThisWorkbook 
For Each Nm In ThisWorkbook.Names 
    rng = Nm.RefersToRange.Value 
Next 

End Sub 

Answer 1

下記を試してみてください。あなたはあなたのコードのいくつかを含んでいませんでした。私はあなたが...と想定しています。

Dim Nm As Name 
Dim rng As Range 
Dim wb As Workbook 

Set wb = ThisWorkbook 
For Each Nm In ThisWorkbook.Names 
    rng = Nm.RefersToRange.Value 
Next 

Answer 2

調整がなされコメントがありました。

1-ないすべての名前は、名前付き範囲を必ずしも参照してください。

Option Explicit 

Sub wqewtr() 
    Dim Nm As Name 
    Dim rng As Range 
    Dim var As Variant '<~~ for numbers, dates and/or text 
    Dim wb As Workbook 

    Set wb = ThisWorkbook 
    For Each Nm In ThisWorkbook.Names 
     Debug.Print Nm.Name 
     'nm could a 'special internal name' that starts with an underscore 
     'skip over these 
     If Left(Nm.Name, 1) <> "_" Then 
      'show the address of the defined name range - could be more than one cell 
      Debug.Print Nm.RefersToRange.Address 
      'do not try to assign value to a range object unless that range already has been asinged a cell or cells 
      'rng = Nm.RefersToRange.Value 
      'Debug.Print rng 
      'this fails if Nm is more than a single cell 
      'var = Nm.RefersToRange.Value 
      'Debug.Print var 
      'this guarantees one cell 
      var = Nm.RefersToRange.Cells(1, 1).Value 
      Debug.Print var 
     End If 
    Next 
End Sub 

Answer 3

あなたはコード内の2つの問題があります。例えば、定数を参照することがあります。だから、名前が本当に範囲を参照する前にいくつかのチェックを追加する必要があります。

2 - は、名前付き範囲に範囲オブジェクトを割り当てるには、このお試しくださいSet

を使用する必要があります。

Dim Nm As Name, rng As Range 
For Each Nm In ThisWorkbook.Names 
    Debug.Print Nm.Name 
    On Error Resume Next 
    Set rng = Nm.RefersToRange ' <-- Use Set to assign object references 
    If Err.Number <> 0 Then GoTo NextNm ' <-- This name does not refer to a named range 
    On Error GoTo 0 
    Debug.Print rng.Address 
    ' ... Do whatever you want with the named range 
NextNm: 
    On Error GoTo 0 
Next Nm