Excelでハイパーリンクの結果をページの一番上に表示するにはどうすればよいですか？

Excelでハイパーリンクをクリックすると、ワークシートは自動的にリンクされたセルまでスクロールしますが、そのセルは画面のどこかにランダムに表示されることがよくあります。リンク先のセルを常にワークシートの可視領域の一番上（最初の行と揃える）に表示したい場合、この記事では簡単なVBAコードを使用してそれを実現する方法を紹介します。

VBAコードを使用してハイパーリンクの結果をページの一番上に表示する

VBAコードを使用してハイパーリンクの結果をページの一番上に表示する

次のVBAコードを使用して、ハイパーリンクの結果をページの一番上に表示できます。

1. 現在のシートタブを右クリックし、右クリックメニューから「 コードの表示」を選択します。

2. Microsoft Visual Basic for Applicationsウィンドウで、次のコードをコピーしてモジュールウィンドウに貼り付けます。

VBA: ハイパーリンクの結果をページの一番上に表示する

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

3. Alt + Qキーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これで、セルA1にあるH200にリンクするハイパーリンクをクリックすると、200行目がワークシートの可視領域の一番上に配置されます。（以下のスクリーンショットでは、最初の行が固定されており、スクロール中にハイパーリンクのあるセルが表示されたままになっています。）