엑셀 시트가 많을때 시트목록을 만들어서 클릭으로 이동하기

팁&서식

엑셀 시트가 많을때 시트목록을 만들어서 클릭으로 이동하기

엑셀 시트가 많을때 시트목록을 만들어서 클릭으로 해당 시트에 이동하기


 소스코드는 별거 없음  ..


Sub sheet_collecting()

tmp = 0

For Each i In Worksheets


  If i.Name = "시트목록" Then

    tmp = 1

    Exit For

  End If

Next

If tmp = 0 Then

   Worksheets.Add

   ActiveSheet.Name = "시트목록"

End If

Sheets("시트목록").Select

cnt = 1

Range("A1") = "시트명"

For Each i In Worksheets

 If i.Name <> "시트목록" Then

   cnt = cnt + 1

   'Range("A1").Offset(cnt, 0) = i.Name

   ActiveSheet.Hyperlinks.Add anchor:=ActiveSheet.Range("A" & cnt), Address:="", SubAddress:=i.Name & "!A1", TextToDisplay:=i.Name

 End If

Next


End Sub



Comments

Category
State
  • 현재 접속자 7 명
  • 오늘 방문자 62 명
  • 어제 방문자 91 명
  • 최대 방문자 491 명
  • 전체 방문자 374,328 명
  • 전체 게시물 2,708 개
  • 전체 댓글수 105 개
  • 전체 회원수 109 명
Facebook Twitter GooglePlus KakaoStory NaverBand