Přejít k hlavnímu obsahu

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ů:

1) Ukotvení hypertextových odkazů: vytvořeno následující funkcí HYPERLINK:
=HYPERLINK(link_location,[friendly_name])
2) Hypertextové odkazy na stránky: odkaz na určitou stránku;
3) E-mailové hypertextové odkazy: přejděte na e-mailovou adresu.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

karta kte 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations