Šī apmācība iemācīs jums izdzēst vai notīrīt darblapu, izmantojot VBA.
Dzēst darblapu
Izmantojiet komandu dzēst, lai izdzēstu darblapu.
Dzēst darblapu pēc nosaukuma
| 1 | Izklājlapas ("Sheet1"). Dzēst |
Dzēst darblapu pēc indeksa numura
Šis kods izdzēš darblapas pirmo darblapu:
| 1 | Loksnes (1). Dzēst |
Šis kods izdzēš darbgrāmatas pēdējo darblapu:
| 1 | Izklājlapas (Sheets.Count). Dzēst |
Dzēst darblapu bez uzvednes
Mēģinot izdzēst darblapu, Excel lūgs jums apstiprināt savu darbību:
Varat atspējot šīs uzvednes (brīdinājumus), pārslēdzot DisplayAlerts:
| 123 | Application.DisplayAlerts = NepareiziIzklājlapas ("Sheet1"). DzēstApplication.DisplayAlerts = Patiess |
Izdzēst lapu, ja tā pastāv
Ja mēģināt izdzēst darblapu, kas neeksistē, VBA ģenerēs kļūdu. Izmantojot Ieslēgt kļūdu, turpiniet, varat pateikt VBA izdzēst lapu, ja tā pastāv, pretējā gadījumā pārejiet uz nākamo koda rindu:
| 123 | Par kļūdu Atsākt nākamoIzklājlapas ("Sheet1"). DzēstKļūda GoTo 0 |
Varat arī izmantot mūsu funkciju RangeExists, lai pārbaudītu, vai lapa pastāv, un, ja tā, to izdzēsiet:
| 123 | Ja RangeExists ("Sheet1") TadIzklājlapas ("Sheet1"). DzēstBeigas Ja |
Skaidra lapa
Šis kods notīrīs visu satura lapu, formātus un visu pārējo:
| 1 | Loksnes ("1. lapa"). Šūnas. Skaidrs |
Skaidrs lapas saturs
Šis kods notīrīs visu lapas saturu. Tas atstās formatējumu, komentārus un visu pārējo:
| 1 | Izklājlapas ("1. lapa"). Šūnas. Skaidrs saturs |
Skaidra lapa, ko izmanto
Iepriekš minētie piemēri notīrīs visas darblapas šūnas. Lielās loksnēs tas var aizņemt daudz laika. Ja tā vietā izmantojat UsedRange, VBA notīrīs tikai “izmantotās” šūnas, kurās ir vērtības, formāti utt.
| 1 | Izklājlapas ("Sheet1"). UsedRange.Clear |
