【Excel】全シートのセルをA1に移動・倍率100%にするアドイン

ExcelファイルでカーソルをA1へ移動するのが流行っているらしいのでアドインを作ってみました。

動作イメージ

設定方法

①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照

②アドインファイルをダウンロード

JTCManners(AddIn)

1 file(s) 20.65 KB

エクセルアドインをダウンロード

③アドインを追加
過去の記事を参考に追加してください。

ソースコード

Sub ObserveManners()
    Dim ws As Worksheet
    '全てのシートでA1セルを指定し、倍率を100%に変更。
    For Each ws In Worksheets
        ws.Select
        ws.Range("A1").Select
        ActiveWindow.Zoom = 100
    Next
    '1つ目のシートへ移動。
    Sheets(1).Select
End Sub