Excelで複数のリンクを一括で開く方法【VBAマクロ活用】

Excelファイルに保存された複数のリンクを一度に開きたい場面は意外と多くあります。実はExcelには複数のリンクをまとめて開く機能が備わっていますが、その存在を知らないユーザーは少なくなく、リンクを1つずつ手作業で開いているのが現状です。

リンクの数が少なければ1つずつ開いてもそれほど手間ではありません。しかし、大量のリンクが保存されている場合は時間がかかりすぎて非効率です。この記事では、VBAマクロを使ってExcel内の複数のハイパーリンクを一括で開く方法を詳しく解説します。

VBAマクロで複数のリンクを一括で開く手順

Excelから複数のリンクを一度に開くには、シートにカスタムVBAスクリプトを挿入する必要があります。以下の手順に従って操作してください。

1] まずExcelファイルを開き、リンクを保存しているシートのタブを右クリックします。「コードの表示（View Code）」をクリックすると、「Microsoft Visual Basic」のウィンドウが開きます。

2] 次のコードをコピーして、ウィンドウ内に貼り付けてください。

Sub OpenHyperLinks()
Dim xHyperlink As Hyperlink
Dim WorkRng As Range
On Error Resume Next
xTitleId = "OpenHyperlinksInExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each xHyperlink In WorkRng.Hyperlinks
xHyperlink.Follow
Next
End Sub

3] Microsoft Visual Basicのウィンドウを閉じ、Excelファイルを「マクロ有効ブック（Excel Macro-Enabled Workbook）」形式で保存します。この形式は、「保存」または「名前を付けて保存」ウィンドウのドロップダウンメニューから選択できます。

4] 開きたいリンクが含まれるセルをすべて選択し、シートタブを右クリックして「コードの表示」を選択します。Microsoft Visual Basicのウィンドウが開いたら、F5キーを押して「OK」をクリックします。これで、選択したすべてのハイパーリンクが既定のブラウザで開きます。

なお、1つのExcelファイル内の複数のシートにハイパーリンクが保存されている場合でも、すべてのシートにVBAスクリプトを埋め込む必要はありません。ハイパーリンクを選択した状態で対象のシートを右クリックし、「コードの表示」を選んでF5キーを押すだけでOKです。

すると、先ほど作成したマクロが含まれたウィンドウがExcelに表示されます。マクロを選択して「実行」ボタンをクリックしましょう。

これで、そのシートに保存されている選択済みのハイパーリンクがすべて開きます。

ボタンを挿入してさらに便利に

Excelシートにボタンを挿入すれば、この操作をさらに簡単にできます。ボタンを挿入しておけば、毎回Microsoft Visual Basicのウィンドウを開くことなく、クリックするだけでマクロを実行できるようになります。

具体的な手順は以下の通りです。

1] まず、Excelで「開発」タブを有効にします。

「ファイル ＞ オプション」を開き、左側のペインで「リボンのユーザー設定」をクリックします。右側のペインで「開発」のチェックボックスにチェックを入れ、「OK」をクリックして設定を保存します。これで、Excelのメニューバーに「開発」タブが表示されるようになります。

2] 次に、「開発 ＞ 挿入」に進み、「ボタン」をクリックして挿入します。

3] ボタンを描画するには、マウスの左クリックを押しながらワークシート上でドラッグします。すると自動的にウィンドウが開くので、先ほど作成したマクロを選択して「OK」をクリックします。

必要に応じてボタンの名前を変更しましょう。これで、選択したリンクをこのボタンひとつで開けるようになります。