„Excel VBA“ aiškus turinys
Išvalyti turinį yra VBA metodas, naudojamas ištrinti ar pašalinti reikšmes, kurios yra saugomos jai pateiktose ląstelėse. Šis metodas daro langelių diapazoną tuščią ir naudojamas kartu su ypatybe diapazonas norint pasiekti nurodytą langelių diapazoną. naudoti šį metodą yra toks diapazonas („A1: B2“). „ClearContents“ metodas išvalys langelių turinį nuo A1 iki B2.
Programoje „Excel“ duomenų pridėjimas ir ištrynimas yra įprasta įprasta užduotis. Kartais mes ištriname vienos langelio vertę, kartais daugelio langelių reikšmes, o kartais gali tekti ištrinti ir visą darbalapio turinį. Šiame straipsnyje mes parodysime, kaip naudoti „Išvalyti turinį“ „Excel VBA“ metodą. VBA turime daug būdų tai padaryti, pvz., „Išvalyti“, „Ištrinti“ ir „Išvalyti turinį“.
Kas yra aiškus „Excel VBA“ turinys?
Prieš pasakodamas apie VBA turinio išvalymą, leiskite man parodyti, kaip galime ištrinti arba išvalyti duomenis iš konkretaus diapazono.
Pavyzdžiui, pažiūrėkite į toliau pateiktus duomenis.
Dabar, jei noriu išvalyti nuo langelio A1 iki C3, pirmiausia turime paminėti langelių diapazoną, naudojant objektą VBA RANGE.
Kodas:
Diapazonas („A1: C3“)
Paminėję langelių diapazoną naudodami objektą RANGE, turime pasirinkti metodą „Išvalyti“, kad išvalytumėte langelių verčių paminėjimą.
Kodas:
Diapazonas („A1: C3“). Aišku
Tai išvalys minėtas langelių reikšmes.
Kodas:
Sub Clear_Pavyzdys () diapazonas ("A1: C3"). Išvalyti pabaigos sub
Be aiškaus metodo, mes taip pat galime naudoti „DELETE“ metodą.
Kodas:
Diapazonas („A1: C3“). Ištrinti
Tai ištrins minėtas langelių reikšmes, kaip tai padarė mūsų aiškus metodas.
Jei norite ištrinti visus langelio duomenis, galite naudoti ypatybę VBA CELLS su darbalapio pavadinimu.
Darbalapiai („Sheet1“). Ląstelės. Ištrinti
Darbalapiai („Sheet1“). Ląstelės. Išvalyti
Abiem aukščiau nurodytais kodais bus ištrinti visi darbalapio „Sheet1“ duomenys. Jis ištrins langelių reikšmes nuo pirmojo langelio iki paskutinio darbalapio langelio.
Jei norite ištrinti esamas lapo ląsteles, galite naudoti objektą „Aktyvus lapas“.
„ActiveSheet.Cells.Delete“ arba „ActiveSheet.Cells.Clear“
Skirtumas tarp „Clear & Delete“ metodų
Žinau, kad šis klausimas jau turėjo suvaidinti jūsų mintyse.
Taip, tarp šių dviejų metodų yra skirtumas.
Kai naudosite metodą „Ištrinti“, langelis bus ištrintas, o žemiau esantis langelis perims ištrintos ląstelės poziciją.
Pavyzdžiui, pažiūrėkite į žemiau esantį vaizdą.
Dabar naudosiu ištrinimo metodą, norėdamas ištrinti langelį A1.
Kodas:
Sub Clear_Pavyzdys () diapazonas ("A1"). Ištrinkite pabaigos antrinę dalį
Aš paleisiu šį kodą ir pamatysiu, kas atsitiks.
Pažiūrėk, kas čia nutiko; kaip sakiau ištrynęs langelį A1, jis ištrinamas, bet langelis A2 perkelia vieną langelį aukštyn ir užima ištrintą langelį. Tai sukels duomenų neatitikimą. Taigi būkite atsargūs naudodami „Delete“ metodą.
Dabar apie tuos pačius duomenis išvalysiu metodą.
Kodas:
Sub Clear_Pavyzdys () diapazonas ("A1"). Išvalyti pabaigos antrinį
Dabar pažiūrėkite, kas atsitiks, kai paleidžiu šį kodą.
Šis kodas ką tik atlaisvino langelį A1 nepakeisdamas kitų langelių. Tai atrodo tinkamas būdas ištrinti tik viso duomenų diapazono langelių dalį.
Norėdami išsaugoti langelių formatavimą, naudokite VBA išvalyti turinio metodą
Jei pastebėjote ankstesnius du metodus, šie du metodai ne tik pašalino arba išvalė pateiktas langelius. Taip pat ištrintas mūsų pateiktų langelių formatavimas.
Kad išlaikytume langelių formatą, nereikia naudoti nei „Ištrinti“, nei „Išvalyti“, bet turime naudoti VBA „Išvalyti turinį“ metodą.
Kai įvesite langelių diapazoną naudodami objektą RANGE, jis parodys visas su juo susijusias savybes ir metodus.
We can access “Delete,” we can access “Clear,” and we can also “ClearContents” methods.
Select this method.
Code:
Sub Clear_Example() Range("A1:C3").ClearContents End Sub
Now, this will clear content from A1 to C3 cell, but we will have all the existing formatting as it is.
As you can see in the above picture, we have cell color in VBA, borders, and every formatting associated with those mentioned cells.
Similarly, we can clear the contents of other sheets as well.
Worksheets(“Sheet1”).Range(“A1:D10”).ClearContents
This will clear the contents from the cells A1 to D10 in the sheet “Sheet1”.
Similarly, we can delete the other open workbook cells as well.
Workbooks(“Book1.xlsx”).Worksheets(“Sheet1”).Range(“A1:D10”).ClearContents
Loop Through all the Worksheets and Clear Contents of Specific Range
Tarkime, kad jūsų darbaknygėje yra daug lapų ir norite ištrinti langelių diapazoną nuo A1 iki C15 visuose lapuose, kuriuos tam turime naudoti „VBA“ kiekvienai kilpai.
Žemiau pateiktas kodas atliks darbą.
Kodas:
Sub Clear_All () „Dim Ws“ kaip kiekvieno „ActiveWorkbook“ darbo lapo darbalapis. Darbo lapai „Ws.Range“ („A1: C15“). ClearContents Kitas Ws Pabaiga Sub
Tik tuo atveju, jei norite išvalyti visus darbalapio duomenis, turite naudoti žemiau pateiktą kodą.
Kodas:
Sub Clear_All () „Dim Ws“ kaip kiekvieno „ActiveWorkbook“ darbo lapas. Darbo lapai Ws.Cells.ClearContents Kitas Ws Pabaiga Sub
Šį „VBA Clear Contents Excel“ šabloną galite atsisiųsti čia - VBA Clear Contents Template.
