Skip to content

Instantly share code, notes, and snippets.

@book000

book000/Zoom100CursorA1NormalView.vb

Created January 5, 2024 05:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save book000/852f8749b33a8e49b67ae64507c6f8a6 to your computer and use it in GitHub Desktop.
Save book000/852f8749b33a8e49b67ae64507c6f8a6 to your computer and use it in GitHub Desktop.
Download ZIP
すべてのシートを「倍率100%」「アクティブセルA1」「標準ビュー」にする
Raw
Zoom100CursorA1NormalView.vb
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