Cum se numără numărul de celule cu hyperlink-uri în Excel?

Ați încercat vreodată să numărați numărul de celule care conțin hyperlinkuri într-un interval dat în Excel? Acest tutorial oferă o metodă pas cu pas pentru a demonstra cum se realizează.

Numărați numărul de celule cu hyperlink cu cod VBA

Numărați numărul de celule cu hyperlink cu cod VBA

Următorul cod VBA poate fi folosit pentru a număra câte celule care conțin hyperlinkuri într-un interval dat. Vă rugăm să faceți după cum urmează.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

Sfaturi: De asemenea, puteți face clic Dezvoltator > Visual Basic pentru a deschide această fereastră.

2. În Visual Basic fereastră, faceți clic pe Insera > Modul, apoi inserați următorul cod VBA în fereastra Modul (cod).

Cod VBA: numărați numărul de celule cu hyperlink într-un interval dat

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. apasă pe F5 tasta pentru a rula codul. În pop-out Kutools pentru Excel caseta de dialog, selectați intervalul în care doriți să numărați numărul de celule de hyperlink, apoi faceți clic OK. Vedeți captura de ecran:

4. Apoi apare o casetă de dialog pentru a vă spune câte celule din intervalul selectat conțin hyperlinkuri. Clic OK pentru a închide caseta de dialog.

Apoi toate celulele care conțin hyperlinkuri sunt selectate în același timp.

notițe: Următoarele tipuri de hyperlinkuri pot fi numărate după codul VBA de mai sus: