Как да броим работни листове с конкретно име в Excel?
Опитвали ли сте някога да преброите работни листове, чието име започва с или съдържа конкретна дума? Например, пребройте броя на работните листове, чието име започва с или съдържа „KTE“. Тази статия ще предостави метод, който да ви помогне да покажете проблема.
Преброяване на работни листове с конкретно име с VBA код
Бързо намиране на всички работни листове, които съдържат конкретна дума в името на листа
Преброяване на работни листове с конкретно име с VBA код
Следните VBA кодове ви помагат да преброите броя на работните листове с конкретно име в работна книга. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу VBA кода в прозореца на кода.
VBA код 1: Преброяване на работни листове, чиито имена започват с „KTE“
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End SubАко искате да преброите броя работни листове, съдържащи „KTE“, моля, приложете по-долу VBA код 2.
VBA код 2: Преброяване на работни листове, чието име съдържа „KTE“
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End SubЗабележка: Моля, заменете думата „KTE“ с тази, въз основа на която трябва да преброите броя на работните листове.
3. Натисни F5 ключ за изпълнение на кода. След това ще се появи диалогов прозорец, за да ви каже колко работни листа в текущата работна книга започват с „KTE“ или съдържат „KTE“. Вижте екранни снимки:
Брой работни листове, чиито имена започват с „KTE“:
Брой работни листове, чието име съдържа „KTE“:
Бързо намиране на всички работни листове, които съдържат конкретна дума в името на листа.
Този раздел ще ви покаже как бързо да намерите всички работни листове, които съдържат конкретна дума в името на листа с Kutools за Excel.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатно за изпробване без ограничение за 30 дни.
1. След като инсталирате Kutools за Excel, Kutools' навигация прозорецът ще се отвори автоматично от лявата страна на работната книга. Или можете да активирате панела, като щракнете Kutools > навигация както е показано на екранната снимка по-долу.
2. В Работна тетрадка и лист раздел на навигационния панел, проверете филтър и въведете конкретното име на работен лист, въз основа на което намирате работни листове. След това всички работни листове, чието име съдържа конкретната дума, се филтрират и изброяват в списъчното поле на работния лист. Вижте екранна снимка:
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Още по темата:
- Как да препратка към име на раздел в клетка в Excel?
- Как да съпоставя стойността на клетката с името на раздела на листа или обратното в Excel?
- Как да отворите конкретен работен лист чрез избраната стойност на комбинирано поле в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
