More than 1 year has passed since last update.

Excel複数シートを指定した倍率設定

Posted at 2022-07-14

Excel複数シートを指定した倍率設定、かつ、A1セルにカーソルを移動する

Sub formatDisplay100AndGotoA1()
    Dim s As Object
    For Each s In ActiveWorkbook.Sheets
        s.Activate
        ActiveSheet.Range("A1").Select
        ActiveWindow.Zoom = 100
    Next s
 Sheets(1).Select
 MsgBox (Sheets.Count & " Sheets" & vbCrLf & " done")
End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up