VBA代碼基於變量創建和命名新圖紙

Question

我想讓我的代碼添加一個具有該代碼根據Function_Name變量確定的名稱的工作表。 當我運行它時，它將命名為新的工作表Function_Name。 有什么想法嗎？

For X = 1 To B
    Sheets("Calculations").Select
    Function_Name = Range("B2").Offset(X, 0)   'Gets the Function Name
    Worksheets.Add().Name = ("Function_Name")
Next X

Answer 1

For X = 1 To B
    Worksheets.Add().Name = Sheets("Calculations").Range("B2").Offset(X, 0).Value
Next X

Answer 2

在原始代碼中，您的引號中包含Function_Name

Worksheets.Add().Name = ("Function_Name")

引號應刪除。

蒂姆的答案給出了一種更加簡潔的代碼編寫方式。

您還可以考慮引入一些錯誤陷阱，因為如果嘗試添加名稱已經存在的工作表，則會出現運行時錯誤。

Answer 3

Dim wksSource   as worksheet

For X = 1 To B
    Sheets("Calculations").Select
    Function_Name = Range("B2").Offset(X, 0)   'Gets the Function Name
    Set wksSource = worksheets.add
    wksSource.Name = ("Function_Name")
    Set wksSource = nothing
Next X