Hvordan kontrolleres det hurtigt, om et ark er tomt i Excel?
Hvis der er nogle tomme ark i en kæmpe projektmappe, hvordan kan du hurtigt kontrollere, om et ark er tomt i projektmappen og derefter slette dem? I Excel er der en indbygget funktion til at afgøre, om et ark er tomt eller ej, men her introducerer jeg en VBA-kode til dig for at kontrollere, om et ark er tomt.
Kontroller, om et ark er tomt med VBA
Kontroller, om et ark er tomt med VBA
For at kontrollere, om et ark er tomt, kan du bruge nedenstående makrokode til hurtigt at afgøre, om et ark er tomt.
1. Aktivér et ark, du vil kontrollere, om det er tomt, tryk på Alt + F11 nøgle til at åbne Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler at oprette en ny Moduler.
2. Indsæt under makrokoden i det tomme script til det. Se skærmbillede:
VBA: Kontroller, om et ark er tomt
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. Gem koden, og tryk på F5 tast for at køre koden, og en dialogboks vises for at minde dig om, at arket er tomt eller ej.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!