Hur kontrollerar jag om hyperlänk finns i ett kalkylblad i Excel?

För att kontrollera om hyperlänk finns i ett val kan du prova följande VBA-kod.

Kontrollera om hyperlänk finns i ett val med VBA-kod

---

Kontrollera om hyperlänk finns i ett val med VBA-kod

Du kan kontrollera om hyperlänk finns i ett urval eller kalkylblad med följande VBA-kod.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan och klistra in följande VBA-kod i kodfönstret.

VBA: Kontrollera om hyperlänk finns i ett urval

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. Tryck F5 för att köra koden. Då får du en Kutools för Excel i dialogrutan, välj ett intervall som du vill veta om det finns hyperlänk och klicka på OK knapp.

Sedan dyker en dialogruta upp för att visa cellerna som innehåller hyperlänkar i valt intervall.