Kartais turime sukurti ar pridėti lapą, o vėliau pastebėjome, kad tas lapas nenaudojamas, todėl turime greitai ištrinti lapą iš darbaknygės. Šiame straipsnyje daugiausia dėmesio skiriama laiko taupymui ir pateikiamas kodas lapams pašalinti be jokio raginimo pranešimų laukelio naudojant „vba“ makrokomandą / kodą. Tai gali būti vienas lapas arba keli. „Excel“ pateikia iššokantįjį įspėjimą, kad patvirtintų lapo ištrynimą. Jei jis yra vienas lapas, jį galima valdyti. Bet jei turite ištrinti kelis lapus, gausite vieną iššokantį langą.
Dažnai kuriate kelis lapus naudodami VBA. Bet galų gale jums jų iš tikrųjų nereikia. Baigę darbą, norite juos ištrinti. Jūsų failas bus lengvesnis, greitesnis ir protingesnis.
VBA kodas ištrinti lapą yra paprastas
Skaičiuoklės („SheetName“). Ištrinti
Tarkime, kad turite šį kodą, kad pridėtumėte lapą ir ištrintumėte, kai darbas bus baigtas.
Sub AddAndDeleteSheet () Sheets.Add 'Prideda naują lapą prie aktyvios darbaknygės' ---- '----' ---- 'kai kurie su ActiveSheet atliktais darbais susiję darbai. Ištrinti' ištrina aktyvų Activesheet End Sub
Kai vykdote šį kodą, „Sheets.Add“ veiks be jokio raginimo, bet kai kompiliatorius atvyks ActiveSheet.Delete jis paragins tokį pranešimą.
Kadangi trinate lapus naudodami VBA, žinote, ką darote. Norite pasakyti „Excel“ nerodyti šio įspėjimo ir ištrinti prakeiktą lapą.
Norėdami tai padaryti, išjungsime „Excel“ programos įspėjimo mygtuką.
Toliau pateiktas kodas apeis šį įspėjimo pranešimą ir lapas bus ištrintas be jokio intymumo.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'išjungimas įspėjimo mygtukas Sheets.Add' ---- '----' ---- 'kai kurie darbai, atlikti su ActiveSheet.Delete Application.DisplayAlerts = True' įjungimas įspėjimo mygtuką Baigti sub
Čia mes ištriname „Activesheet“ naudodami VBA. Naudodami VBA galite ištrinti bet kurį lapą. Tiesiog parašykite Skaičiuoklės („Lapo pavadinimas“). Ištrinkite. Judama toliau…
„DisplayAlerts“ yra „Application“ objekto ypatybė VBA. Čia mes jį išjungiame savo kodo pradžioje ir įjungiame kodo pabaigoje. Aukščiau pateiktas kodas patvirtins ištrynimą be jokio intymumo.
Pastaba:Aukščiau pateiktas kodas ignoruos visus „Excel“ įspėjimus. Jei norite leisti ištrinti tik lapą, naudokite šią eilutę.
Application.DisplayAlerts = False 'išjungus įspėjimo mygtuką ActiveSheet.Delete Application.DisplayAlerts = True' įjungus įspėjimo mygtuką
Taip bus ignoruojamas tik lapo ištrynimo įspėjimas.
Profesionalus patarimas: Šios kodo eilutės daro jūsų VBA kodą efektyvesnį.Visada naudokite juos savo makrokomandos pradžioje ir vėl įjunkite, kur tikimasi, kad kodas išeis iš įprastos veiklos.Įspėjimas: Jei jis neįjungtas prieš išeinant iš paprogramės, galite išvis nematyti jokio įspėjimo. Net jei jūsų kodas neveikia. Tai gali sukelti daug problemų.
Jei norite ištrinti kelis lapus ir naudojate ciklą, išbandykite šį kodą -
Parinktis „Explicit Sub macro2“ () „Dim i As Long Application.DisplayAlerts = False“. Sub
Viskas. Padaryta. Tai paprasta, kaip įjungti ir išjungti ventiliatorių. Ar ne?
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Rašykite mums adresu pašto svetainęAtsisiųsti failą
Ištrinkite lapus be patvirtinimo raginimų naudodami „Microsoft Excel“ VBA
Padalinkite „Excel“ lapą į kelis failus pagal stulpelį naudodami VBA
Pakeiskite numatytąjį spausdintuvą naudodami „Microsoft Excel 2016“ VBA
Išjunkite įspėjamuosius pranešimus naudodami VBA programoje „Microsoft Excel 2016“
Rodyti pranešimą „Excel“ VBA būsenos juostoje
Įterpkite paveikslėlius naudodami VBA „Microsoft Excel 2016“
Kaip peržiūrėti „Excel“ lapus naudojant VBA
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti
Kaip naudotis „VLOOKUP“ funkcija „Excel“
Kaip naudoti funkciją „COUNTIF“ programoje „Excel“
Kaip naudotis „SUMIF“ funkcija „Excel“