2
5

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

【Excel】”全シートA1セルに合わせ、倍率100%に戻す”マクロショートカットボタンの作成

Posted at

#概要
Excelファイルをやり取りする際は「カーソルをA1セルに合わせる」というお作法があるそうです。

たくさんシートがあるときにいちいち確認するのが面倒なので、自動でできるようにマクロをクイックアクセスツールバーに登録しています。
同じような内容の記事は多くあると思いますが、次の現場に移動した際自分ですぐ使えるようにメモしておきたいと思います。

####マクロの内容
・カーソルと表示位置をA1に合わせる
・表示の倍率を100%に合わせる(目が悪くてよく拡大するので)
・マクロが実行し終わったら1枚目のシートに移動してメッセージを出す

####参考URL
Excelで「全シートでA1セルに移動して元のシートに戻る」ショートカットを作る
ほとんどこちらを参考にさせていただいています・・・

#手順
1. 開発者タブを表示させる
2. 個人用マクロブックにマクロを保存
3. クイックアクセスツールバーに登録

#1.開発者タブを表示させる(表示されていない場合)
Windows
Mac

#2.個人用マクロブックにマクロを保存する
個人用マクロブックにマクロを保存するとどのExcelファイルでも使用できます。

####(1)個人用マクロブックを表示させる
開発者タブ->マクロの記録
マクロの保存先を個人用マクロブックに指定し、何もせずにOKボタンを押す

####(2)開発者タブ->VisualBasic
先ほど作成した個人用マクロブックのモジュールに以下を貼り付けて保存する


Sub Cursor_A1()

' 画面更新をさせない(チカチカするため)
Application.ScreenUpdating = False

Dim ws As Worksheet
' 各シートを順番に見ていく
For Each ws In Worksheets
' カーソルをA1に移動
ws.Select
Range("A1").Select
' 表示位置を左上端に移動
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
' 表示倍率を100%に戻す
ActiveWindow.Zoom = 100
Next ws

' 1枚目のシートに移動
Sheets(1).Select
'画面更新を再開させておく
Application.ScreenUpdating = True
' メッセージを表示
MsgBox "処理が完了しました"

End Sub

#3.クイックアクセスツールバーに登録
Excel -> 環境設定 -> リボンとツールバー -> クイックアクセスツールバー
コマンドの選択で[マクロ]を選択
先ほど作成したマクロを登録

#おわりに
1日1回以上は使っているショートカットボタンですが、1年程前に作成して以来今回記事を書くまでマクロについて調べることがなかったので、もっと勉強した方がいいなと思いました。
付け足すのにおすすめな処理などあれば、ぜひコメントの方で教えてください。

2
5
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
5

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?