ウインドー枠固定の 列 移動マクロについて

質問

エクセルのウインドー枠固定での列移動マクロについて

　列ABを枠固定して、列C～I、列J～P、列Q～W…と、7列を一区切りとして、15区切りの入力表を作成しています。
　ボタンをクリックすると、列Bの横に列Jが、またボタンクリックで列Bの横に列Qが・・・・というように、
ボタンクリックで、列Bの横に区切り（7列）の最初の列が移動するようなマクロは可能でしょうか。
どなたか、よろしくお願いします。

回答No.1

xls88 · ベストアンサー

下記で試してください。

Dim Cl As Long
Dim Rw As Long
Dim x As Long

Cl = ActiveWindow.ScrollColumn
Rw = ActiveWindow.ScrollRow
x = (Cl - 2) Mod 7
Application.Goto Cells(Rw, Cl).Offset(, 8 - x), True

お礼

早速のご教示ありがとうございます。
思うように、きれいに動きます。
ありがとうございました。