Kerstine에는 다양한 하이퍼 링크가 포함 된 워크 시트가 있습니다. 그녀는 각 링크의 일부만 대체 할 수있는 방법이 있는지 궁금합니다.

예를 들어 http://www.mysite.com/의 인스턴스를 c : / documents / mycopy /로 변경하고 싶을 수 있습니다. 링크에 추가 사항이 있으면 해당 부분이 남아 있어야합니다. 예를 들어 원본 링크가 http://www.mysite.com/thispage.html이면 c : /documents/mycopy/thispage.html로 변경됩니다.

이것은 매크로를 사용하여 쉽게 수행 할 수 있습니다. 그 이유는 일반 문자열 함수를 사용하여 하이퍼 링크를 검사하고 변경할 수 있기 때문입니다.

다음 매크로는 문제를 해결하는 간단한 방법을 제공합니다.

Sub EditHyperlinks()

Dim lnkH As Hyperlink     Dim sOld As String     Dim sNew As String

sOld = "http://www.mysite.com"

sNew = "c:/documents/mycopy/"



For Each lnkH In ActiveSheet.Hyperlinks         lnkH.Address = Replace(lnkH.Address, sOld, sNew)

lnkH.TextToDisplay = Replace(lnkH.TextToDisplay, sOld, sNew)

Next End Sub

이 루틴은 현재 워크 시트의 모든 하이퍼 링크를 단계별로 실행하고 필요한 경우 각 하이퍼 링크를 수정합니다. 하이퍼 링크와 표시된 텍스트가 모두 적절하게 변경됩니다. sOld 및 sNew 문자열을 변경하여 검색 대상과 대체 대상을 지정하기 만하면됩니다.

이 매크로는 이후 버전의 VBA에 내장 된 Replace 함수를 사용합니다. 바꾸기 기능이 포함되지 않은 이전 버전을 사용하는 경우 (매크로를 돌리려고 할 때 오류가 발생하기 때문에 알 수 있음) 파일의 한 부분을 대체하는 고유 한 바꾸기 기능을 만들어야합니다. 다른 문자열. 이러한 기능은 ExcelTips의 다른 문제에서 다루어졌습니다 .

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3358)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Changing_Portions_of_Many_Hyperlinks [Changing Portions of Many Hyperlinks].