如何在Excel VBA中为所有工作表选择相同的范围？

Question

我正在使用下面的代码自动缩放选定范围的工作表。但我有很多额外的工作表，所以如何使用此代码所有工作表而不是写他们的名字。

问候。

码：

Sub Workbook_Open()
Sheets("Configuration").Activate
Range("A1:AA1").Select
ActiveWindow.Zoom = True
Range("A1").Select
End Sub

Answer 1

试试这个：

Sub Workbook_Open()
    For Each wrkSht In ThisWorkbook.Sheets
        wrkSht.Activate
        Range("A1:AA1").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    Next
End Sub

Answer 2

你可以循环遍历所有的床单。

for each sht in workbooks(your workbook)
    Your code here
next sht

Answer 3

您可以选择范围和工作表，然后缩放：

Sub Test()
    Sheets("Sheet1").Activate
    ActiveSheet.Range("A1:AA1").Select
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    ActiveWindow.Zoom = True
    Sheets("Sheet1").Select    'removed the selection/grouping
End Sub

（这仍然需要他们的名字，但不是个人处理。）

如果它是所有工作表，那么你可以使用Worksheets.Select作为第三个声明。