Steve는 웹 사이트 주소 (예 : www.example.com)를 포함하는 셀 범위 (A1 : A10)를 가지고 있습니다. 그는 매크로 내에서 이러한 각 주소를 별도의 브라우저 탭에서 한 번에 모두 브라우저에서 열 수 있는지 궁금합니다.

이 작업에 접근 할 수있는 몇 가지 방법이 있으며 선택하는 방법은 주로 워크 시트의 데이터 특성에 따라 다릅니다. 셀에 활성 하이퍼 링크 (클릭하면 브라우저에서 주소가 열리는 하이퍼 링크)가 포함되어 있으면 다소 간단한 매크로를 사용할 수 있습니다.

Sub FollowHyperlinks1()

Dim MyRange As Range     Dim hl As Hyperlink

On Error Resume Next     Set MyRange = Range("A1:A10")

For Each hl In MyRange.Hyperlinks         hl.Follow     Next hl End Sub

매크로는 A1 : A10 범위의 모든 하이퍼 링크를보고 Follow 메서드를 사용하여 기본 브라우저에서 각각을 엽니 다.

운영 체제가 Excel에서 브라우저로 정보를 전송하는 방식 때문에 매크로를 실행하기 전에 브라우저를 열어 두는 것이 좋습니다. 그 이유는 테스트에서 실제로 두 개의 브라우저 인스턴스가 열리고 일부 주소는 한 인스턴스에서 열리고 일부는 다른 인스턴스에서 열릴 수 있기 때문입니다.

이것은 브라우저의 첫 번째 인스턴스를 여는 데 지연이 있기 때문에 발생합니다. 매크로가 실행되기 전에 브라우저가 열려 있으면 지연이 없으며 각 주소는 동일한 브라우저 인스턴스의 다른 탭에서 열립니다.

워크 시트의 주소가 활성 하이퍼 링크가 아닐 수있는 경우 범위에 대해 Hyperlinks 컬렉션을 사용할 수 없습니다.

대신

범위에있는 각 셀의 값을 확인해야합니다.

Sub FollowHyperlinks2()

Dim MyRange As Range     Dim cell As Range     Dim sTemp As String

On Error Resume Next     Set MyRange = Range("A1:A10")

For Each cell In MyRange         sTemp = cell.Value         ThisWorkbook.FollowHyperlink Address:=sTemp     Next cell End Sub

이 접근 방식은 FollowHyperlink 메서드를 사용하여 sTemp 변수에 주소를로드합니다. 이 경우 셀 내용이 활성 하이퍼 링크인지 여부는 중요하지 않습니다. 코드는 여전히 브라우저에서 파일을 열려고합니다.

마지막으로, 데이터에 정규화 된 주소가 포함되어 있지 않은 경우에도 다른 접근 방식을 사용해야합니다. 예를 들어 Steve는 워크 시트에 www.example.com과 같은 주소가 있다고 언급했지만 이러한 주소는 지금까지 예제에서 작동하지 않습니다. 데이터가 처음에 http : // (또는 https : //와 같은 일부 변형)가 누락 된 경우 코드는 브라우저에서 주소를 열지 않습니다. 데이터에서 이러한 특성이있는 경우 매크로에 약간의 수정이 필요합니다.

Sub FollowHyperlinks3()

Dim MyRange As Range     Dim cell As Range     Dim sTemp As String

On Error Resume Next     Set MyRange = Range("A1:A10")

For Each cell In MyRange         sTemp = cell.Value         If InStr(sTemp, "://") = 0 Then             sTemp = "http://" & sTemp         End If         ThisWorkbook.FollowHyperlink Address:=sTemp     Next cell End Sub

이 예제는 sTemp의 내용을 검사하여 “: //”문자가 포함되어 있는지 확인합니다. 그렇지 않은 경우 접두사 http : //가 셀 내용에 추가되고 Excel은 FollowHyperlink 메서드를 사용하여 수정 된 주소를 엽니 다.

_ 참고 : _

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

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

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

이 팁 (11414)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은`link : / excel-Opening_Sites_in_a_Browser [Opening Sites in a Browser]`에서 찾을 수 있습니다.