[생존 엑셀] 시트 생성, 시트 이름 변경, Hyperlink

내 의지와 상관없이 엑셀을 써서 해결해야하는 일들이 생긴다. 

이번 퀘스트는 40여개의 목록 갯수만큼 엑셀 시트를 생성하고, 시트명을 변경 후, 목록에서 일치하는 시트명에 하이퍼링크를  걸고, 각각의 시트에 데이터를  입력해야 했다. 

 

나는 시트를 하나하나 생성하고, 이름을 변경하고 싶지 않았다. 이것은 나의 게으름이 원인일 수 있으나, 손목이 좋지 않기 때문이다. ( 6개쯤 손으로 하는 것을 시도해보았는데, 손목이 시큰거렸고, 성질이 뻗쳤다. )

 

그래서 꾀를 부리기 시작했다. 

1. 시트 생성 

2. 시트 이름 변경 

3. 하이퍼링크 걸기   

 

이렇게 3단계로 퀘스트를 해결하고자 했고, 엑셀 매크로 쓰는 법을 인생 최초로 탐구해나가기 시작했다. 

( 다음에 또 쓸 일이 있을 것 같아 기록해둔다. 기록을 하는 첫번째 이유는 내가 보려고이지만, 부수적인 이유로는 건실하게 노력하는 사람에게 도움이 되고 싶기 때문이다. )

 

매크로를 쓰기 위해서는 먼저 [개발 도구] 탭을 만들어 주어야 한다. 

[파일] > [옵션] > [리본 사용자 지정] 으로 이동하여, [기본 탭]에 [개발 도구]를 체크하고 저장해준다. 

[개발 도구] 탭에서 매크로를 클릭해준다. 

매크로 이름을 작성하고, [만들기]를 눌러준다. 

 

그러면 작성할 수 있는 함수 영역이 뜬다. 

그 가운데에 코드를 작성하면 된다. 

 

1. 시트 생성 

Dim i As Integer 

For i=1 To 40 

    Worksheets.add

Next i 

 

새로 생성된 시트를 어디에 넣을 것인지를 지정하는 생성식들도 있으나, 가장 간단한 맨 왼쪽에 새 시트를 넣는 식을 반복문에 넣었다. 

 

2. 시트 이름 변경 

DIm i As Integer 

    With [b2:b41]

        For i=2 To .Rows.Count 

            Sheets(i).Name = .Cells(i)

        Next 

    End With

 

3. 하이퍼링크 

이건 그냥 목록 시트에서 수식으로 걸었다.