Přejít k hlavnímu obsahu

Jak rychle zobrazit seznam všech hypertextových odkazů v aplikaci Excel?

Když používáme list, možná v něm vytvoříme mnoho hypertextových odkazů a někdy potřebujeme vědět, kam text odkazuje. Pokud na ně kliknete jeden po druhém, bude to zdlouhavé a časově náročné. Pokud můžeme zobrazit všechny hypertextové odkazy s texty a adresami hypertextových odkazů v listu, bude pro nás snadné zkontrolovat všechny hypertextové odkazy v aplikaci Excel.

Seznam všech vybraných hypertextových odkazů s kódem VBA

Extrahujte všechny skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel


šipka modrá pravá bublina Seznam všech vybraných hypertextových odkazů s kódem VBA

1. Vyberte rozsah, který obsahuje hypertextové odkazy, které chcete vypsat.

2, klikněte Vývojka>Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit>Modula do modulu zadejte následující kód:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. Pak klikněte na tlačítko doc-multiplikovat-výpočet-3 tlačítko pro spuštění kódu. A všechny hypertextové odkazy se zobrazí v novém listu s názvem Seznam hypertextových odkazů. Viz snímek obrazovky:

hypertextové odkazy na seznam dokumentů


šipka modrá pravá bublina Extrahujte všechny skutečné adresy z hypertextových odkazů pomocí programu Kutools pro Excel

S Kutools pro ExcelJe Převést hypertextové odkazy funkce, můžete rychle extrahovat skutečné adresy z hypertextových odkazů.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, postupujte následovně :( Zdarma ke stažení Kutools pro Excel )

1. Vyberte hypertextové odkazy, ze kterých chcete extrahovat skutečné cíle.

2. Pak klikněte na tlačítko Kutools > Odkaz > Převést hypertextové odkazy, viz screenshot:

3. V Převést hypertextové odkazy dialogové okno vyberte Adresy hypertextových odkazů nahrazují obsah buňky možnost z nabídky Převést typ sekce a poté zadejte buňku, kam chcete výsledek vložit pod Rozsah výsledků sekce, viz screenshot:

hypertextové odkazy na seznam dokumentů

4. Pak klikněte na tlačítko OK tlačítko, všechny skutečné adresy byly extrahovány z hypertextových odkazů, viz screenshot:

hypertextové odkazy na seznam dokumentů

Poznámka: Převést rozsah zdroje: extrahované výsledky budou umístěny na původní rozsah buněk, pokud zaškrtnete tuto možnost.

Zdarma ke stažení Kutools pro Excel


Související článek:

Jak rychle odstranit všechny hypertextové odkazy v aplikaci Excel?

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
This comment was minimized by the moderator on the site
This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
This comment was minimized by the moderator on the site
Hi, It seems that the address selection applies to only web pages and not to other places in the document. - SH
This comment was minimized by the moderator on the site
This is awesome! Is there a way to show the full path? It seems to be truncating the file path a little.
This comment was minimized by the moderator on the site
this is a treasure!!! thank you
This comment was minimized by the moderator on the site
It does not work. Just empty page created
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations