excel vba：工作表名稱作爲變量

Question

我想根據變量選擇工作表。我可以用變量sname成功重命名工作表，但不能激活相同的工作

Dim sname as String 
sname = Trim(Cells(row, 12).Value) 
Sheets("Blank (2)").name = sname 
Sheets(sname).Activate 
Sheets(sname).Select 

Answer 1

你說這是行得通的嗎？

Sheets("Blank (2)").name = sname 

然後，這樣做：

With Sheets("Blank (2)") 
    .Name = sname 
    .Activate 
    .Select 
End With 

的想法是抓住你正在使用的工作表中的參考，而不是不斷地從Sheets收集每一個獲取對象時間。

或者：

Dim target As Worksheet 
Set target = ThisWorkbook.Worksheets("Blank (2)") 
target.Name = sname 
target.Activate 
target.Select 

注意，Sheets收集，不合格的爲你使用它，含蓄是指活動工作簿。假設活動工作簿是寫入代碼的同一工作簿，最好使用ThisWorkbook來限定呼叫，並使用Worksheets集合代替 - 因爲Sheets集合可以包含非工作表對象（例如圖表）。

最後，我懷疑這裏有什麼需要.Select什麼東西。閱讀更多關於避免.Select和.Activatehere。