ワークシートと範囲を変数として渡すにはどうすればよいですか？

Question

サブルーチンの間にシートと範囲の名前を渡したいと思います。以下は「範囲外の下付き文字」エラーをスローします。

Sub This() 

    x = "Sheet1" 
    y = "D3" 

    MsgBox (x.Range(y).Value) 

End Sub 

これはa sample of my Project Explorerです。

Answer 1

あなたのワークシートの.Name propertyは評価です。そのワークシート.CodeName propertyはシート1です。

dim x as string, y as string 
dim xx as worksheet, yy as range 

x = "Valuation" 
set xx = worksheets(x) 
y = "D3" 
set yy = xx.range(y) 
debug.print yy.address(0,0, external:=true) '<~~returns Valuation!D3 (with the workbook name) 

debug.print Sheet1.name '<~~returns Valuation from CodeName