Microsoft Excel VBA - 特定のセルを画面の左上隅にする方法

◆概要

同一シートにたくさんの表がある場合、ボタンでその表にジャンプさせることが可能です。その場合、指定したセルを画面の左上隅にできます。
次の例では、ワークシート「Seet2」を選択し、スクロールによりセルＡ１を選択しています。

Sub Goto1()
    Sheets("Sheet2").Activate
    ActiveSheet.Range("A1").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
End Sub

ApplicationオブジェクトのGotoメソッドを使うともっと簡単にできます。次の例は、ワークシート「Sheet2」のセルA1を左上隅にします。

Sub Goto2()
    Sheets("Sheet2").Activate
    Application.Goto reference:=Range("A1"), Scroll:=True
End Sub

A1ではなく、任意のセル、例えばH20を画面の左上隅にできます。

Sub Goto3()
    Sheets("Sheet2").Activate
    Application.Goto reference:=Range("H20"), Scroll:=True
End Sub

Excel 2019 動作確認済み

White Tiger