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셀에 다시 통합시트로 돌아오는 하이퍼링크를 추가하면 더 재밌지 않을까 한다.
'VBA > 엑사남_기초방' 카테고리의 다른 글
[기초방] VBA 100제 #28 [ 그룹 통합하기 ] (0) | 2023.02.05 |
---|---|
[기초방] VBA 100제 #27 [ 미납자 확인 ] (2) | 2023.02.05 |
[기초방] VBA 100제 #26 [ 그룹별 시트 만들기 ] (0) | 2023.02.03 |
[기초방] VBA 100제 #25 [ 병합셀 다루기 ] (0) | 2023.02.02 |
[기초방] VBA 100제 #24 [ 멀티 필터링 ] (2) | 2023.02.01 |
댓글