Wendy에는 TIFF 파일에 대한 1,200 개 이상의 하이퍼 링크가 포함 된 단일 Excel 워크 시트가 있습니다. (이들은 일반 링크가 아니라 하이퍼 링크입니다.) Excel이 중단되어 종료해야했기 때문에 Emily는 자동 저장 파일을 사용하여 이전에 저장된 파일을 복구했습니다. 이제 이전에 작동했던 모든 하이퍼 링크가 작동하지 않습니다. 그녀는 공유 네트워크 드라이브의 이미지에 대한 하이퍼 링크가 있었지만 자동 저장은 C : 드라이브를 참조하도록 하이퍼 링크를 변경했습니다. 그녀는 공유 네트워크 드라이브로 다시 복구 할 수있는 쉬운 방법이 있는지 궁금합니다.

처음에는 Excel의 일반 찾기 및 바꾸기 기능을 사용하여 하드 드라이브 지정 (예 : file : // c :)을 찾고 네트워크 드라이브 (예 : file : // shareddrive)로 교체 할 수있는 것처럼 보일 수 있습니다. 문제는이 접근 방식이 문제의 일부만 해결한다는 것입니다. 기본 하이퍼 링크 자체가 아니라 하이퍼 링크의 표시된 부분 만 변경한다는 것입니다. 하이퍼 링크 자체에 액세스 할 수있는 유일한 방법은 매크로를 사용하는 것입니다.

변경해야하는 모든 하이퍼 링크가 동일한 워크 시트에 있다고 가정하면 다음 매크로를 사용할 수 있습니다.

Sub FixHyperlinks1()

Dim wks As Worksheet     Dim hl As Hyperlink     Dim sOld As String     Dim sNew As String

Set wks = ActiveSheet     sOld = "c:\"      sNew = "S:\Network\"

For Each hl In wks.Hyperlinks         hl.Address = Replace(hl.Address, sOld, sNew)

Next hl End Sub

sOld 및 sNew 변수에 할당 된 값을 변경하기 만하면됩니다. 매크로를 실행하려고 할 때 오류 (바꾸기 함수가 포함 된 줄에 오류)가 발생하면 모든 버전의 Excel에서 바꾸기 함수를 사용할 수 없기 때문입니다. 이 경우 대신 다음 매크로를 사용해야합니다.

Sub FixHyperlinks2()

Dim wks As Worksheet     Dim hl As Hyperlink     Dim sOld As String     Dim sNew As String

Set wks = ActiveSheet     sOld = "c:\"      sNew = "S:\Network\"

For Each hl In wks.Hyperlinks         hl.Address = Application.WorksheetFunction. _             Substitute(hl.Address, sOld, sNew)

Next hl End Sub

유일한 차이점은 대체 워크 시트 함수를 사용하는 것입니다.

_ 참고 : _

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

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

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

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

link : / excelribbon-Changing_Huge_Numbers_of_Hyperlinks [Changing Huge Numbers of Hyperlinks].