Hvordan tæller man antallet af celler med hyperlinks i Excel?
Har du nogensinde prøvet at tælle antallet af celler, der indeholder hyperlinks i et givet område i Excel? Denne tutorial giver en metode trin-for-trin til at demonstrere, hvordan man opnår det.
Tæl antallet af celler med hyperlink med VBA-kode
Tæl antallet af celler med hyperlink med VBA-kode
Følgende VBA-kode kan bruges til at tælle, hvor mange celler der indeholder hyperlinks i et givet område. Gør venligst som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
Tip: Du kan også klikke Udvikler > Visual Basic for at åbne dette vindue.
2. i Visual Basic vindue, skal du klikke på indsatte > Modul, indsæt derefter følgende VBA-kode i vinduet Modul (kode).
VBA-kode: Tæl antallet af celler med hyperlinks i et givet område
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub
3. Tryk på F5 nøgle for at køre koden. I sprang ud Kutools til Excel dialogboksen, vælg det område, hvor du vil tælle antallet af hyperlinkceller, og klik derefter OK. Se skærmbillede:
4. Derefter popper en dialogboks op for at fortælle dig, hvor mange celler i det valgte område, der indeholder hyperlinks. Klik OK for at lukke dialogboksen.
Derefter vælges alle celler, der indeholder hyperlinks, på samme tid.
Bemærk: Følgende typer hyperlinks kan tælles med ovenstående VBA-kode:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!