통합 문서에 매우 많은 수의 워크 시트가있는 경우 해당 워크 시트의 이름을 검색하여 고유 한 워크 시트에 넣을 수 있습니다. 예를 들어, 목차 나 다른 방식으로 사용할 수 있도록 한곳에서 사용할 수 있습니다. 다음 매크로 GetSheets는 현재 통합 문서의 워크 시트 이름을 빠르게 검색하여 현재 선택한 셀에서 시작하여 현재 통합 문서에 넣습니다.

Sub GetSheets()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         iRow = iRow + 1     Next w End Sub

시트 이름이 실제로 워크 시트에 대한 하이퍼 링크 인 실제 목차를 만들려면 다음과 같은 방식으로 매크로를 수정할 수 있습니다.

Sub MakeTOC()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer     Dim sTemp As String

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         sTemp = "'" & w.Name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), _           Address:="", SubAddress:=sTemp, TextToDisplay:=w.Name         iRow = iRow + 1     Next w End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11679)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은 여기에서 찾을 수 있습니다.

link : / excel-Retrieving_Worksheet_Names [워크 시트 이름 검색].