Excel의 앵커 텍스트에서 URL 추출

Excel의 앵커 텍스트에서 URL 추출

내 질문에 맞는 내용을 찾기 위해 이 스레드를 살펴봤지만 대부분의 주제가 비슷했지만 내 주제에만 국한되지는 않았습니다.

Excel의 앵커 텍스트에서 URL을 추출하려고 합니다.

이에 대한 공식이 있나요? 시도했지만 =GETURL여전히 =HYPERLINKURL이 바인딩된 앵커 텍스트를 넣습니다.

어떤 아이디어가 있나요? 매크로 솔루션은 꽤 쓸모가 없으므로 공식이 좋을 것입니다. 그렇지 않으면 매크로를 나에게 놓으십시오.

답변1

하이퍼링크가 포함된 셀이 있고 "친숙한 이름" 대신 URL을 보려면 다음 UDF(사용자 정의 함수)를 고려하십시오.

Public Function hyp(r As Range) As String
    hyp = ""
    If r.Hyperlinks.Count > 0 Then
        hyp = r.Hyperlinks(1).Address
        Exit Function
    End If
    If r.HasFormula Then
        rf = r.Formula
        dq = Chr(34)
        If InStr(rf, dq) = 0 Then
        Else
            hyp = Split(r.Formula, dq)(1)
        End If
    End If
End Function

이 UDF는 삽입된 하이퍼링크 및 =HYPERLINK() 함수 모두에서 작동합니다.

사용자 정의 함수(UDF)는 설치 및 사용이 매우 쉽습니다.

  1. ALT-F11은 VBE 창을 불러옵니다
  2. ALT-I ALT-M은 새로운 모듈을 엽니다
  3. 내용을 붙여넣고 VBE 창을 닫습니다.

통합 문서를 저장하면 UDF도 함께 저장됩니다. 2003 이후 Excel 버전을 사용하는 경우 파일을 .xlsx가 아닌 .xlsm으로 저장해야 합니다.

UDF를 제거하려면:

  1. 위와 같이 VBE 창을 불러옵니다
  2. 코드를 지워라
  3. VBE 창을 닫습니다

Excel에서 UDF를 사용하려면:

=하이프(A1)

일반적인 매크로에 대해 자세히 알아보려면 다음을 참조하세요.

http://www.mvps.org/dmcritchie/excel/getstarted.htm

그리고

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

그리고

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

UDF에 대한 자세한 내용은

이 작업을 수행하려면 매크로를 활성화해야 합니다!

관련 정보