Preskoči na glavno vsebino

Kako hitro našteti vse hiperpovezave v Excelu?

Ko uporabljamo delovni list, morda v njem ustvarimo veliko hiperpovezav, včasih pa moramo vedeti, kam besedila vodijo. Če jih kliknete enega za drugim, bo dolgočasno in dolgotrajno. Če lahko na delovnem listu naštejemo vse hiperpovezave z besedili in naslovi hiperpovezav, bomo lahko v programu Excel preverili vse hiperpovezave.

Navedite vse izbrane hiperpovezave s kodo VBA

Iz Kutools za Excel izvlecite vse dejanske naslove iz hiperpovezav


puščica modri desni mehurček Navedite vse izbrane hiperpovezave s kodo VBA

1. Izberite obseg, ki vsebuje hiperpovezave, ki jih želite našteti.

2. Kliknite Razvojni>Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi>Moduliin v modul vnesite naslednjo kodo:

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. Nato kliknite doc-pomnoži-izračun-3 za zagon kode. Vse hiperpovezave bodo prikazane v novem delovnem listu z imenom Seznam hiperpovezav. Oglejte si posnetek zaslona:

hiperpovezave doc-list-all


puščica modri desni mehurček Iz Kutools za Excel izvlecite vse dejanske naslove iz hiperpovezav

Z Kutools za ExcelJe Pretvori hiperpovezave lahko iz hiperpovezav hitro izvlečete prave naslove.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj )

1. Izberite hiperpovezave, za katere želite izvleči prave cilje.

2. Nato kliknite Kutools > Link > Pretvori hiperpovezave, glej posnetek zaslona:

3. v Pretvori hiperpovezave pogovorno okno, izberite Naslovi hiperpovezav nadomeščajo vsebino celic možnost iz Pretvori vrsto in nato določite celico, v katero želite dati rezultat pod Razpon rezultatov razdelek, glej posnetek zaslona:

hiperpovezave doc-list-all

4. Nato kliknite OK gumb, so vsi resnični naslovi izvlečeni iz hiperpovezav, glej posnetek zaslona:

hiperpovezave doc-list-all

Opombe: Pretvori obseg vira: če izberete to možnost, bodo izvlečeni rezultati v izvornem obsegu celic.

Brezplačno prenesite Kutools za Excel zdaj


Povezane člen:

Kako hitro izbrisati vse hiperpovezave v Excelu?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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