以下のVBAコードを使用すると、A列の1行目から25行目までのセルに含まれるハイパーリンクをクリックしたときに、自動で関連するファイルを開くことができます。
“`vba
Sub OpenHyperlinks()
Dim rng As Range
Dim cell As Range
Set rng = Range(“A1:A25”) ‘ ハイパーリンクを含む範囲の指定
For Each cell In rng
If cell.Hyperlinks.Count > 0 Then
cell.Hyperlinks(1).Follow ‘ ハイパーリンクのファイルを開く
End If
Next cell
End Sub
“`
上記のコードをExcelのVBAエディタで実行するには、以下の手順に従います。
1. Excelファイルを開きます。
2. [開発]タブを選択し、[Visual Basic]をクリックします。
3. [挿入]メニューから[モジュール]を選択します。
4. モジュールウィンドウが表示されたら、コードを貼り付けます。
5. ファイルの場所に応じて、実行するためのショートカットキーを割り当てます(例: Ctrl + Shift + O)。
6. [実行]ボタン(またはショートカットキー)をクリックして、コードを実行します。
これにより、A列の各セルにあるハイパーリンクが順番に開かれます。