Excel VBA テクニック集
特定セルへのジャンプ

・特定のセル「B2」へのジャンプ
    Excel_App.Goto Excel_App.ActiveSheet.Range("B2"), Scroll:=True

・表示枠固定の位置へジャンプ
    Dim Row_L As Long
    Dim Colm_I As Intger
    Dim Range_X As String
    Row_L = Excel_App.ActiveWindow.SplitRow + 1
    Colm_I = Excel_App.ActiveWindow.SplitColumn + 1
    Excel_App.Goto Excel_App.ActiveSheet.Cells(Row_L, Colm_I), Scroll:=True
    （注）SplitRow,SplitColumnとは、表示枠固定の位置の上・左のセルの位置の値になります。
          表示枠固定がなければ、SplitRow = 0 , SplitColumn = 0
          ２行を固定するならば、SplitRow = 2 , SplitColumn = 0
          ３列を固定するならば、SplitRow = 0 , SplitColumn = 3
          になります。

・印字領域の左上へジャンプ
    Dim Range_X As String
    Dim Pos_I As Integer
    Range_X = Excel_App.ActiveSheet.PageSetup.PrintArea
    Pos_I = InStr(Range_X, ":")
    If Pos_I > 2 Then
        Range_X = Left(Range_X, Pos_I - 1)
        Excel_App.Goto Excel_App.ActiveSheet.Range(Range_X), Scroll:=True
        End If