매크로를 Mac용 Excel 에서 수식 링크를 삭제하려면

기술 자료 번역 기술 자료 번역
기술 자료: 192895 - 이 문서가 적용되는 제품 보기.
Microsoft Excel 97 및 이전 버전의 이 문서에 대한 126093 참조하십시오.
모두 확대 | 모두 축소

이 페이지에서

요약

다른 통합 문서에 대한 링크가 포함된 통합 문서를 열 때 자동으로 연결을 업데이트할 것인지 묻습니다. 링크를 더 이상 참조할 수 있는 파일이 있는 경우 또는 다른 폴더로 이동된 경우 이 메시지가 나타나지 않도록 링크를 삭제할 할 수 없습니다.

추가 정보

수식 링크를 가장 일반적인 연결 형식 중 하나입니다. 연결 수식 셀에 셀에 있는 닫힌된 통합 문서 파일 참조할 수 있습니다. 해당 파일이 더 이상 있으면 수식이 더 이상 유효하지 않습니다. 이러한 링크를 삭제하려면 느낌표 (!) 에 대한 검색 및 편집 메뉴에서 찾기 를 클릭하십시오. 또는 이 작업이 실패하면에 대한 () 대괄호 검색합니다. 각 링크를 시트에 표시됩니다. 각 셀의 수식을 삭제하고 셀을 있던 값으로 대체합니다 이동할 수 있습니다. 여러 셀에 링크가 있으면 링크를 삭제하는 시간이 걸릴 수 있습니다. 삭제 프로세스의 속도를 빠르게 하려면 다음 방법 중 하나를 사용할 수 있습니다. 매크로를 사용하면 일부 링크 및 다른 삭제할 수 있습니다. 열려 있는 통합 문서 또는 현재 통합 문서 내의 링크는 삭제되지 않습니다.

참고: 링크의 소스 파일이 네트워크 드라이브에 있는 경우 이 매크로가 작동하지 않을 수 있습니다. 이 경우 링크는 됩니다 수 있지만 삭제되지는지 않습니다.

Visual Basic 코드 예제

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다.
  1. 새 모듈 시트에 다음 매크로 코드를 입력합니다:
        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 매크로를 실행하십시오.
  3. 통합 문서의 각 링크 식별되며 각 링크에 대한 링크를 삭제할 것인지 여부를 묻습니다. 를 누르면 링크를 삭제하고 현재 셀 값이 각 이전에 연결된 셀에 저장됩니다.

속성

기술 자료: 192895 - 마지막 검토: 2007년 1월 23일 화요일 - 수정: 4.4
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Mac
  • Microsoft Excel 98 for Macintosh
키워드:?
kbmt kbdtacode kbhowto KB192895 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

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