Jak sprawdzić, czy hiperłącze istnieje w arkuszu kalkulacyjnym w programie Excel?

Aby sprawdzić, czy w zaznaczeniu znajduje się hiperłącze, możesz wypróbować następujący kod VBA.

Sprawdź, czy istnieje hiperłącze w selekcji z kodem VBA

---

Sprawdź, czy istnieje hiperłącze w selekcji z kodem VBA

Możesz sprawdzić, czy hiperłącze istnieje w zaznaczeniu lub arkuszu z następującym kodem VBA.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej następujący kod VBA do okna Code.

VBA: Sprawdź, czy w zaznaczeniu istnieje hiperłącze

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. naciśnij F5 klucz do uruchomienia kodu. Wtedy otrzymasz Kutools dla programu Excel W oknie dialogowym wybierz zakres, który chcesz wiedzieć, czy istnieje hiperłącze, i kliknij OK przycisk.

Następnie pojawia się okno dialogowe pokazujące komórki zawierające hiperłącza w wybranym zakresie.