Как бързо да проверите дали даден лист е празен в Excel?
Ако има няколко празни листа в огромна работна книга, как можете бързо да проверите дали даден лист е празен в работната книга, след което да ги изтриете? В Excel има вградена функция за определяне дали даден лист е празен или не, но тук ви представям VBA код, за да проверите дали даден лист е празен.
Проверете дали даден лист е празен с VBA
Проверете дали даден лист е празен с VBA
За да проверите дали даден лист е празен, можете да използвате макро кода по-долу, за да определите бързо дали даден лист е празен.
1. Активирайте лист, който искате да проверите дали е празен, натиснете Alt + F11 ключ за отваряне Microsoft Visual Basic за приложения прозорец и щракнете Поставете > Модули за да създадете нов Модули.
2. В празния скрипт поставете по-долу макро кода към него. Вижте екранна снимка:
VBA: Проверете дали даден лист е празен
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Запазете кода и натиснете F5 за стартиране на кода и ще се появи диалогов прозорец, за да ви напомни, че листът е празен или не.
 |
 |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
