Mõnikord peame lehte looma või lisama ja hiljem leidsime, et seda lehte ei kasutata, seega peame lehe töövihikust kiiresti kustutama. See artikkel keskendub aja kokkuhoiule ja annab koodi lehtede eemaldamiseks ilma viipakastita, kasutades vba makro / koodi. See võib olla üks leht või mitu. Ja Excel annab lehe kustutamise kinnitamiseks hüpikteate. Kui see on üks leht, on see hallatav. Aga kui peate mitu lehte kustutama, saate lehe kohta ühe hüpikakna.
VBA abil loote sageli mitu lehte. Kuid lõpuks pole neid tegelikult vaja. Pärast töö lõpetamist soovite need kustutada. See muudab teie faili kergemaks, kiiremaks ja mõistlikumaks.
Lehe kustutamiseks on VBA -kood lihtne
Arvutustabelid ("SheetName"). Kustuta
Oletame, et teil on see kood lehe lisamiseks ja seejärel töö lõpetamiseks kustutage.
Sub AddAndDeleteSheet () Sheets.Add 'Lisab aktiivsele töövihikule uue lehe' ---- '----' ---- 'mõned tööd ActiveSheetiga tehtud lehel. Kustuta' kustutab aktiivse aktiivlehe lõpu alam
Selle koodi käivitamisel töötab Sheets.Add ilma viipata, kuid kui kompilaator jõuab ActiveSheet. Kustuta see küsib sellist sõnumit.
Kuna kustutate lehti VBA abil, teate, mida teete. Sooviksite Excelil seda hoiatust mitte kuvada ja neetud leht kustutada.
Selleks lülitame Exceli rakenduse kuvamise hoiatusnupu välja.
Allolev kood möödub sellest hoiatusteatest ja leht kustutatakse ilma igasuguse hoiatuseta.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'hoiatusnupu Sheets väljalülitamine. Lisa' ---- '----' ---- 'mõned tööd lehel tehtud ActiveSheet.Delete Application.DisplayAlerts = True' sisselülitamine hoiatusnupp Lõpeta alam
Siin kustutame VBA abil Activesheet. VBA abil saate kustutada mis tahes lehe. Kirjutage lihtsalt Arvutustabelid ("Lehe nimi"). Kustutage. Edasi liikumine…
DisplayAlerts on VBA rakendusobjekti omadus. Siin lülitame selle välja meie koodi alguses ja lülitame selle sisse koodi lõpus. Ülaltoodud kood kinnitab kustutamise ilma igasuguse hoiatuseta.
Märge:Ülaltoodud kood ignoreerib kõiki Exceli hoiatusi. Kui soovite lubada ainult lehe kustutamise, kasutage seda rida.
Application.DisplayAlerts = False 'hoiatusnupu ActiveSheet väljalülitamine.Delete Application.DisplayAlerts = True' hoiatusnupu sisselülitamine
See ignoreerib ainult lehtede kustutamise hoiatust.
Pro Tip: Need koodiread muudavad teie VBA -koodi tõhusamaks.Kasutage neid alati oma makro alguses ja lülitage need uuesti sisse kõikjal, kus teie kood eeldatavasti rutiinist väljub.Hoiatus: Kui seda pole sisse lülitatud enne alamprogrammist väljumist, ei pruugi te üldse hoiatust näha. Isegi kui teie kood ei tööta. See võib põhjustada palju probleeme.
Kui teil on kustutamiseks mitu lehte ja kasutate tsüklit, proovige seda koodi -
Valik Selgesõnaline alammakro2 () Dim i As Long Application.DisplayAlerts = Vale I = 1 töölehtedele. Loendage töölehed (i). Nimi nagu "Test*" Seejärel töölehed (i). Kustuta järgmine i Application.DisplayAlerts = Tõeline lõpp Sub
See on kõik. See on tehtud. See on lihtne nagu ventilaatori sisse- ja väljalülitamine. Kas pole?
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile aadressil e -posti saitLaadige fail alla
Kustutage lehed ilma kinnitusviipadeta, kasutades Microsoft Excelis VBA -d
Jagage Exceli leht mitmeks failiks, kasutades veergu, kasutades VBA -d
Vaikeprinteri muutmine Microsoft Excel 2016 VBA abil
Hoiatusteadete väljalülitamine Microsoft Excel 2016 VBA abil
Kuva teade Exceli VBA olekuribal
Sisestage pildid Microsoft Excel 2016 VBA abil
Kuidas Excelis lehti kasutada VBA abil
Populaarsed artiklid:
50 Exceli otseteed tootlikkuse suurendamiseks
Funktsiooni VLOOKUP kasutamine Excelis
Funktsiooni COUNTIF kasutamine Excelis
Funktsiooni SUMIF kasutamine Excelis