Makrolar, Mac için Excel formül bağlantıları silmek için

Makale çevirileri Makale çevirileri
Makale numarası: 192895 - Bu makalenin geçerli olduğu ürünleri görün.
Microsoft Excel 97 ve bu makalenin önceki bir sürümü için 126093 bakın.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Başka bir çalışma kitabına bağlantı içeren bir çalışma kitabını açtığınızda, Microsoft Excel, bağlantıları güncelleştirmek isteyip istemediğinizi sorar. Bağlantı artık başvuruda dosya varsa veya başka bir klasöre taşındı, bu iletisiyle karşılaşmamak için bağlantılar'ı silmek isteyebilirsiniz.

Daha fazla bilgi

En sık kullanılan bağlantı türlerinden birini formül bir bağlantıdır. Bir hücredeki BIR bağlantı formülünü kapalı bir çalışma kitabı dosyasını bir hücreye başvurabilirsiniz. Bu dosya artık yoksa, formül, artık geçerli değil. Bir bağlantıyı silmek için <a0></a0>, (!) ünlem arayın ve Düzen menüsünden Bul ' u tıklatın. Veya, bu eylemi başarısız olursa, bir ([]) köşeli ayraç için arama yapın. Bu her bağlantı bir sayfayı gösterir. Her bir hücreyi formülün silin ve hücrede bulunan değeri yerine gidebilirsiniz. Bağlantıları silme, çok sayıda hücre bağlantılar içeriyorsa, biraz zaman alabilir. Silme işlemi hızlandırmak için <a0></a0>, aşağıdaki yöntemlerden birini kullanmayı düşünebilirsiniz. Makroları bazı bağlantılar ve diğerlerini silmenize olanak sağlar. Açık olan çalışma kitaplarına veya etkin çalışma kitabı içinde bağlantıları silmez.

Not: bir bağlantının kaynak dosyasını, bir ağ sürücüsünde bulunuyorsa, bu makrolar çalışmayabilir. Bu durumda, bağlantı bulundu ancak silinmez.

Visual Basic kodu örneği

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
  1. Yeni bir modül sayfasına aşağıdaki makro kodunu yazın:
        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. Should_Delete makroyu çalıştırın.
  3. Çalışma kitabındaki her bir bağlantı olarak tanımlanır ve her bağlantı için bağlantıyı silmek isteyip istemediğinizi sorulur. Evet ' i tıklatırsanız, Microsoft Windows XP bağlantı silinir ve geçerli hücre değeri her birinde, daha önce bağlantılı hücreleri kaydedilir.

Özellikler

Makale numarası: 192895 - Last Review: 23 Ocak 2007 Salı - Gözden geçirme: 4.4
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Macintosh
  • Microsoft Excel 98 for Macintosh
Anahtar Kelimeler: 
kbmt kbdtacode kbhowto KB192895 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:192895

Geri Bildirim Ver

 

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