Kako preveriti, ali hiperpovezava obstaja na delovnem listu v Excelu?

Če želite preveriti, ali v izboru obstaja hiperpovezava, lahko preizkusite naslednjo kodo VBA.

Preverite, ali obstaja hiperpovezava v izboru s kodo VBA

---

Preverite, ali obstaja hiperpovezava v izboru s kodo VBA

Lahko preverite, ali hiperpovezava obstaja v izboru ali na delovnem listu z naslednjo kodo VBA.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite naslednjo kodo VBA v okno Code.

VBA: Preverite, ali v izboru obstaja hiperpovezava

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. Pritisnite F5 tipko za zagon kode. Potem boste dobili a Kutools za Excel v pogovornem oknu izberite obseg, ki ga želite vedeti, če obstaja hiperpovezava, in kliknite na OK gumb.

Nato se prikaže pogovorno okno, ki vam prikaže celice, ki vsebujejo hiperpovezave v izbranem obsegu.