全てシートをスクロールさせたいのですが。。

エクセルVBAでブックの全てのシートを洗濯し
全てシートをスクロールさせたいのですが
.ScrollColumnをどのように指定すればいいのでしょうか？
Window.ScrollColumn = 4とするとオブジェクトが必要です。
とメッセージがでます。
ActiveWindow.ScrollColumn = 4にすると全てのシートに
反映されません。。。

No.1 ベストアンサー 回答者： hananoppo 回答日時： 2011/01/28 00:05

こんな感じで如何でしょう。

Sub Sample()
Dim Ws0 As Worksheet, Ws As Worksheet

Set Ws0 = ActiveSheet
For Each Ws In Worksheets
Ws.Activate
ActiveWindow.ScrollColumn = 4
Next Ws
Ws0.Activate
End Sub

この回答へのお礼

返信ありがとうございます！
ScrollColumnはやはりActiveWindowでないと
いけないのでしょうか？

Worksheets.Selectでシートを全て指定して
ActiveWindow.ScrollColumn = 4
だとアクティブウィンドウしか反映されないので
でActiveWindowの代わりに
Window.ScrollColumn = 4
としてみたのですが動きませんでした。。

お礼日時：2011/01/28 00:40

No.2 回答者： hananoppo 回答日時： 2011/01/28 01:51

> ScrollColumnはやはりActiveWindowでないといけないのでしょうか？

そもそも、普通はウィンドウを1つしか開いていないはずですが。「新しいウィンドウを開く」で複数のウィンドウを開くことは可能ですが、複数のウィンドウに対してはScrollColumnを1つずつ設定するしかないようです。

この回答へのお礼

やはりそうなんですね。。
もっと簡単にいくのかと思ってました。。
そしてhananoppoさんのコードで実行したらいくことができました！
ありがとうございました！！

お礼日時：2011/01/28 10:24