エクセルでシートが多くなって来ると、拡大率や選択セルの位置がバラバラになってしまうことがあります。それをまとめて一瞬で治すVBAマクロをサクッとご紹介。

全シート拡大率100％にしてA1セルを選択する

ソースコード

'初期セル
Public Const FIRST_CELL As String = "A1"
'初期拡大率
Public Const FIRST_EXPANSION_RATE As Integer = 100

'全シート拡大率100％にしてA1セルを選択する
Public Sub resetCursorAndZoom()

    '表示しているシートを保持
    Dim defaultSheet As Object
    Set defaultSheet = ActiveSheet

    '全シートをループする
    Dim s As Object
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        ' A1セルを選択する
        ActiveSheet.Range(FIRST_CELL).Select
        ' 拡大率を100％にする
        ActiveWindow.Zoom = FIRST_EXPANSION_RATE
    Next s

    '最初に表示していたシートに戻る
    defaultSheet.Activate
End Sub

実行方法

resetCursorAndZoomを実行してください。