ReferesToRange給出運行時錯誤'91'：

嗨我一直在下面的代碼的for循環中獲得「變量或塊變量未設置」行。有誰能告訴我我哪裏出錯了嗎？謝謝ReferesToRange給出運行時錯誤'91'：

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

來源

2017-04-11 Mo123

你確定你知道什麼是**姓名**是，這是你應該找什麼？ – Jeeped

嘗試以下並報告回來。你沒有包括一些你的編碼，我假設...

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

來源

2017-04-11 13:30:18 user1

謝謝，但由於某些原因它仍然給出相同的錯誤。我已經更詳細地更新了這個問題。 – Mo123

調整作出和評論。

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

來源

2017-04-11 13:43:41 Jeeped

你必須在代碼中的兩個問題：

1 - 並非所有的名字一定是指一個命名的範圍。例如，它們可能會引用常量。所以你需要在假設名稱實際上指向一個範圍之前添加一些檢查。

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

來源

2017-04-11 13:51:08

ReferesToRange給出運行時錯誤'91'：

回答

相關問題