Skip i'r prif gynnwys

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 hypergysylltiadau 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-rhestr-holl-hypergysylltiadau


swigen dde glas saeth Tynnwch yr holl gyfeiriadau gwirioneddol o hypergysylltiadau 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 :( Am ddim Lawrlwythwch 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-rhestr-holl-hypergysylltiadau

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

doc-rhestr-holl-hypergysylltiadau

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

Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr


Erthyglau perthnasol:

Sut i ddileu pob hyperddolen yn Excel yn gyflym?

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
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