再び質問です。１つのシートを上下に分割した状態で、

できれば、新しいウィンドウを開かずに、
ウィンドウ⇒分割

１つのシートを上下に分割した状態で、

上半分のシートは、縦のスクロールが１から５０までに制限し、
下半分のシートは、縦のスクロールが６０から１００までに制限したいのです。

↑ここまでは、解決しました。（下記マクロ）
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.Panes.Count = 1 Then
ActiveSheet.ScrollArea = ""
Exit Sub
End If
ActiveSheet.ScrollArea = IIf(ActiveWindow.ActivePane.Index = 1, "1:50", "60:100")
End Sub


できれば、同時に水平のスクロールをＡ列からＰ列までに制限したいのですが、
マクロの続きを教えていただけると幸いです。

No.1 回答者： xls88 回答日時： 2011/02/10 11:57

セル範囲を指定すれば良いと思います。

ActiveSheet.ScrollArea = IIf(ActiveWindow.ActivePane.Index = 1, "A1:P50", "A60:P100")