Как проверить, существует ли гиперссылка на листе в 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 .

После этого появится диалоговое окно со списком ячеек, содержащих гиперссылки в выбранном диапазоне.