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
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 za zagon kode. Vse hiperpovezave bodo prikazane v novem delovnem listu z imenom Seznam hiperpovezav. Oglejte si posnetek zaslona:
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:
4. Nato kliknite OK gumb, so vsi resnični naslovi izvlečeni iz hiperpovezav, glej posnetek zaslona:
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
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...
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!