Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i restru pob hyperddolen yn Excel yn gyflym?

Pan ddefnyddiwn daflen waith, efallai ein bod yn creu llawer o hypergysylltiadau ynddo, ac weithiau mae angen i ni wybod i ble mae'r testunau'n cysylltu. Os cliciwch nhw fesul un, bydd yn ddiflas ac yn cymryd llawer o amser. Os gallwn restru pob hyperddolen gyda thestunau a chyfeiriadau hyperddolenni mewn taflen waith, bydd yn hawdd i ni wirio'r holl hyperddolenni yn Excel.

Rhestrwch yr holl hyperddolenni a ddewiswyd gyda chod VBA

Tynnwch yr holl gyfeiriadau gwirioneddol o hyperddolenni gyda Kutools ar gyfer Excel


swigen dde glas saeth Rhestrwch yr holl hyperddolenni a ddewiswyd gyda chod VBA

1. Dewiswch yr ystod sy'n contanis yr hypergysylltiadau rydych chi am eu rhestru.

2. Cliciwch Datblygwr>Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod>Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:

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. Yna cliciwch doc-lluosi-cyfrifo-3 botwm i redeg y cod. A bydd pob un o'r hypergysylltiadau yn cael eu harddangos mewn taflen waith newydd o'r enw Rhestr Hyperlink. Gweler y screenshot:

doc-list-all-hyperlinks


swigen dde glas saeth Tynnwch yr holl gyfeiriadau gwirioneddol o hyperddolenni gyda Kutools ar gyfer Excel

Efo'r Kutools ar gyfer Excel'S Trosi Hypergysylltiadau nodwedd, gallwch chi dynnu'r cyfeiriadau go iawn o'r hyperddolenni yn gyflym.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr )

1. Dewiswch yr hypergysylltiadau rydych chi am dynnu'r cyrchfannau go iawn.

2. Yna cliciwch Kutools > Cyswllt > Trosi Hypergysylltiadau, gweler y screenshot:

3. Yn y Trosi Hypergysylltiadau blwch deialog, dewiswch Mae cyfeiriadau hypergysylltiadau yn disodli cynnwys celloedd opsiwn gan y Trosi math adran, ac yna nodwch gell lle rydych chi am roi'r canlyniad o dan yr adran Amrediad canlyniadau adran, gweler y screenshot:

doc-list-all-hyperlinks

4. Yna cliciwch OK botwm, mae'r holl gyfeiriadau go iawn wedi'u tynnu o'r hypergysylltiadau, gweler y screenshot:

doc-list-all-hyperlinks

Nodyn: Trosi ystod ffynhonnell: bydd y canlyniadau a dynnwyd wedi'u lleoli ar yr ystod gell wreiddiol os gwiriwch yr opsiwn hwn.

Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr


Erthyglau perthnasol:

Sut i ddileu pob hyperddolen yn Excel yn gyflym?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
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 · 6 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 · 6 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