Hogyan ellenőrizhető, hogy létezik-e hiperhivatkozás az Excel munkalapján?

A következő VBA-kód kipróbálásával ellenőrizheti, hogy létezik-e hiperhivatkozás egy kiválasztásban.

Ellenőrizze, hogy létezik-e hiperhivatkozás egy VBA kóddal rendelkező kiválasztásban

---

Ellenőrizze, hogy létezik-e hiperhivatkozás egy VBA kóddal rendelkező kiválasztásban

A következő VBA-kóddal ellenőrizheti, hogy létezik-e hiperhivatkozás egy kiválasztásban vagy munkalapon.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA: Ellenőrizze, hogy létezik-e hiperhivatkozás egy kiválasztásban

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. nyomja meg F5 gombot a kód futtatásához. Akkor kap egy Kutools az Excel számára párbeszédpanelen válassza ki a kívánt tartományt, ha létezik hiperhivatkozás, és kattintson a gombra OK gombot.

Ezután megjelenik egy párbeszédpanel, amely megmutatja azokat a cellákat, amelyek hiperhivatkozásokat tartalmaznak a kiválasztott tartományban.