Ši pamoka išmokys jus, kaip ištrinti arba išvalyti darbalapį naudojant VBA.
Ištrinti darbalapį
Norėdami ištrinti darbalapį, naudokite komandą delete.
Ištrinti darbalapį pagal pavadinimą
1 | Skaičiuoklės („Sheet1“). Ištrinti |
Ištrinkite darbalapį pagal indekso numerį
Šis kodas ištrina pirmąjį darbaknygės darbalapį:
1 | Lakštai (1). Ištrinti |
Šis kodas ištrina paskutinį darbaknygės darbalapį:
1 | Lakštai (Sheets.Count). Ištrinti |
Ištrinti darbalapį be raginimo
Kai bandysite ištrinti darbalapį, „Excel“ paprašys jūsų patvirtinti savo veiksmą:
Galite išjungti šiuos raginimus (įspėjimus) perjungdami „DisplayAlerts“:
123 | Application.DisplayAlerts = NetiesaSkaičiuoklės („Sheet1“). IštrintiApplication.DisplayAlerts = Tiesa |
Ištrinkite lapą, jei jis yra
Jei bandysite ištrinti darbalapį, kurio nėra, VBA sukurs klaidą. Naudodami „On Error Resume Next“ galite pasakyti VBA, kad ištrintų lapą, jei jis yra, kitaip pereikite prie kitos kodo eilutės:
123 | Dėl klaidos Tęsti toliauSkaičiuoklės („Sheet1“). IštrintiKlaida „GoTo 0“ |
Taip pat galite naudoti mūsų funkciją „RangeExists“, kad patikrintumėte, ar lapas yra, ir jei taip, jį ištrinkite:
123 | Jei „RangeExists“ („Sheet1“) TadaSkaičiuoklės („Sheet1“). IštrintiPabaiga Jei |
Skaidrus lapas
Šis kodas išvalys visą turinį, formatus ir visa kita:
1 | Lakštai („Sheet1“). Ląstelės. Išvalyti |
Išvalyti lapo turinį
Šis kodas išvalys visą lapo turinį. Jis paliks formatavimą, komentarus ir visa kita:
1 | Lakštai („Sheet1“). Cells.ClearContents |
Skaidrus lapas, naudojamas
Pirmiau pateikti pavyzdžiai išvalys VISAS darbalapio ląsteles. Dideliuose lapuose tai gali užtrukti daug laiko. Jei vietoj to naudosite „UsedRange“, VBA išvalys tik „panaudotas“ ląsteles, kuriose yra reikšmių, formatų ir kt.
1 | Skaičiuoklės („Sheet1“). „UsedRange.Clear“ |