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

./ViewProduct.php?category=catname&product=product