悩んでいる男の子全シートの選択セルをセル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(左上)に合わせるマクロについて解説しました。
ソースコード自体は簡単でしたね。
ではまた！
- 関連記事
あわせて読みたい
【VBA】SQL(INSERT文)自動生成ツールを作成！
VBAでSQLのINSERT文を自動生成するツールを作成したいんだけど、どうすればいいのかな？ こんな悩みを解決します。 本記事の内容 VBAでSQLのINSERT文を自動生成するツー…
- 自由な生き方がしたいなら！
自由な生き方をするためには、稼ぐスキルを身に付けなければなりません。
当サイト「リバトレ」では稼ぐスキルに関する情報を日々発信しているので、興味のあるものから見て頂ければ嬉しいです。
稼ぐスキルを身に付けよう！！
コメント