Как да изброя всички видими или скрити листове от работната книга?
Ако имате голяма работна книга, която съдържа някои скрити работни листове, сега трябва да изброите всички видими и скрити листове отделно в работен лист, както е показано на следната екранна снимка. В тази статия ще говоря за това как да изброя всички видими и скрити листове в Excel.
Избройте всички видими и скрити листове отделно с VBA код
Избройте всички видими листове в Excel с Kutools за Excel
Избройте всички видими и скрити листове отделно с VBA код
За да изброите имената на видимите и скритите раздели в работен лист, следният VBA код може да ви направи услуга, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Избройте всички видими и скрити листове отделно:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. След това натиснете F5 ключ за изпълнение на този код, всички видими, скрити, много скрити листове са изброени в нов лист отделно, както е показано на следната екранна снимка:
Избройте всички видими листове в Excel с Kutools за Excel
Ако имате Kutools за Excel, Със своята Създайте списък с имена на листове можете бързо да изброите всички видими листове на текущата работна книга с хипервръзки към всеки раздел.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools плюс > Работен лист > Създайте списък с имена на листове, вижте екранна снимка:
2. В Създайте списък с имена на листове диалогов прозорец:
(1.) Изберете Съдържа списък с хипервръзки под Стилове на индекса на листа раздел;
(2.) Въведете име на работен лист за индекс на листа.
(3.) Посочете местоположението на индекса на работния лист.
(4.) Посочете колко колони искате да показвате имената на работния лист в индекса на листа.
3, И после щракнете върху Ok всички видими листове са изброени в нов лист, с изключение на скритите листове, вижте екранната снимка:
Щракнете върху Изтегляне и безплатна пробна версия Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!