仕事で使う用のExcelマクロ あると便利 効率とかはほとんど考えてない バグもあるかも 全てのシートのセル選択位置をA1にしてズームも合わせる Public Sub ResetPositionAndZoom() On Error Resume Next Dim zoom As Long 'ズームサイズ Dim i As Long 'ループカウンタ Dim sheetNumber As Long 'シート番号 'ズームサイズを選択する zoom = CLng(InputBox("ズームサイズを選択してください[%]")) If (zoom = 0) Then Exit Sub End If 'ズームと選択セルの位置を全シートに適用 For sheetNumber = 1 To Sheets.Count Worksheets(sheetNumber).Select If (ActiveWin