循环(姓名)表格

Question

我的问题实际上很简单,但我找不到解决方案.我有很多具有不同名称的表格,可由用户修改.我已经为每个工作表添加了一个背景名称,因此对于我的前两张工作表,他们在我的VBA项目中的名称如下所示:

事实是,我想做一个宏来遍历所有那些特定的表格(我有14个),我不想循环通过其他用于不同的东西,比如这个:

使用可由用户修改的名称(在我的示例中为"General"和"Heritage")可以轻松遍历我的表格.不过,我希望用户能够随时修改此名称,如果他这样做,我的宏将无法识别工作表的新名称.对我来说非常重要的是,用户不必按下按钮或使用不同的文本框来重命名他的工作表,我不想以这种方式避免这个问题.

我想要的是能够遍历背景名称(我的例子中的S1和S2),做类似的事情(我知道下面的代码不好,但它只是给你一个例子):

Sub Example1()

Dim wksht As Worksheet

For i = 1 To 14
    Set wksht = "S" & i
    wksht.Cells(1, 1).Value = 1
Next i

End Sub

我知道以下代码适用于1张表:

Sub Example2()

Dim wksht As Worksheet
Set wksht = S1
wksht.Cells(1, 1).Value = 1
Next i

End Sub

问题是我之前的代码中的S1不是字符串,所以我不能使用"S"和i循环.我的问题有解决方案吗？

Answer 1

您正在使用工作表代码名称,因此可以执行此类操作.顺便说一句,这将匹配S后跟一个数字,这可能或可能不足以满足您的需求.(顺便说一句,它是'通过',而不是'扔'.)

Sub Example1()

Dim wksht As Worksheet

For Each wksht In Worksheets
    If wksht.CodeName Like "S#" Then
        'do something
    End If
Next wksht

End Sub