Jak zkontrolovat, zda existuje hypertextový odkaz v listu v aplikaci Excel?

Chcete-li zkontrolovat, zda hypertextový odkaz ve výběru existuje, můžete vyzkoušet následující kód VBA.

Zkontrolujte, zda ve výběru existuje hypertextový odkaz s kódem VBA

---

Zkontrolujte, zda ve výběru existuje hypertextový odkaz s kódem VBA

Můžete zkontrolovat, zda existuje hypertextový odkaz ve výběru nebo listu s následujícím kódem VBA.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte a vložte následující kód VBA do okna Kód.

VBA: Zkontrolujte, zda ve výběru existuje hypertextový odkaz

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. lis F5 klíč ke spuštění kódu. Pak dostanete Kutools pro Excel V dialogovém okně vyberte rozsah, který chcete vědět, pokud existuje hypertextový odkaz, a klikněte na OK .

Poté se zobrazí dialogové okno, které vám ukáže buňky, které obsahují hypertextové odkazy ve vybraném rozsahu.