Как да проверя дали лист съществува в работна книга?
Когато имате десетки работни листове или дори стотици работни листове в работна книга и искате да намерите или проверите дали съществува лист в тази работна книга, като цяло това може да е огромна работа. Сега представям код на VBA и удобен инструмент за вас, за да проверите бързо дали съществува лист в работна книга.
Проверете дали съществува лист в работна книга с VBA
Проверете дали съществува лист и превключете към него с Kutools за Excel
Проверете дали съществува лист в работна книга
Моля, следвайте стъпките по-долу, за да копирате кода на VBA и да го стартирате, за да проверите дали съществува лист в текущата работна книга.
1. Натиснете Alt + F11 за показване на Microsoft Visual Basic за приложения прозорец.
2. В прозореца щракнете Поставете > Модули за да покажете нов прозорец на модула, след това копирайте следния VBA код в прозореца на модула.
VBA: Проверете дали съществува лист в работна книга.
Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
If Application.ActiveWorkbook.Sheets(i).Name = pName Then
IsExist = True
Exit For
End If
Next
CheckSheet = IsExist
End Function
3. Запазете този код и се върнете към листа и изберете празна клетка, за да въведете тази формула =CheckSheet(“Shee1”) ( Sheet1 показва името на листа, който искате да проверите дали съществува) в него, натиснете Въведете бутона, FALSE показва, че този лист не съществува и Туре показва, че съществува в текущата работна книга.
Проверете дали съществува лист и превключете към него с Kutools за Excel с VBA
С дефинираната по-горе функция можете просто да проверите дали съществува лист и което също е малко трудно. Въпреки това, с Kutools за Excel, навигационният панел изброява всички имена на листове за вас, което поддържа превъртане, за да намерите листа, или филтриране на името на листа, за да намерите листа, и ако имате нужда, можете да щракнете върху името на листа, за да превключите бързо към листа след намиране.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. активирайте работната книга, в която искате да проверите дали има име на лист, и след това щракнете Kutools > навигация. Вижте екранна снимка
:
2. След това щракнете в изскачащия прозорец Работна тетрадка и лист бутон за разширяване на панела, можете да видите списък с всички имена на листове в панела, можете да превъртите, за да намерите имената на листовете.
3. Или можете да проверите филтър бутон, след това въведете ключовите думи на името на листа, който искате да проверите, след което указаното име на лист ще бъде в списък, щракнете върху името на листа, след което се обърне към листа.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!