[Excel-VBA] 여러개의 시트 HyperLink 적용

요즘 문서 작업 할 일이 많아 엑셀을 주로쓴다...

매크로 돌려보면서 VBA로 코딩한다.

 

sub 함수명 (맞나?) 

Dim i As Integer 
Dim shit As Variant 

For i = 2 To Sheets.Count 
    Set shit = Sheet(i + 3) 
	ActiveSheet.HyperLinks.Add anchor := ActiveSheet.Range("D" & i + 4), Address:= ", SubAddress:= +
    "'" + shit.Name & "'" & "!A1", TextToDisplay := Range("D" & i + 4).value
    
Next




end sub

 

 

- Integer i를 선언

- Variant shit을 선언 (sheet을 담을것임, 변수명센스다주것음)

- i를 2부터 Sheet의 개수만큼 반복한다.

 

- shit에다 (i+3)의 Sheet을 할당한다. 
- 5부터 시작한것은 앞에는 안바꾸고 5부터 할것이라서 그럼.

- vba에서는 arrayOutOfBoundException이 나와서 롤백되는일이 없으므로 sheet의 개수+3만큼을 반복하더라도 걍 쓴다.

 

- 일터는 폐쇄망이고 집컴에는 엑셀이 없어서 기억을 더듬어서 한거라 정확하진 않음