【VBA】ハイパーリンクを確認メッセージを出さずに取得する方法

ハイパーリンク情報の大量取得は手作業では時間がかかります。この記事では、VBAを使用してハイパーリンク情報を効率的に取得し、確認メッセージが出ないように設定することで業務を大幅に効率化します。

サンプルコード

VBA

Option Explicit
Sub GetHyperlinksWithoutAlert()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 確認メッセージの表示をオフにする
    Application.DisplayAlerts = False
    
    ' ハイパーリンク情報を取得する
    Dim hyperlink As Hyperlink
    For Each hyperlink In ws.Hyperlinks
        Debug.Print hyperlink.Address, hyperlink.TextToDisplay
    Next hyperlink
    
    ' 確認メッセージの表示をオンに戻す
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。