日々更新中です!

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

  • URLをコピーしました!
悩んでいる男の子

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

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

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

今回は、全シートの選択セルを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(左上)に合わせるマクロについて解説しました。

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

ではまた!

  • 関連記事
  • 自由な生き方がしたいなら!

自由な生き方をするためには、稼ぐスキルを身に付けなければなりません。

当サイト「リバトレ」では稼ぐスキルに関する情報を日々発信しているので、興味のあるものから見て頂ければ嬉しいです。

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

シェアするんやで!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

いずみんのアバター いずみん 自由大好きおじ

自由大好きおじ | 物販月利50万達成⇨脱サラ | 物販(アパレルせどり)・アフィリエイト・プログラミング・投資に関する情報を発信中 | 元エンジニア | 保有資格約20個

コメント

コメントする

目次
閉じる