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을 사용할 수 있습니다.