Come verificare se esiste un collegamento ipertestuale in un foglio di lavoro in Excel?

Per verificare se esiste un collegamento ipertestuale in una selezione, puoi provare il seguente codice VBA.

Controlla se esiste un collegamento ipertestuale in una selezione con codice VBA

---

Controlla se esiste un collegamento ipertestuale in una selezione con codice VBA

È possibile verificare se esiste un collegamento ipertestuale in una selezione o in un foglio di lavoro con il seguente codice VBA.

1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra del codice.

VBA: controlla se esiste un collegamento ipertestuale in una selezione

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. Stampa F5 chiave per eseguire il codice. Quindi otterrai un file Kutools for Excel finestra di dialogo, selezionare un intervallo che si desidera sapere se esiste un collegamento ipertestuale e fare clic su OK pulsante.

Quindi viene visualizzata una finestra di dialogo per mostrare le celle che contengono collegamenti ipertestuali nell'intervallo selezionato.