Jak spočítat počet buněk s hypertextovými odkazy v Excelu?
Zkoušeli jste někdy v Excelu spočítat počet buněk obsahujících hypertextové odkazy v daném rozsahu? Tento tutoriál poskytuje metodu, která krok za krokem ukazuje, jak toho dosáhnout.
Spočítejte počet buněk s hypertextovým odkazem s kódem VBA
Spočítejte počet buněk s hypertextovým odkazem s kódem VBA
Následující kód VBA lze použít k výpočtu počtu buněk obsahujících hypertextové odkazy v daném rozsahu. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
Tipy: Můžete také kliknout Vývojka > Visual Basic k otevření tohoto okna.
2. V Visual Basic okno, klepněte na tlačítko Vložit > Modul, poté vložte následující kód VBA do okna Modul (kód).
Kód VBA: Spočítá počet buněk s hypertextovými odkazy v daném rozsahu
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. zmáčkni F5 klíč ke spuštění kódu. Ve vyskočené Kutools pro Excel V dialogovém okně vyberte oblast, ve které chcete spočítat počet buněk hypertextového odkazu, a klepněte na tlačítko OK. Viz snímek obrazovky:
4. Poté se objeví dialogové okno, které vám řekne, kolik buněk ve vybraném rozsahu obsahuje hypertextové odkazy. Klikněte OK zavřete dialogové okno.
Poté jsou současně vybrány všechny buňky obsahující hypertextové odkazy.
Poznámka: Podle výše uvedeného kódu VBA lze počítat následující typy hypertextových odkazů:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!