Hoe controleer ik of een hyperlink bestaat in een werkblad in Excel?
Om te controleren of een hyperlink in een selectie bestaat, kunt u de volgende VBA-code proberen.
Controleer of een hyperlink bestaat in een selectie met VBA-code
Controleer of een hyperlink bestaat in een selectie met VBA-code
U kunt controleren of een hyperlink bestaat in een selectie of werkblad met de volgende VBA-code.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer en plak vervolgens de volgende VBA-code in het codevenster.
VBA: controleer of een hyperlink bestaat in een selectie
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. druk op F5 sleutel om de code uit te voeren. Dan krijg je een Kutools for Excel dialoogvenster, selecteer een bereik waarvan u wilt weten of er een hyperlink bestaat en klik op het OK knop.
Vervolgens verschijnt er een dialoogvenster met de cellen die hyperlinks in het geselecteerde bereik bevatten.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!