Note: The other languages of the website are Google-translated. Back to English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To nefunguje. Právě byla vytvořena prázdná stránka
Tento komentář byl moderátorem webu minimalizován
to je poklad!!! Děkuji
Tento komentář byl moderátorem webu minimalizován
To je úžasné! Existuje způsob, jak ukázat celou cestu? Zdá se, že trochu zkracuje cestu k souboru.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, zdá se, že výběr adresy se vztahuje pouze na webové stránky a nikoli na jiná místa v dokumentu. - SH
Tento komentář byl moderátorem webu minimalizován
Tohle byl zachránce života. Pro každého, kdo hledá zobrazení hypertextového odkazu, kde jsou dokumenty uloženy na síťové cestě, by to mělo fungovat. Nevybral jsem nic, postupoval podle kroků a vytvořil nový list s rozbalenými odkazy, který jsem mohl převést na prostý text a použít jej jako nezpracovaná data.
Tento komentář byl moderátorem webu minimalizován
Zdá se, že jste zapomněli lidem říct, aby vybrali rozsah. pokud vyberu rozsah buněk, vytvoří se seznam, jinak dostanu prázdný seznam jako yael.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění