Hvordan finder og liste alle links (eksterne referencer) i Excel?
I Excel refererer du til indholdet af celler i en anden projektmappe ved at oprette en ekstern reference. Men når du vil liste alle links i en projektmappe i Excel, virker det svært at finde og liste alle de eksterne referencer (links). Den vanskelige måde i denne artikel hjælper dig med at finde ud af og liste alle links i projektmappen hurtigt.
Find og liste alle links med Find-kommandoen
Find og liste alle links med VB-makro
Find og liste alle links med Kutools for Excel
Find og liste alle links med Find-kommandoen
Fordi eksterne links indeholder parentes [ tegn, kan vi finde ud af de eksterne links, hvis vi kan få alle parentestegn i hele projektmappen.
1. Klik HOME > Find og vælg > Finde at åbne Søg og erstat dialog boks. Du kan også åbne Søg og erstat dialogboks med at trykke på Ctrl + F nøgler.
2. I boksen Find hvad: feltet, indtast venstre del af parentestegnet "[".
3. Klik IndstillingerI Inden for rulleliste, vælg Sheet or Workbook som du vil finde linkene fra. Se skærmbillede:
4. Og klik derefter på Find alle knap. Derefter viser den alle eksterne referencer i Søg og erstat dialogboksen med det samme. Trykke Ctrl + A for at vælge alle linkceller som følgende screeshot vist:
Den venstre del af parentestegnet kan finde ud af de eksterne links i hele projektmappen. Hvis du vil finde ud af alle slags links, herunder de interne links og eksterne links, kan du indtaste udråbstegn "!"i Find hvad: kasse.
Find og liste alle links med VB-makro
Den følgende VBA-makro kan hjælpe os med at liste alle sammenkædede kildearbejdsbøger i et nyt regneark i den aktuelle projektmappe.
1. Hold nede i ALT + F11 nøgler, og det åbner vinduet Microsoft Visual Basic for Applications.
2. Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet.
VBA: Liste over alle links i Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Tryk F5 nøgle til at køre denne makro. Derefter opretter det et nyt regneark med navnet Linkark og lister alle linksplacering og tilknyttede kildearbejdsbøger 'navne og lagringsstier i den på én gang. Se skærmbillede:
Find og liste alle links med Kutools for Excel
Med Kutools for Excel's Find og knæk ødelagte links, kan du finde alle de eksterne links i det aktive regneark på samme tid, kan du bryde de specifikke links, som du har brug for.
Hvis du har installeret Kutools for Excelskal du gøre som dette:
1. Aktivér det regneark, som du vil finde linkene, og klik på Kutools > Forbindelse > Find og knæk ødelagte links, se skærmbillede:
2. I boksen Find og knæk ødelagte links dialogboksen, klik filtre rulleliste for at vælge Alle links, og alle links i det aktive regneark er angivet, kan du også se linkstatus, OK står for linket er gyldigt, Fejl betyder, at linket er brudt.
Noter:
1. Hvis Vis celle indstilling er markeret, når du klikker på linket på listen. Det finder og navigerer til den specifikke celle, der indeholder linket i regnearket.
2. Og hvis du vil bryde et link, kan du vælge linket fra listen og derefter klikke på Bryde link.
Klik for at downloade Kutools for Excel og gratis prøveversion nu!
Hvis du vil vide mere om denne funktion, skal du klikke Find og knæk ødelagte links.
Find og liste alle links med Kutools for Excel
Kutools for Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Download den gratis prøveperiode nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
