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
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 
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:
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:
4. Yna cliciwch OK botwm, mae'r holl gyfeiriadau go iawn wedi'u tynnu o'r hypergysylltiadau, gweler y screenshot:
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
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...
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!
