У меня есть мастер лист Excel с более чем 150 вкладок. Я пытаюсь создать панель поиска, которая позволит мне легко просматривать эти именованные вкладки в алфавитном порядке и переходить на эти вкладки после нажатия.
1 ответ
1
Я бы использовал следующий код VBA для создания списка имен вкладок в виде гиперссылок на новом листе под названием «Индекс», а затем сортировал его вручную.
Sub generate_DOWN_list_with_hyperlinks_of_sheets_in_the_Active_Workbook()
Dim ws As Worksheet
If MsgBox("Do you want to create a list, starting in the active cell, of all sheets in this work book?", vbYesNo) = vbNo Then Exit Sub
For Each ws In ActiveWorkbook.Worksheets
'insert name
ActiveCell.Value = ws.Name
'insert hyperlink
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & ws.Name & "'!A1", _
TextToDisplay:=ws.Name
ActiveCell.Offset(1, 0).Activate
Next ws
End Sub