マクロ ScrollColumn について

エクセルのマクロScrollColumnを組みたいです。
列A~Qまではウインドウ枠の固定をしており常に表示しています。
列AMをマクロにて、列Qの隣に表示させたいです。

宜しくお願いします。
前提条件等で不足があれば教えてください。(それすら分かっていないので申し訳ないですが・・・)

質問者からの補足コメント

• ご回答ありがとうございます。
  
  追加ですが、シートを各月にて分けています。4月、５月、・・・と。
  その場合は、上記の式のどの部分をどのように変えればよいでしょうか？
  
  宜しくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/04/07 11:06

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2022/04/07 09:58

難しく考えないで、こちら↓を参考にして組めばよいのでは。

https://docs.microsoft.com/ja-jp/office/vba/api/ …
例：
Sub test1()
　Worksheets("Sheet1").Activate
　ActiveWindow.ScrollColumn = 39 ' AM列までスクロール
End Sub

どの行を表示していても、AM1のセルまでスクロールしたいのなら。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
例：
Sub test2()
Application.Goto Reference:=Worksheets("Sheet1").Range("AM1"), _
scroll:=True
End Sub
このGOTOメソッドを使えば、指定のセルをウィンドウ枠を固定した横に
表示することができます。

この回答へのお礼

ありがとうございました。

お礼日時：2022/04/07 11:59

No.2 回答者： mygoonickname 回答日時： 2022/04/07 11:44

おはようございます。

全てのシートでしたら、下記の様に、繰り返し処理すれば良いかと。
もし、月のシートだけでしたら、mySh.Nameでシート名が取れますので、
Right関数や、IF文などで判別すれば良いのでは？

Sub TEST()
Dim mySh As Worksheet

For Each mySh In Worksheets
mySh.Select
’処理
Next
End Sub

この回答へのお礼

ありがとうございます。
無事解決致しました。
大変助かりました。

お礼日時：2022/04/07 11:59