Private Sub cmdTemvFirst_Click()

　'先頭行へ移動
　Cells(11, "B").Select

End Sub

Private Sub cmdTemvLast_Click()

　'最終行へ移動
　Cells(65536, "B").End(xlUp).Select


End Sub

Private Sub CommandButton1_Click()

　'前へ移動
　Cells(ActiveCell.Row - 1, "B").Select



End Sub

Private Sub CommandButton2_Click()

　'次へ移動
　Cells(ActiveCell.Row + 1, "B").Select

End Sub