範囲のアドレスをセル値として保存し、VBAの後の範囲で使用します。

Question

if-thenステートメントを実行するコードがあります。範囲を再選択したいかどうかをユーザーに尋ね、最後に選択した範囲を使用します。私はそれの最初の部分を持っていますが、私は範囲のアドレスを格納するとき、私はそれを戻す方法を理解することはできません。コードについては以下を参照してください。

NewNS = MsgBox("Would you like to pick new Force ID's in the North-South direction?", vbYesNo, "Roof North-South") 
    If NewNS = vbYes Then 
    Worksheets("ShearWalls").Activate 
    Do Until CheckNS = vbYes 
     On Error Resume Next 
     Set rngNS = Application.InputBox("Select your Force ID's (North-South)", "Roof North-South", Type:=8) 
     On Error GoTo EndJump 
     CheckNS = MsgBox("The cells selected were " & rngNS.Address & " for North-South. Is this correct?", vbYesNo, "Roof North-South") 
    Loop 
    Worksheets("Reference").Range("B739").Value = rngNS.Address 
    Else 
     Setrng = Worksheets("Reference").Range("B739").Value 
     Set rngNS = Range(Setrng) 
    End If 

いくつかの点で単純化することができますが、私はそれが最初に機能することを確認したいと思います。ありがとうございました！

Answer 1

セル値として格納されているアドレスを使用して範囲を構築します。 Worksheets("ShearWalls").Activateを使用していますが、Range("B739")に格納されているアドレスの親を認定していません。

それはあなたが参照しようとしているワークシートあなたの物語からは不明ですが、私はあなたがリファレンスワークシートではなく、ShearWallsワークシートからthte範囲をしたいと仮定するつもりです。

with Worksheets("Reference") 
    Setrng = .Range("B739").Value2 
    Set rngNS = .Range(Setrng) 
end with