[[20080121104544]]　『複数のシートをスクロールバーで連動させる』（Q）　ページの最後に飛ぶ

『複数のシートをスクロールバーで連動させる』（Q）

はじめまして。質問させてください。

例えば列データが255以上あり、これ以上列を増やしても扱いづらいので、別のシートにデータを書き込んだとします。
（もちろん行データは共通とします。）

この方法を取ると不便なのは、スクロールバーを使って別のシートを表示させようとすると、そのシートでもスクロールバーを操作して、目的の行を表示させなければなりません。

全シート共通でスクロールバーに連動させる方法はないでしょうか。

 お望みのものそのものにはなってないとは思いますが多少は問題が解消できるかも。
 どこかのセルを選択したときの一番上に表示されている行が、切り替えた先のシートでも表示されます。
 セルを選択後にスクロールさせてシートを切り替るとその分は反映されません。この点が完全でないところです。
 ThisWorkbookモジュールに下のコードを貼り付けて動かしてみてください。

 Dim lngRow As Long

 Private Sub Workbook_Open()
     lngRow = ActiveWindow.ScrollRow
 End Sub

 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     ActiveWindow.ScrollRow = lngRow
 End Sub

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     lngRow = ActiveWindow.ScrollRow
 End Sub

 （やっちん）

 一般操作でも可能かもしれません。

 >例えば列データが255以上あり、
 エクセル2007でしょうか？

 始めて設定操作するので、手順が変、或いは余計な手順が
 有るかもしれません。

 表示メニューから[新しいウィンドウを開く]で
 タスクバーに例えば「ブック名：1」「ブック名：2」が表示されます。
 もう一度、表示メニューから[並べて比較]
 表示メニューの[整列]から「上下」とか「左右」に並べ替え出来ます。
 [並べて比較]の下にある[同時にスクロール]を選択すると
 連動スクロールが出来ます。

 >全シート共通で...
 ２つあるウィンドウでそれぞれシート選択を切り替えれば
 全シートで連動スクロールが適用されるようですよ。

 ただし、「ウィンドウ枠の固定」は[新しいウィンドウを開く]のほうでは
 解除されるようなので再設定ですね。

 エクセル2003以前の旧バージョンでも「ウィンドウ」メニューから
 同様の事が出来ると思います。

 ２つもウィンドウを開いてはいられない
 なら、この提案はだめですね。      （jun53）

コメント返信：

[ 一覧(最新更新順) ]

[[20080121104544]] 『複数のシートをスクロールバーで連動させる』（Q） ページの最後に飛ぶ

[[20080121104544]]　『複数のシートをスクロールバーで連動させる』（Q）　ページの最後に飛ぶ