如何將工作表和範圍作爲變量傳遞？

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是Sheet1。

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