Як перерахувати всі видимі або приховані аркуші з книги?
Якщо у вас є велика книга, яка містить кілька прихованих аркушів, то тепер вам потрібно перелічити всі видимі та приховані аркуші окремо на аркуші, як показано на наступному знімку екрана. У цій статті я розповім про те, як перерахувати всі видимі та приховані аркуші в Excel.
Перелічіть усі видимі та приховані аркуші окремо за допомогою коду VBA
Перерахуйте всі видимі аркуші в Excel за допомогою Kutools для Excel
Перелічіть усі видимі та приховані аркуші окремо за допомогою коду VBA
Щоб перелічити видимі та приховані імена вкладок на аркуші, такий код VBA може зробити вам послугу, будь-ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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 Plus > Робочий аркуш > Створіть список назв аркушів, див. скріншот:
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% та зменшує сотні клацань миші для вас щодня!