Makra odstranit vzorec propojení v aplikaci Excel for Mac

Překlady článku Překlady článku
ID článku: 192895 - Produkty, které se vztahují k tomuto článku.
Microsoft Excel 97 a dřívější verzi tohoto článku naleznete 126093.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Otevřete sešit, který obsahuje odkazy na jiný sešit uzavřený dotazem, zda chcete aktualizovat propojení. Pokud existuje propojení již odkazující na soubor nebo přesunut do jiné složky, můžete odstranit odkazy se vyhnout této zprávy.

Další informace

Jedním z nejběžnější typy propojení je vzorec propojení. Odkaz vzorec v buňce může odkazovat na buňku v souboru uzavřené sešitu. Pokud soubor již existuje, vzorec již není platný. Takový odkaz odstranit, klepněte na příkaz Najít v nabídce Úpravy a hledání vykřičník (!). Nebo pokud tato akce nezdaří vyhledat hranatá závorka ([]). Zobrazí list každý odkaz. Potom můžete přejít na každou buňku, vzorec odstranit a nahradit hodnotu, která byla v buňce. Pokud mnoho buňky obsahují odkazy, odstranění propojení může chvíli trvat. Chcete-li urychlit proces odstranění, můžete použít jednu z následujících metod. Makra umožňují odstranit některé odkazy a jiné ne. Neodstraní propojení sešitů, které jsou otevřené nebo v rámci aktivního sešitu.

Poznámka: Tato makra nemusí fungovat, pokud zdrojový soubor pro odkaz je umístěn na síťové jednotce. Pokud se jedná o tento případ, propojení nalezen ale není odstraněn.

Příklad kódu jazyka

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.
  1. Do nového listu modulu zadejte následující kód makra:
        Option Base 1
    
        'This macro deletes all formula links in a workbook.
        '
        'This macro does not delete a worksheet formula that references an open
        'book, for example:
        '
        '   =[Book1.xls]Sheet1!$A$1
        '
        ' To delete only the links in the active sheet, see the comments
        ' provided in the Delete_It macro later in this article.
    
        Public Times As Integer
        Public Link_Array As Variant
    
        Sub Should_Delete()
        Items = 0 'initialize these names
        Times = 0
        Link_Array = ActiveWorkbook.LinkSources 'find all document links
    
        Items = UBound(Link_Array) 'count the number of links
        For Times = 1 To Items
    
        'Ask whether to delete each link
        Msg = "Do you want to delete this link:  " & Link_Array(Times)
          Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
          Response = MsgBox(Msg, Style)
          If Response = vbYes Then Delete_It
          If Response = vbCancel Then Times = Items
        Next Times
        End Sub
    
        Sub Delete_It()
        Count = Len(Link_Array(Times))
        For Find_Bracket = 1 To Count - 1
          If Mid(Link_Array(Times), Count - Find_Bracket, 1) = ":" _
          Then Exit For
        Next Find_Bracket
        'Add brackets around the file name.
        With_Brackets = Left(Link_Array(Times), Count - Find_Bracket) & _
          "[" & Right(Link_Array(Times), Find_Bracket) & "]"
    
        'Does the replace.
    
        'If you want to remove links only on the active sheet, change the
        'next two lines into comments by placing an (') apostrophe in front of
        'them as well as the line, "Next Sheet_Select", that closes the loop.
    
        For Each Sheet_Select In ActiveWorkbook.Worksheets
    
        Sheet_Select.Activate
        Set Found_Link = Cells.Find(what:=With_Brackets, After:=ActiveCell, _
                lookin:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _
                searchdirection:=xlNext, matchcase:=False)
           While UCase(TypeName(Found_Link)) <> UCase("Nothing")
               Found_Link.Activate
    
               On Error GoTo anarray
    
               Found_Link.Formula = Found_Link.Value
    
               Set Found_Link = Cells.FindNext(After:=ActiveCell)
    
           Wend
        Next Sheet_Select 'To remove links only on the active sheet
                         'place an (') apostrophe at the front of this line.
    
        Exit Sub
    
        anarray:
        Selection.CurrentArray.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlValues
        Resume Next
    
        End Sub
    					
  2. Spustit makro Should_Delete.
  3. Identifikovat každý odkaz v sešitu a pro každý odkaz budete vyzváni zda chcete odstranit propojení. Klepněte na tlačítko Ano propojení odstraněno a aktuální hodnota buňky uložena v každé buňky, které byly dříve propojeny.

Vlastnosti

ID článku: 192895 - Poslední aktualizace: 23. ledna 2007 - Revize: 4.4
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X pro počítače Macintosh
  • Microsoft Excel 2001 pro počítače Macintosh
  • Microsoft Excel 98 pro počítače Macintosh
Klíčová slova: 
kbmt kbdtacode kbhowto KB192895 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:192895

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com