ExcelファイルでカーソルをA1へ移動するのが流行っているらしいのでアドインを作ってみました。
動作イメージ
設定方法
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②アドインファイルをダウンロード
JTCManners(AddIn)
③アドインを追加
過去の記事を参考に追加してください。
ソースコード
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