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 Sub3. 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:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
