Excelのハイパーリンク関数を複数開く方法を、VBA初心者でもわかりやすく教えていただけますか?A列の1行目から25行目までのセルにhyperlink関数を使用している場合の手順を教えてください。

以下の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列の各セルにあるハイパーリンクが順番に開かれます。

コメントを残す