XL2000: 워크시트 내에 모든 하이퍼링크를 선택하는 메뉴 명령이 없다

기술 자료 번역 기술 자료 번역
기술 자료: 213790 - 이 문서가 적용되는 제품 보기.
이 문서는 이전에 다음 ID로 출판되었음: KR213790
이 문서가 보관되었습니다. "그대로" 제공되었으며, 업데이트가 되지 않을 것입니다.
모두 확대 | 모두 축소

이 페이지에서

현상

Microsoft Excel 2000에는 워크시트 내에 모든 하이퍼링크를 선택하게 해주는 메뉴 명령이 없습니다.

해결 과정

Microsoft는 모든 보증(상품, 특정 목적에 대한 적합성 및 비침해에 대한 묵시적인 보증을 포함하며 이에 제한되지 않음)을 배제하며 예를 보여주기 위한 목적으로만 이 Visual Basic 프로시저 예제를 제공합니다. 본 문서의 내용은 프로시저를 작성하고 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 기술 지원 담당자는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 사용자의 특정 목적에 맞도록 예제를 수정하여 추가 기능을 제공하거나 절차를 구성하지는 않습니다. 프로그래밍에 익숙하지 않은 사용자는 MCP(Microsoft Certified Partner)의 도움을 받거나 마이크로소프트 고객기술지원부(02-508-0040)로 문의하십시오. MCP에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오.
http://www.microsoft.com/partner/referral/
사용 가능한 지원 옵션 및 Microsoft에 문의하는 방법에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오.
기술 지원 서비스 안내
이 문제를 해결하려면 매크로를 사용하여 하이퍼링크를 포함하는 모든 셀을 선택합니다.
  1. Microsoft Excel에서 새 통합 문서를 만듭니다.
  2. 도구 메뉴에서 매크로를 가리킨 다음 Visual Basic Editor를 누릅니다.
  3. Visual Basic Editor의 삽입 메뉴에서 모듈을 누릅니다.
  4. 모듈에 다음 코드를 입력합니다.
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub

추가 정보

하이퍼링크를 사용하는 다른 매크로

Microsoft Visual Basic for Applications 서브루틴을 사용하여 워크시트 내의 모든 하이퍼링크를 순환하고 각 하이퍼링크에서 특정 작업을 수행할 수 있습니다. 예를 들어, 모든 하이퍼링크를 삭제하거나 각각의 하이퍼링크 위치를 간단하게 보고할 수 있습니다.

참고: 일부 코드 줄이 이 문서에 알맞게 줄 연속 문자(_)로 수정되었습니다.
  1. Microsoft Excel에서 새 통합 문서를 만듭니다.
  2. 도구 메뉴에서 매크로를 가리킨 다음 Visual Basic Editor를 누릅니다.
  3. Visual Basic Editor의 삽입 메뉴에서 모듈을 누릅니다.
  4. 모듈에 다음 코드를 입력합니다.
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
  5. 파일 메뉴에서 닫고 Microsoft Excel(으)로 돌아가기를 누릅니다.
일부 하이퍼링크를 워크시트에 삽입하는 경우 도구 메뉴에서 매크로를 가리킨 다음 매크로를 눌러 다른 매크로를 실행할 수 있습니다. 실행할 매크로 이름을 선택한 다음 실행을 누릅니다.

DeleteAllHyperlinks() 매크로는 해당 범위의 하이퍼링크 속성을 삭제하지만 하이퍼링크 텍스트는 삭제하지 않습니다. 하이퍼링크 텍스트는 남아 있습니다.

참조

하이퍼링크에 대한 자세한 내용은 Visual Basic Editor의 도움말 메뉴에서 Microsoft Visual Basic 도움말을 누르고 Office 길잡이나 도움말 마법사에서 hyperlink 개체를 입력한 다음 찾기를 눌러 해당 항목을 보십시오.



Microsoft 제품 관련 기술 전문가들과 온라인으로 정보를 교환하시려면 Microsoft 뉴스 그룹에 참여하시기 바랍니다.

속성

기술 자료: 213790 - 마지막 검토: 2014년 2월 9일 일요일 - 수정: 4.2
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Excel 2000 Standard Edition
키워드:?
kbnosurvey kbarchive kbprb kbdtacode KB213790

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