Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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-3za 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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
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!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 6 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Kurt · 7 years ago
    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.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 7 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 7 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 7 years ago
    this is a treasure!!!
    thank you
  • To post as a guest, your comment is unpublished.
    yael · 7 years ago
    It does not work. Just empty page created