|
ScrolAreaプロパティでは、複数のセル範囲を指定するのは無理です。
なので別のやり方として、ワークシートのイベントマクロを使う方法を提案します。
以下のマクロをシートモジュールに入れて、いったん他のシートを開いてから該当
のシートに戻って下さい。あとは任意のセルをいくつか選択してみれば、動作が
分かると思います。
Private Sub Worksheet_Activate()
Application.Goto Range("A1"), True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Application
If .Intersect(Target, Range("A1:B10, F1:G10")) Is _
Nothing Then
.EnableEvents = False
.PreviousSelections(1).Select
.EnableEvents = True
Else
.Goto ActiveCell
End If
End With
End Sub
|
|