Excel: Jak opravit nefunkční odkazy

V sešitu můžete někdy vytvořit odkazy na jiné sešity pro odkazování na některé relevantní informace. Ale když je zdrojový sešit přejmenován nebo přesunut do jiného umístění, tyto další odkazy budou přerušeny. Zde tento tutoriál představuje dvě různé metody pro opravu nefunkčních odkazů v aplikaci Excel.

Opravte nefunkční odkazy použitím Upravit odkazy

Opravte nefunkční odkazy pomocí kódu VBA

V Excelu můžete přejít do dialogu Upravit odkazy a opravit je jeden po druhém.

1. Aktivujte sešit, který obsahuje nefunkční odkazy, a klikněte Data > Upravit odkazy (V Dotazy a připojení skupina).

2. V Upravit odkazy dialog, klepněte na tlačítko Zkontroluj stav zjistit, které odkazy jsou nefunkční.
 

3. Poté klikněte na přerušené odkazy a poté klikněte Změnit zdroj tlačítko v Změnit zdroj vyberte správný zdrojový sešit a klepněte na OK.

nyní můžete vidět, že se stav změnil Chyba na OKa poté opakujte krok 3, abyste opravili další nefunkční odkazy.

Zde představuje kód VBA, který vám může pomoci.

1. Aktivujte sešit, který chcete opravit nefunkční odkazy, a stiskněte Další + F11 klíče.

2. Pak v praskání Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul k vytvoření nového prázdného modulu.

3. Zkopírujte a vložte níže uvedený kód do nového modulu.

VBA: Opravte nefunkční odkazy

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. lis F5 nebo Běh tlačítko  pro aktivaci kódu. Nyní hledá, zda existují nějaké nefunkční odkazy. Pokud ano, zobrazí se dialogové okno, které vám sdělí, který odkaz je nefunkční, vyberte prosím nový zdroj. Klikněte OK pokračovat.

5. V Otevřená vyberte aktualizovaný zdroj a klikněte na OK.

Pokud je v sešitu stále nefunkční odkaz, zobrazí se výše uvedená dialogová okna znovu, dokud nebudou opraveny všechny nefunkční odkazy.

Poznámka: Pokud v sešitu není žádný nefunkční odkaz, VBA se po spuštění zastaví.

Tip: pokud chcete zobrazit všechny další odkazy a přerušit nefunkční odkazy, Kutools pro ExcelJe Najděte a rozbijte nefunkční odkazy funkce bude dobrým pomocníkem.

Podrobnosti o této funkci zobrazíte kliknutím zde.

Chcete-li získat 30denní bezplatnou zkušební verzi, stáhněte si ji z zde.

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup... 

---

Karta Office - přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup...