Excelのワークシートにハイパーリンクが存在するかどうかを確認するにはどうすればよいですか？

選択範囲にハイパーリンクが存在するかどうかを確認するには、次のVBAコードを試すことができます。

VBAコードを使用して選択範囲にハイパーリンクが存在するかどうかを確認します

---

VBAコードを使用して選択範囲にハイパーリンクが存在するかどうかを確認します

次のVBAコードを使用して、選択範囲またはワークシートにハイパーリンクが存在するかどうかを確認できます。

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、次のVBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBA：選択範囲にハイパーリンクが存在するかどうかを確認します

Sub HyperlinkCells()
    Dim xAdd As String
    Dim xTxt As String
    Dim xCell As Range
    Dim xRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
    Next
    If xAdd <> "" Then
        MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
    End If
End Sub

3。 押す F5 コードを実行するためのキー。 次に、 Kutools for Excel ダイアログボックスで、ハイパーリンクが存在するかどうかを知りたい範囲を選択し、[ OK ボタン。

次に、ダイアログボックスが表示され、選択した範囲のハイパーリンクを含むセルが表示されます。