Created
January 5, 2024 05:36
-
-
Save book000/852f8749b33a8e49b67ae64507c6f8a6 to your computer and use it in GitHub Desktop.
すべてのシートを「倍率100%」「アクティブセルA1」「標準ビュー」にする
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub Zoom100CursorA1NormalView() | |
Dim sheet As Object | |
For Each sheet In ActiveWorkbook.Sheets | |
sheet.Activate | |
ActiveSheet.Range("A1").Select | |
ActiveWindow.Zoom = 100 | |
ActiveWindow.View = xlNormalView | |
Next sheet | |
Sheets(1).Select | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment