【Excel VBA】全てのシートの左上セルを選択後に先頭シートをアクティブ化
全てのシートの左上セルを選択後に先頭シートをアクティブにします。
ドキュメント作成後にこのマクロを実行してから保存すると良いと思います。
' ' 全てのシートを左上選択状態にする ' Public Sub 全シート左上セル選択() On Error Resume Next ' 画面更新の停止 Application.ScreenUpdating = False ' 全シート分実行 Dim i As Integer For i = 1 To Worksheets.Count ' シートをアクティブ化 Worksheets(i).Activate ' 左上にスクロール Dim j As Integer For j = 1 To Windows(1).Panes.Count Windows(1).Panes(j).ScrollColumn = 1 Windows(1).Panes(j).ScrollRow = 1 Next ActiveSheet.Cells(1, 1).Select ' 左上を選択 ActiveWindow.View = xlNormalView ' 改ページプレビュー解除 ActiveWindow.Zoom = 100 ' 倍率100% Next ' 1番目のシートをアクティブ化 Worksheets(1).Activate ' 画面更新の再開 Application.ScreenUpdating = True End Sub