Note: The other languages of the website are Google-translated. Back to English

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


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-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.

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
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio. Dim ond tudalen wag wedi'i chreu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dyma drysor!!! Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn arbennig! A oes ffordd i ddangos y llwybr llawn? Mae'n ymddangos ei fod yn cwtogi'r llwybr ffeil ychydig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae'n ymddangos bod y dewis cyfeiriad yn berthnasol i dudalennau gwe yn unig ac nid i leoedd eraill yn y ddogfen. — SH
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hwn yn achubwr bywyd. I unrhyw un sy'n edrych i gael yr arddangosfa hyperddolen lle mae dogfennau'n cael eu storio ar lwybr rhwydwaith, dylai hyn weithio i chi. Wnes i ddim dewis unrhyw beth, dilyn y camau, a chreodd ddalen newydd gyda'r dolenni wedi'u hehangu yr oeddwn yn gallu troi i mewn i destun plaen a'i ddefnyddio fel data crai.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos eich bod wedi anghofio dweud wrth bobl am ddewis ystod. os byddaf yn dewis ystod o gelloedd mae'n creu'r rhestr, fel arall byddaf yn cael rhestr wag fel y gwnaeth yael.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir