【VBA】全シート拡大率100%にしてA1セルを選択する
![【VBA】全シート拡大率100%にしてA1セルを選択する](https://i1.wp.com/program-index.yuuto-kannami.com/wp-content/uploads/2018/09/vba-resetcursorandzoom.jpg?fit=1104%2C738&ssl=1)
エクセルでシートが多くなって来ると、拡大率や選択セルの位置がバラバラになってしまうことがあります。それをまとめて一瞬で治す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
を実行してください。