VBA Ištrinti arba išvalyti darbalapį

Š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“
wave wave wave wave wave