Macros para excluir links f�rmulas no Excel para Mac

ID do artigo: 192895 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isen��o de Tradu��o Autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Para uma vers�o anterior deste artigo e do Microsoft Excel 97, consulte 126093

(http://support.microsoft.com/kb/126093/EN-US/ )

Expandir tudo | Recolher tudo

Quando voc� abre uma pasta de trabalho que cont�m links para outra pasta de trabalho, o Microsoft Excel perguntar� se voc� deseja atualizar v�nculos. Se o arquivo que o link est� se referindo a n�o existir ou se ela foi movida para uma pasta diferente, talvez queira excluir os v�nculos para evitar esta mensagem.

Voltar para o in�cio | Submeter coment�rios

Mais Informa��es

Um dos tipos mais comuns do link � um link de f�rmula. Uma f�rmula de v�nculo em uma c�lula pode se referir a uma c�lula em um arquivo de pasta de trabalho fechada. Se esse arquivo n�o existir mais, a f�rmula n�o � v�lida. Para excluir esse link, clique em Localizar no menu Editar e procure um ponto de exclama��o (!). Ou, se essa a��o falhar, procure um colchete ([]). Isso mostrar� cada link em uma planilha. Em seguida, voc� pode ir a cada c�lula, exclua a f�rmula e a substitua com o valor que estava na c�lula. Se v�rias c�lulas cont�m links, excluir os links pode levar algum tempo. Para acelerar o processo de exclus�o, conv�m usar um dos seguintes m�todos. As macros permitir� que voc� excluir alguns links e outros n�o. Ele n�o exclui links para pastas de trabalho que est�o abertas ou dentro de pasta de trabalho ativa.

Observa��o : essas macros podem n�o funcionar se o arquivo de origem de um link est� localizado em uma unidade de rede. Se for esse o caso, o link ser� encontrado, mas n�o exclu�do.

Exemplo de c�digo do Visual Basic

Microsoft fornece exemplos de programa��o apenas para ilustra��o, sem garantia expressa ou impl�cita. Isso inclui, mas n�o est� limitado a, garantias impl�citas de comercializa��o ou adequa��o para uma finalidade espec�fica. Este artigo presume que voc� est� familiarizados com a linguagem de programa��o que est� sendo demonstrada e com as ferramentas que s�o usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles n�o modificar�o esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender �s suas necessidades.

Digite o seguinte c�digo macro em uma nova planilha de m�dulo:

    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

Execute a macro Should_Delete.
Cada link na pasta de trabalho � identificado e para cada v�nculo for perguntado se voc� deseja excluir o v�nculo. Se voc� clicar em Sim , o link � exclu�do e o valor da c�lula atual � salvo em cada uma das c�lulas que foram anteriormente vinculadas.

Voltar para o in�cio | Submeter coment�rios

Propriedades

ID do artigo: 192895 - �ltima revis�o: ter�a-feira, 23 de janeiro de 2007 - Revis�o: 4.4

A informa��o contida neste artigo aplica-se a:

Microsoft Excel 2004 for Mac
Microsoft Excel X para Macintosh
Microsoft Excel 2001 para Mac
Microsoft Excel 98 for Macintosh

kbmt kbdtacode kbhowto KB192895 KbMtpt

Tradu��o autom�tica

IMPORTANTE: Este artigo foi traduzido por um sistema de tradu��o autom�tica (tamb�m designado por Machine Translation ou MT), n�o tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplica��es (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em portugu�s a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradu��o autom�tica n�o � sempre perfeita, podendo conter erros de vocabul�rio, sintaxe ou gram�tica. A Microsoft n�o � respons�vel por incoer�ncias, erros ou preju�zos ocorridos em decorr�ncia da utiliza��o dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualiza��es freq�entes ao software de tradu��o autom�tica (MT). Obrigado.

Clique aqui para ver a vers�o em Ingl�s deste artigo: 192895

(http://support.microsoft.com/kb/192895/en-us/ )

Voltar para o in�cio | Submeter coment�rios