Hvordan kontrolleres, om der findes hyperlink i et regneark i Excel?

For at kontrollere, om der findes hyperlink i et valg, kan du prøve følgende VBA-kode.

Kontroller, om der findes hyperlink i et valg med VBA-kode

---

Kontroller, om der findes hyperlink i et valg med VBA-kode

Du kan kontrollere, om der findes hyperlink i et valg eller regneark med følgende VBA-kode.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Og kopier og indsæt derefter følgende VBA-kode i vinduet Kode.

VBA: Kontroller, om der findes hyperlink i et valg

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. Trykke F5 nøgle for at køre koden. Så får du en Kutools til Excel i dialogboksen skal du vælge et område, du vil vide, hvis der findes hyperlink, og klik på OK .

Derefter dukker en dialogboks op for at vise dig de celler, der indeholder hyperlinks i det valgte område.