Există momente în care trebuie să creăm sau să adăugăm foaie și mai târziu am constatat că nu se folosește foaia respectivă, de aceea avem nevoie să ștergem foaia rapid din registrul de lucru. Acest articol se concentrează pe economisirea timpului și furnizarea de cod pentru îndepărtarea foilor fără nicio casetă de mesaj prompt cu ajutorul macro / cod vba. Ar putea fi o foaie sau mai multe. Și Excel oferă o alertă pop-up pentru a confirma ștergerea foii. Dacă este o singură foaie, este ușor de gestionat. Dar dacă trebuie să ștergeți mai multe foi, veți primi un pop-up pentru fiecare coală.
De multe ori creați mai multe foi folosind VBA. Dar până la urmă nu ai nevoie de ele. Ați dori să le ștergeți după ce ați terminat munca. Vă va păstra fișierul mai ușor, mai rapid și sensibil.
Codul VBA pentru a șterge o foaie este simplu
Foi de calcul („SheetName”). Ștergeți
Să presupunem că aveți acest cod pentru a adăuga o foaie și apoi ștergeți-l când lucrarea este terminată.
Sub AddAndDeleteSheet () Sheets.Add 'Adaugă o nouă foaie în registrul de lucru activ' ---- '----' ---- 'unele lucrări pe foaie făcute ActiveSheet. Șterge' șterge Active Actheet End Sub
Când executați acest cod, Sheets.Add va funcționa fără nicio solicitare, dar când va apărea compilatorul ActiveSheet.Elete va solicita un mesaj ca acesta.
Deoarece ștergeți foi folosind VBA, știți ce faceți. Ați dori să spuneți Excel să nu afișeze acest avertisment și să șteargă afurisita de foaie.
Pentru a face acest lucru, vom opri butonul de alertă de afișare al aplicației Excel.
Codul de mai jos va ocoli acest mesaj de alertă, iar foaia va fi ștearsă fără nicio indicație.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'dezactivarea butonului de alertă Sheets.Add' ---- '----' ---- 's-a lucrat pe foaie ActiveSheet.Delete Application.DisplayAlerts = True' pornire butonul de alertă End Sub
Aici ștergem foaia activă folosind VBA. Puteți șterge orice foaie folosind VBA. Doar scrieți Foi de calcul („Nume de foaie”). Ștergeți. Trecând peste…
DisplayAlerts este o proprietate a obiectului Application în VBA. Aici îl oprim la începutul codului nostru și îl pornim la sfârșitul codului. Codul de mai sus va confirma ștergerea fără nicio indicație.
Notă:Codul de mai sus va ignora toate avertismentele lansate de excel. Dacă doriți să permiteți ștergerea numai a foilor, folosiți această linie.
Application.DisplayAlerts = Fals 'dezactivarea butonului de alertă ActiveSheet.Delete Application.DisplayAlerts = Adevărat' comutarea butonului de alertă
Aceasta va ignora numai avertismentul de ștergere a foilor.
Sfat Pro: Aceste linii de cod vă fac codul VBA mai eficient.Folosiți-le întotdeauna la începutul macro-ului și activați-le din nou oriunde se așteaptă ca codul dvs. să iasă din rutină.Avertizare: Dacă nu este activat înainte de a ieși din subrutină, este posibil să nu vedeți deloc avertisment. Chiar dacă codul dvs. nu rulează. Acest lucru poate cauza multe probleme.
Dacă aveți mai multe foi de șters și utilizați o buclă, încercați acest cod -
Opțiune Explicit Sub macro2 () Dim i As Long Application.DisplayAlerts = False Pentru i = 1 până la foi de lucru. Numărați dacă foi de lucru (i). Numele ca „Test *” Apoi foi de lucru (i). Ștergeți următoarea aplicație i.DisplayAlerts = True End Sub
Asta e. Este gata. Este ușor ca pornirea și oprirea ventilatorului. Nu-i așa?
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrie-ne la site de e-mailDescărcare fișier
Ștergeți foile fără solicitări de confirmare folosind VBA în Microsoft Excel
Împărțiți foaia Excel în mai multe fișiere pe baza coloanei folosind VBA
Schimbați imprimanta implicită utilizând VBA în Microsoft Excel 2016
Dezactivați mesajele de avertizare folosind VBA în Microsoft Excel 2016
Afișați un mesaj pe bara de stare Excel VBA
Introduceți imagini utilizând VBA în Microsoft Excel 2016
Cum să buclați prin foi în Excel folosind VBA
Articole populare:
50 de comenzi rapide Excel pentru a vă crește productivitatea
Cum se utilizează funcția VLOOKUP în Excel
Cum se utilizează funcția COUNTIF în Excel
Cum se utilizează funcția SUMIF în Excel