Hogyan lehet gyorsan ellenőrizni, hogy egy lap üres-e az Excelben?
Ha van egy üres munkafüzet egy hatalmas munkafüzetben, hogyan lehet gyorsan ellenőrizni, hogy üres-e egy lap a munkafüzetben, majd törölje őket? Az Excel programban van egy beépített függvény annak megállapítására, hogy egy lap üres-e vagy sem, de itt bemutatok egy VBA kódot, hogy ellenőrizhessük, üres-e egy lap.
Ellenőrizze, hogy egy lap üres-e a VBA segítségével
Ellenőrizze, hogy egy lap üres-e a VBA segítségével
Annak ellenőrzésére, hogy egy lap üres-e, a makrókód alatt megadhatja, hogy egy lap üres-e.
1. Engedélyezze az ellenőrizni kívánt lapot, hogy üres-e, nyomja meg a gombot Alt + F11 kulcs megnyitásához Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok hogy hozzon létre egy új Modulok.
2. Az üres szkriptbe illessze be a makrókód alá. Lásd a képernyőképet:
VBA: Ellenőrizze, hogy üres-e egy lap
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. Mentse el a kódot, majd nyomja meg az gombot F5 gombot a kód futtatásához, és megjelenik egy párbeszédablak, amely emlékezteti Önt arra, hogy a lap üres vagy sem.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!