Arvutustabelite kustutamine Excelis (otseteed + VBA)

Exceliga töötades veedate suurema osa ajast töölehel (see on piirkond, kus on kõik lahtrid ja kõik, mis seal toimub).

Exceliga tõhusalt töötamine tähendab ka seda, et peate sama töövihiku raames töötama mitme töölehega.

Excel võimaldab teil töövihikusse hõlpsalt lisada mitu töölehte, samal ajal saate neid töölehti ka hõlpsalt kustutada.

Selles Exceli õpetuses näitan teile, kuidas kiiresti Exceli töölehtede kustutamine. Ma kataksin mitmeid meetodeid, näiteks kiirklahvide, lindi valikute ja VBA -de kasutamine Exceli lehtede kustutamiseks.

Märkus. Selles õpetuses kasutan sõnu „leht” ja „tööleht” vaheldumisi. Kuid erinevusest rääkides sisaldaksid arvutustabelid nii töölehti kui ka diagrammilehti, kuid kuna diagrammilehti ei kasutata nii sageli, siis pidage seda töölehena alati, kui kasutan sõna Leht.

Lehtede kustutamine paremklõpsamisvalikute abil

Lihtsaim viis Exceli töölehe kustutamiseks on see lihtne kahe klõpsuga hiire tehnika.

Oletame, et teil on tööleht, millel on kolm lehte, nagu allpool näidatud, ja soovite lehe 1 kustutada.

Allpool on toodud sammud selle tegemiseks.

1. Paremklõpsake lehte, mille soovite kustutada
2. Klõpsake kustutamisvalikul
3. Ilmuvas viipas klõpsake nuppu Kustuta

Ülaltoodud tehnikat saate kasutada ka lehtedel, mis pole isegi aktiivne leht. Näiteks kui ma olen praegu lehel 1 ja soovin Shee3 kustutada, siis võin lihtsalt paremklõpsata lehel 3 ja selle kustutada.

Sama tehnikat saate kasutada ka kustutage mitu lehte korraga.

Näiteks kui ma soovin kustutada lehed 2 ja leht 3 korraga, võin juhtklahvi all hoida ja ükshaaval klõpsata lehtedel 2 ja 3 (hoides samal ajal juhtklahvi all).

Juhtklahvi all hoides lubab Excel mul korraga valida mitu lehte. Kui olen soovitud lehed valinud, võin juhtklahvi jätta. nüüd saan paremklõpsata mis tahes valitud lehtede vahekaardil ja klõpsata kustutamisel.

Pidage meeles, et te ei saa Exceli töövihiku kõiki töölehti kustutada. töövihikus peab alati olema vähemalt üks leht. kui proovite kustutada kõik töölehed (või ainsa aktiivse lehe), näete viipa, mis ütleb teile, et teil pole seda lubatud

Klaviatuuri otseteed töölehtede kustutamiseks

Töölehtede kustutamiseks Excelis pole ainult üks, vaid kaks ja pool kiirklahvi.

Ma ütlen kaks ja pool, sest üks otseteedest kasutab ta nii hiirt kui ka klaviatuuri (ja on ikkagi kiirem viis seda teha)

Hübriid -klaviatuuri otsetee lehe kustutamiseks

Paremklõpsake + D

Valitud töölehe või töölehtede kustutamiseks paremklõpsake ja seejärel vajutage klaviatuuri nuppu D.

Isiklikult leian, et see on palju kiirem kui lihtsalt hiire kasutamine töölehe kustutamiseks (nagu ma ülalpool käsitlesin)

Tavaline klaviatuuri otsetee lehe kustutamiseks

ALT + H + D + S

Kui eelistate hiirest loobuda ja kasutada ainult klaviatuuri, kustutab ülaltoodud kiirklahv aktiivse lehe või valitud lehed.

Peate neid klahve järjest vajutama (st üksteise järel)

Kuigi see võib tunduda veidi pikem kiirklahv, on see sellega harjumisel sama kiire kui mis tahes muu selles õpetuses käsitletud tehnika

Töölehtede kustutamise pärandmenüü

Nagu kõigil teistel, on ka Excelil minevik ja see pole nii ilus. Ma räägin lindile eelneva stiili ajastust.

Ühilduvuse kaalutlustel lubab Excel siiski mõnel neist vanadest kiirklahvidest töötada uuemates versioonides. ja paljudel juhtudel on need varasemad otseteed lühemad ja paremad.

Õnneks on pärandklaviatuuri otsetee, mis töötab Exceli töölehtede kustutamiseks

ALT + E + L

ActiveSheet kustutamine VBA abil

Ühe lehe või paari töölehe kustutamisel on parem kasutada ülaltoodud meetodeid.

Kuigi VBA saab protsessi automatiseerida, on see kasulik, kui peate ülesannet mitu korda kordama.

Nagu näete, saate VBA abil Excelis töölehtede kustutamisel palju rohkem ära teha.

Nii et ma viin teid edasi arenenumate kasutusjuhtumite juurde, kuid enne seda vaatame, kuidas VBA abil aktiivne tööleht lihtsalt kustutada.

Allpool on VBA -kood, mis kustutab aktiivse lehe:

Alam DeleteSheet () ActiveSheet. Kustuta End Sub

Kui kasutate seda vahetu aknas, saate lihtsalt kasutada allolevat rida:

ActiveSheet. Kustuta

Kui kasutate ülaltoodud koodi aktiivse lehe kustutamiseks, kuvab Excel teile viiba, kus peate toimingu kinnitamiseks klõpsama kustutamisnupul.

Lehe kustutamine ilma kinnitusteadet näitamata

Kinnitusviiba sõnumikast on kasulik funktsioon, mis tagab, et teil on võimalus lehe kustutamine tühistada juhuks, kui olete koodi kogemata/ekslikult käivitanud

