Ir reizes, kad mums ir jāizveido vai jāpievieno lapa, un vēlāk mēs atklājām, ka šī lapa netiek izmantota, tāpēc mums ir ātri jāizdzēš lapa no darbgrāmatas. Šis raksts koncentrējas uz laika ietaupīšanu un nodrošina kodu lapu noņemšanai bez uzvednes ziņojumu lodziņa, izmantojot vba makro / kodu. Tā var būt viena lapa vai vairākas. Un Excel dod uznirstošo brīdinājumu, lai apstiprinātu lapas dzēšanu. Ja tā ir viena lapa, to var pārvaldīt. Bet, ja jums ir jāizdzēš vairākas lapas, jūs saņemsiet vienu uznirstošo logu uz lapas.
Jūs bieži izveidojat vairākas lapas, izmantojot VBA. Bet galu galā jums tie nav vajadzīgi. Jūs vēlaties tos izdzēst pēc darba pabeigšanas. Tas padarīs jūsu failu vieglāku, ātrāku un saprātīgāku.
VBA kods lapas dzēšanai ir vienkāršs
Izklājlapas ("SheetName"). Dzēst
Pieņemsim, ka jums ir šis kods, lai pievienotu lapu un pēc tam to izdzēstu, kad darbs ir pabeigts.
Sub AddAndDeleteSheet () Sheets.Add 'Pievieno jaunu lapu aktīvajai darbgrāmatai' ---- '----' ---- 'daži darbi ar ActiveSheet paveikto lapu. Dzēst' dzēš aktīvo Activesheet End Sub
Izpildot šo kodu, Sheets.Add darbosies bez jebkādas uzvednes, bet tad, kad tiks atvērts kompilators ActiveSheet. Dzēst tas parādīs šādu ziņojumu.
Tā kā jūs dzēšat lapas, izmantojot VBA, jūs zināt, ko darāt. Jūs vēlaties pateikt programmai Excel nerādīt šo brīdinājumu un izdzēst sasodīto lapu.
Lai to izdarītu, mēs izslēgsim Excel lietojumprogrammas displeja brīdinājuma pogu.
Tālāk norādītais kods apiet šo brīdinājuma ziņojumu, un lapa tiks dzēsta bez jebkādiem iebildumiem.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'izslēdzot brīdinājuma pogu Sheets.Add' ---- '----' ---- 'daži darbi uz lapas, kas veikta ActiveSheet.Delete Application.DisplayAlerts = True' ieslēgšana brīdinājuma poga Beigt apakš
Šeit mēs dzēšam aktīvo lapu, izmantojot VBA. Izmantojot VBA, varat izdzēst jebkuru lapu. Vienkārši uzrakstiet Izklājlapas ("Lapas nosaukums"). Dzēst. Notiek pārvietošanās…
DisplayAlerts ir lietojumprogrammas objekta īpašums VBA. Šeit mēs to izslēdzam koda sākumā un ieslēdzam koda beigās. Iepriekš minētais kods apstiprinās dzēšanu bez ierunām.
Piezīme:Iepriekš minētais kods ignorēs visus Excel brīdinājumus. Ja vēlaties atļaut tikai lapas dzēšanu, izmantojiet šo rindu.
Application.DisplayAlerts = False 'izslēdzot brīdinājuma pogu ActiveSheet.Delete Application.DisplayAlerts = True' ieslēdzot brīdinājuma pogu
Tādējādi tiks ignorēts tikai lapu dzēšanas brīdinājums.
Pro padoms: Šīs koda rindas padara jūsu VBA kodu efektīvāku.Vienmēr izmantojiet tos sava makro sākumā un atkal ieslēdziet tos, kur tiek gaidīts, ka kods iziet no rutīnas.Brīdinājums: Ja tas nav ieslēgts pirms iziešanas no apakšprogrammas, jūs, iespējams, neredzēsit nekādu brīdinājumu. Pat ja jūsu kods nedarbojas. Tas var radīt daudzas problēmas.
Ja jums ir jāizdzēš vairākas lapas un izmantojat cilpu, izmēģiniet šo kodu -
Opcija Explicit Sub macro2 () Dim i As Long Application.DisplayAlerts = False Par i = 1 to Worksheets.Count If Worksheets (i) .Name Like "Test*", tad darblapas (i) .Deleplay Next i Application.DisplayAlerts = True End Sub
Tieši tā. Tas ir pabeigts. Tas ir vienkārši, piemēram, ventilatora ieslēgšana un izslēgšana. Vai ne?
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums uz e -pasta vietneLejupielādēt failu
Izdzēsiet lapas bez apstiprinājuma uzvednēm, izmantojot Microsoft Excel VBA
Sadaliet Excel lapu vairākos failos, pamatojoties uz kolonnu, izmantojot VBA
Mainiet noklusējuma printeri, izmantojot Microsoft Excel 2016 VBA
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016
Parādiet ziņojumu Excel VBA statusa joslā
Ievietojiet attēlus, izmantojot VBA programmā Microsoft Excel 2016
Kā pārlūkot Excel lapas, izmantojot VBA
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti
Kā lietot funkciju VLOOKUP programmā Excel
Kā programmā Excel izmantot funkciju COUNTIF
Kā lietot funkciju SUMIF programmā Excel