『自由力』を身に付けるサイト「リバトレ」も見てね!!

【VBA】全シートの選択セルをセルA1に合わせるマクロ

悩んでいる男の子

全シートの選択セルをセルA1に合わせるマクロを作りたいだけど、やり方が分からないんだよね。。

こんな悩みを解決します。

  • 本記事の内容
  • VBAで全シートの選択セルをセルA1に合わせるマクロの作り方
  • 本記事の執筆者
プロフィール
どこの写真だよ
  • 長身ガリガリ自称イケメン(1993/4/1生)
  • 元エンジニア(歴7年)、資格保有数約20個(IT系以外も含む)
  • 副業(物販)5か月目で月利30万円⇒脱サラ
  • 物販、システム開発、アフィリエイト、投資を細々とやっています。
  • 物販は彼女と楽しみながらやってます!

今回は、全シートの選択セルをA1(左上)に合わせるマクロについて解説します

いずみん

すぐ終わるので、最後まで読んでみてください!

目次

全シートの選択セルをセルA1に合わせるマクロ

早速ソースコードを記載しておきます。

Sub SelectCellA1()
    Dim workSheetIndex As Long
    
    For workSheetIndex = 1 To Worksheets.Count
        Worksheets(workSheetIndex).Activate
        Range("A1").Select
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
    Next
    
    Worksheets(1).Activate
End Sub

使用方法

上記のソースコードを標準モジュールに記載して実行するだけです。

アドインとして登録するのがおすすめです。

解説

Range("A1").Select

セルA1を選択している箇所です。

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

問題は7・8行目の部分です。

この記述がないと、セルA1を選択してもスクロールが初期状態に戻りません

まとめ

今回は、全シートの選択セルをA1(左上)に合わせるマクロについて解説しました

ソースコード自体は簡単でしたね。

ではまた!

  • 関連記事

この記事が気に入ったら
フォローしてね!

シェアするんやで!

~ リバトレ ~

お金や副業に関する情報を発信しているよ!

この記事を書いた人

いずみんのアバター いずみん 自由力発信おじ

【自由力発信】うさんくさ笑 | 副業物販で5ヶ月目に月利30万円達成⇨脱サラ予定 | 物販(アパレルせどり)・アフィリエイト・投資で自由になるための情報を発信中?笑 | 元エンジニア | 保有資格約20個

関連記事

コメント

コメントする

目次
閉じる