자료 작성에 도움이 될 것 같은 매크로를 만들어 보았습니다.

1. 매크로를 만들려고 한 계기

2. 이번에 작성한 매크로

3. 작성 순서

3.1. 개인용 책에서 「매크로의 기록」을 실시한다.

3.2. 다음 항목을 입력한다.

3.3 "매크로 기록"을 종료한다.

3.4 기록한 매크로에 로직을 기술한다.

' ブック内の全シートの選択セルをA1にし、倍率を100%にする

Sub focusOnA1()
    ' ループ変数
    Dim targetSheet As Object

    ' ブック内のシートでループ
    For Each targetSheet In ActiveWorkbook.Sheets
        targetSheet.Activate
        ActiveSheet.Range("A1").Select
        ActiveWindow.Zoom = 100
    Next targetSheet

    ' ブック内の先頭シートをアクティブにする
    Sheets(1).Select
End Sub

4. 소스 코드에 대해서는 이하를 참조

5. 참고로 한 사이트