悩んでいる男の子全シートの選択セルをセル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(左上)に合わせるマクロについて解説しました。
ソースコード自体は簡単でしたね。
ではまた！
- 関連記事
あわせて読みたい
【VBA】SQL(INSERT文)自動生成ツールを作成！
VBAでSQLのINSERT文を自動生成するツールを作成したいんだけど、どうすればいいのかな？ こんな悩みを解決します。 本記事の内容 VBAでSQLのINSERT文を自動生成するツー…
コメント