ExcelでWebサイトやファイル、シート内ジャンプなどをまとめた「リンク集」を作成するケースは少なくありません。
その際、リンクを一つずつ開くのは手間がかかります。
本記事では、VBAを使ってアクティブシート内のすべてのハイパーリンクを自動で一括開く方法をご紹介いたします。
目次
想定する用途と目的
- Webリンク一覧を一度にすべて開きたい。
- リンクのチェック作業を効率化したい。
- 複数ファイルへのリンクを自動的に開いて確認したい。
VBAコードの例
以下のコードを実行すると、現在アクティブなシートに存在するすべてのハイパーリンクが順番に開かれます。
Sub OpenAllHyperlinks()
Dim linkItem As Hyperlink
For Each linkItem In ActiveSheet.Hyperlinks
linkItem.Follow
Next linkItem
End Sub
コードの解説
| 要素名 | 説明 |
|---|---|
ActiveSheet.Hyperlinks | 現在アクティブなシート上に存在するすべてのハイパーリンクを対象とします。 |
linkItem.Follow | ハイパーリンクを開くための標準メソッドです。Webリンク・ファイル・シート内リンクすべてに対応しています。 |
注意点
- WebサイトのURLが複数ある場合は、ブラウザが複数タブで開かれます。
- ファイルへのリンクの場合は、ファイルの種類によっては確認ダイアログが表示される可能性があります。
- すべてのリンクを一気に開くため、実行環境の負荷やセキュリティ設定にご注意ください。
よくある活用例
- チーム内で共有されているリンク集の動作チェック。
- 定期的に確認すべきWebページの一括展開。
- 複数のフォルダ・ファイルを開くための作業支援マクロ。
まとめ
VBAを活用すれば、Excelシート内に存在するすべてのハイパーリンクを自動的に一括で開くことができます。
このテクニックは、リンクの動作確認やWeb巡回作業など、日常業務の中で繰り返される単純作業の自動化に非常に効果的です。
作業効率を高め、クリックの手間を省きたい方は、ぜひこのコードをご活用ください。
