Как да създадете списък с всички работни листове в активната работна книга, използвайки макрос VBA
Искате ли да създадете таблица с всички листове в активната работна книга? Използвайте следния макрос:
Sub ShowTablesheets ()
Dim Row As Long
Затъмнен лист като работен лист
Затъмнете новия лист като работен лист
Задайте Neublatt = ActiveWorkbook.Worksheets.Add
Ред = 1
За всеки лист в ActiveWorkbook.Worksheets
Ако Sheet.Name Нов Sheet.Name Тогава
Нов лист. Клетки (ред, 1) = име на лист
Линия = ред + 1
Край Ако
Следващ лист
End Sub
Макросът създава нов работен лист в активната работна книга, в който се запазват имената на всички работни листове. Само новият прегледен лист е изключен от списъка. Следващата фигура показва как може да изглежда резултатът:
За да влезете в макроса, отворете редактора на VBA в Excel, като използвате комбинацията от клавиши ALT F11. В този редактор изберете командата INSERT - MODULE и въведете макроса. Стартирате макроса от Excel с помощта на клавишната комбинация ALT F8.
