名前付き範囲内のループスルーセル

Question

範囲内のすべてのセルをループするコードを作成しようとしています。最終的に私はもっと複雑なことをやりたいのですが、問題があって短期間のテストプログラムを作ることに決めました。最初の例はうまくいきますが、名前付き範囲を持つ2番目の例はありません（「Object_Globalのメソッド範囲に失敗しました」というエラーメッセージが表示されます）。私が間違ってやっていることについてのどんな考えですか？私は本当に名前付きの範囲でこれをやりたいです...ありがとう！

作品：

Sub foreachtest() 
Dim c As Range 
For Each c In Range("A1:A3") 
    MsgBox (c.Address) 
Next 
End Sub 

は動作しません：

Sub foreachtest2() 
Dim c As Range  
Dim Rng As Range 
Set Rng = Range("A1:A3") 
For Each c In Range("Rng") 
    MsgBox (c.Address) 
Next 
End Sub 

Answer 1

のようにそれを作成し、ループすることができ、その後RNGと呼ばれます2番目のコードでは、範囲rngが範囲を表す変数になっていると認識し、それを次のように扱う必要があります。

Sub foreachtest2() 
Dim c As Range  
Dim Rng As Range 
Set Rng = Range("A1:A3") 
For Each c In rng 
    MsgBox (c.Address) 
Next 
End Sub 

警告：ほとんどの場合、範囲をループすることを避けることができれば、コードは高速になります。

Answer 2

ではなく、これを試してみてください：

Sub foreachtest2() 
Dim c As Range 
Range("A1:A3").Name = "Rng" 
For Each c In Range("Rng") 
    MsgBox (c.Address) 
Next 
End Sub 

Answer 3

設定RNG =範囲（ "A1：A3"）が作成されます範囲オブジェクトであり、名前付き範囲ではありません。あなたが名前付き範囲を作成したい場合はこれが

Sub foreachtest2() 
Dim c As Range  
Dim Rng As Range 
Set Rng = Range("A1:A3") 
For Each c In rng 
    MsgBox (c.Address) 
Next 
End Sub 

を動作するはず

Range("A1:A3).Name="Rng" 

それを作成するか、あなたを調整するにはthsi

Dim c As Range 
Range("a1:a3").Name = "rng" 
For Each c In Names("rng").RefersToRange 
MsgBox c.Address 
Next c