Kuid kui teate juba, mida teete, võib selle viiba saamine olla üsna ärritav.

nii et siin on VBA -kood, mis tagaks, et lehed on kustutatud, kuid te ei näe kinnitusviiba sõnumikast.

Alam DeleteSheet () Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = Tõeline lõpp

Ülaltoodud koodis olen määranud atribuudi Application.DisplayAlerts väärtuseks vale, mis tähendab, et Excel ei näita teile koodi töötamise ajal kuvariteateid.

Funktsionaalsuse taastamiseks on tõesti oluline veenduda, et muudate selle koodi lõpus tõeks (nagu näete, olen seda teinud ülaltoodud koodis).

Ettevaatust: kui määrate atribuudi Application.DisplayAlerts väärtuseks Väär, kustutab Excel lihtsalt töölehe ja seda pole võimalik taastada. nii et soovitan teil enne seda tüüpi koodi kasutamist varukoopia teha.

Lehe kustutamine nime järgi (kui see on olemas) VBA abil

VBA võimaldab teil lehe nime järgi automatiseerida konkreetse töölehe kustutamise (mitmel töölehel).

Näiteks kui teil on tööleht nimega „Müük”, saate selle kustutamiseks kasutada järgmist koodi:

Alam DeleteSheetByName () Sheets ("Müük"). Kustuta End Sub

See kood kustutaks ainult lehe, mille nimi on Müük.

See on kasulik, kui teil on palju lehti sisaldav töövihik ja te ei soovi kõiki töölehti läbi sõeluda, leidke müüginimega leht ja kustutage see käsitsi.

Ülaltoodud koodiga ei ole oluline, kui palju töölehti on töövihikus, see lihtsalt kustutaks müügi töölehe.

Ja kuna ma pole atribuuti Application.DisplayAlert muutnud, näete viipa, kus peate müügilehe kestuse kinnitamiseks klõpsama kustutamisnupul.

Kui soovite kustutada mitu lehte nende nime põhjal, saate seda ka teha.

Näiteks kustutaks allolev kood lehed nimega Müük, Turundus, Rahandus:

Alam DeleteSheetsByName () Sheets ("Müük"). Kustuta Sheets ("Marketing"). Kustuta Sheets ("Finance"). Kustuta End Sub

Kõigi lehtede, välja arvatud aktiivse lehe, kustutamine VBA abil

Kui teil on töövihik, milles on mitu töölehte, ja soovite kustutada kõik töölehed, välja arvatud aktiivne leht, on VBA tõenäoliselt üks paremaid meetodeid.

Allpool on VBA -kood, mis kustutaks kõik lehed, välja arvatud töövihiku aktiivne leht.

Alam DeleteSheetByName () Dim ws tööleherakendusena. DispleAlerts = vale iga arvutustabelites oleva ws -i puhul, kui ws.Name ActiveSheet.Name Siis ws.Delete End if Next ws Application.DisplayAlerts = True End Sub

Pange tähele, et olen öelnud, et atribuut Application.DisplayAlerts langeb koodi algusesse, kuna ma ei taha näha iga kustutatud lehe kohta viipasid.

Kustutage kõik lehed, mille nimes on konkreetne tekstistring

See on pisut arenenum kasutusviis, kui VBA -d kasutatakse tõhusalt töölehtede kustutamisel.

Oletame, et teil on palju erinevaid töölehti sisaldav töövihik ja soovite kustutada kõik töölehed, millel on konkreetne tekstistring, siis saate seda hõlpsalt teha VBA abil.

Näiteks allpool on mul töövihik, kust tahan kustutada kõik töölehed, millel on tekstistring “Müük”.

Allpool on VBA kood, mis seda teeks:

Alam DeleteSheetByName () Dim ws kui tööleherakendus.DisplayAlerts = Vale iga arvutustabelites oleva ws kohta Kui ws.Name Nagu "*" & "Müük" & "*" Siis MsgBox ws.Name ws.Delete End if Next ws Application.DisplayAlerts = True End Sub

Ülaltoodud kood kasutab lauset if-then kõigi töövihiku töölehtede läbimiseks. See kontrollib kõigi nende töölehtede nime ja kui nimi sisaldab sõna „Müük”, kustutatakse see tööleht.

Kui soovite koodi muuta ja otsida mõnda muud tekstistringi, saate seda muuta ülaltoodud koodi viiendal real.

Pange tähele ka seda, et olen töölehe nimest otsitava tekstistringi mõlemal küljel kasutanud tärni (*), mis on metamärk. See tagab, et olenemata sellest, kus string töölehe nimes kuvatakse, kustutatakse see ikkagi.

Samuti saate koodi muuta, veendumaks, et kustutatakse ainult need töölehed, kus tekstitring kuvatakse töölehe nime alguses.

Näiteks kui soovite kustutada need lehed, mille alguses ilmub mõiste müük, kasutage viiendal real järgmist koodi.

Kui ws.Nimi Nagu "*" & "Müük" & "*" Siis

Siin olen metamärgi märki kasutanud alles pärast tekstijooki ja mitte enne seda. See tagab, et töölehe nimede kontrollimisel vastavad kriteeriumidele ainult need, kus nime alguses on mõiste „Müük”.

Nii et need on mõned meetodid, mida saate kasutada Exceli lehtede kustutamiseks. Enamikul juhtudel saate seda hõlpsalt töölehel otse teha, kasutades hiirt või kiirklahvi.

Kuid kui teil on raske töövihik, kus on palju töölehti, ja soovite teatud tüüpi lehti kiiresti kustutada, saate kasutada ka VBA -d.

Loodan, et leidsite selle õpetuse kasulikuks.