vba - (VBA) 遍历工作表代号

Question

在 VBA 中，我知道可以像这样遍历工作表:

for i = 1 to 5
msgbox worksheets(i).cells(1,1)
next

提取工作簿中的前 5 张(按从左到右的顺序)。我如何才能引用工作表的代号？因为工作簿中的第一个工作表可能是 Sheet10，第二个工作表可能是 Sheet6，等等......所以如果我尝试使用 sheet#s(代号)循环，这可能吗？

Answer 1

您可以创建自己的工作表集合，您可以通过代码名称对其进行索引。这个函数是这样做的:

Function SheetsByCodeName() As Collection
    Dim sh As Worksheet
    Set SheetsByCodeName = New Collection
    For Each sh In ThisWorkbook.Worksheets
        SheetsByCodeName.Add sh, sh.CodeName
    Next
End Function

然后您可以将其用于索引，如下所示:

dim sheetsByCN as Object: Set sheetsByCN = SheetsByCodeName
dim cn
For each cn in Array("Sheet10","Sheet11","Sheet22","Sheet5","Sheet1")
    debug.print sheetsByCN(cn).Cells(1,1).value
Next