У меня есть мастер лист Excel с более чем 150 вкладок. Я пытаюсь создать панель поиска, которая позволит мне легко просматривать эти именованные вкладки в алфавитном порядке и переходить на эти вкладки после нажатия.

1 ответ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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .