[기초방] VBA 100제 #26_1 [ 그룹별 목차 만들기 ]

26번 문제에서 생성한 각 그룹에 하이퍼링크를 이용한 목차 만들기

 

26번 문제에 아래와 같이 코드가 추가되었다.

Function haja_Hyperlinks()

    Dim rngAll As Range: Set rngAll = Range([f6], [f6].End(4))
    Dim rngA As Range
    
    For Each rngA In rngAll
    
        ActiveSheet.Hyperlinks.Add anchor:=rngA, Address:="", SubAddress:=rngA.Value & "!A1", ScreenTip:="[해당 시트로 이동]"
        rngA.Font.Underline = xlUnderlineStyleNone
        rngA.Font.Color = rgbDarkBlue
        rngA.Font.Bold = True
        rngA.Font.Size = 11
   
    Next rngA

End function

 

하이퍼링크에서 Address는 웹페이지 즉 Url을 말하며, SubAddress는 내부 시트를 뜻한다.

 

ActiveSheet.Hyperlinks.Add anchor:=rngA, Address:="", SubAddress:=rngA.Value & "!A1", ScreenTip:="[해당 시트로 이동]"

현재시트에 하이퍼링크를 추가하겠다.

하이퍼링크의 위치는 rngA(엑사남) 이고

웹페이지 하이퍼링크는 "" 이고

내부시트 하이퍼링크는 rngA.Value&"!a1" (엑사남!A1) -> 엑사남시트의 A1 셀

화면에 보이는 스크린팁은 [해당 시트로 이동]  으로 하이퍼링크를 생성해라 라는 뜻이다.

 

조금더 응용력을 더하면 각 시트의 A1셀에 다시 통합시트로 돌아오는 하이퍼링크를 추가하면 더 재밌지 않을까 한다.

 

 

 

기초방26_1.xlsm

0.05MB