別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

2015/07/31

Goto メソッド

次の例のように、1 行で、Activate メソッド や Select メソッド で、別シートのセルを選択しようとすると エラー になります。

　（例）現在は、「Sheet1」が選択されている状態
　　Worksheets(“Sheet2”).Range(“A1”).Activate　　　　（⇒ エラー）
　　Worksheets(“Sheet2”).Range(“A1”).Select　　　　　（⇒ エラー）

Goto メソッドを使用するとこれが可能になります。

　　Application.Goto Worksheets(“Sheet2”).Range(“A1”)

【書式】

object.Goto （ reference ,scroll ）

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
reference ・・・移動先のRange オブジェクトを指定します。省略すると、直前に Goto メソッドを使用した時のセル範囲となります。
scroll ・・・ True を指定すると、移動先のセル範囲の左上端が、ウインドウの左上端に表示されるようにスクロールします。False を指定するとスクロールしません。省略可（既定値は、False）。

Goto メソッドを実行すると実行直前に選択しているセル範囲（移動前のセル範囲）が、PreviousSelections プロパティの 1 番目の要素に追加されます。

Goto メソッドで、引数 reference を省略して実行した場合、PreviousSelections プロパティの 1 番目の要素へ移動します。

PreviousSelections プロパティ

[名前] ボックスを使ってセルまたはセル範囲にジャンプしたり、[編集] メニューの [ジャンプ] をクリックしたり、マクロ（VBA）の Goto メソッドを呼び出したりすると、移動前のセル範囲が配列の 1 番目の要素として追加されます。配列の他の要素は、1 つずつ後ろに送られます。最大 4 個のセル範囲を保存することができます。

【書式】

object.PreviousSelections ( index )

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
index ・・・配列のインデックス番号（ 1 ～ 4 ）を指定します。

Goto メソッド使用例

サンプルVBAソース

　
Sub Sample_Goto()


    Worksheets("Sheet1").Activate
    Range("A1").Activate
    
    
    'Goto メソッドで、シート「Sheet2」のセル「B2」へ移動
    Application.Goto Worksheets("Sheet2").Range("B2")
    
    'Goto メソッドで、セル「E100」へ移動（スクロールする）
    Application.Goto Worksheets("Sheet2").Range("E100"), True
    
    
    '保存された、PreviousSelections の１番目の要素を表示
    '最後に Goto メソッドを実行した時の移動前のアドレス（ファイル名・シート名含む）
    MsgBox Application.PreviousSelections(1).Address(external:=True)
    

End Sub