On aikoja, jolloin meidän on luotava tai lisättävä taulukko, ja myöhemmin huomasimme, ettei kyseiselle taulukolle ole käyttöä, joten meidän on poistettava taulukko nopeasti työkirjasta. Tämä artikkeli keskittyy ajan säästämiseen ja antaa koodin arkkien poistamiseen ilman kehotettua viestilaatikkoa käyttämällä vba -makroa / -koodia. Se voi olla yksi arkki tai useita. Ja Excel antaa ponnahdusilmoituksen, joka vahvistaa taulukon poistamisen. Jos se on yksi arkki, se on hallittavissa. Mutta jos sinun on poistettava useita arkkeja, saat yhden ponnahdusikkunan arkkia kohden.
Luot usein useita arkkeja VBA: n avulla. Mutta loppujen lopuksi et todellakaan tarvitse niitä. Haluat poistaa ne työn jälkeen. Se pitää tiedostosi kevyempänä, nopeampana ja järkevämpänä.
VBA -koodi arkin poistamiseen on yksinkertainen
Sheets ("SheetName"). Poista
Oletetaan, että sinulla on tämä koodi lisätäksesi taulukon ja poista se sitten, kun työ on tehty.
Sub AddAndDeleteSheet () Sheets.Add 'Lisää uuden taulukon aktiiviseen työkirjaan' ---- '----' ---- 'jotkut työt taulukosta ActiveSheet.Delete' poistaa aktiivisen Activesheet End Sub
Kun suoritat tämän koodin, Sheets.Add toimii ilman kehotusta, mutta kun kääntäjä tulee ActiveSheet.Delete se kysyy tällaista viestiä.
Koska poistat arkkeja VBA: n avulla, tiedät mitä olet tekemässä. Haluat kertoa Excelille, ettei se näytä tätä varoitusta ja poista kirottu arkki.
Tätä varten sammutamme Excel -sovelluksen näytön hälytyspainikkeen.
Alla oleva koodi ohittaa tämän hälytysviestin ja taulukko poistetaan ilman ennakkoilmoitusta.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'hälytyspainikkeen poistaminen käytöstä Sheets.Add' ---- '----' ---- '' jotkut työt arkille tehty ActiveSheet.Delete Application.DisplayAlerts = True '' päälle hälytyspainike End Sub
Tässä poistamme aktiivisivun VBA: n avulla. Voit poistaa minkä tahansa taulukon VBA: n avulla. Kirjoita vain Sheets ("Sheetname"). Poista. Siirrytään eteenpäin…
DisplayAlerts on sovellusobjektin ominaisuus VBA: ssa. Täällä sammutamme sen koodin alussa ja kytkemme sen päälle koodin lopussa. Yllä oleva koodi vahvistaa poiston ilman ennakkoilmoitusta.
Huomautus:Yllä oleva koodi jättää huomiotta kaikki Excelin varoitukset. Jos haluat sallia vain arkin poistamisen, käytä tätä riviä.
Application.DisplayAlerts = False 'hälytyspainikkeen poistaminen käytöstä ActiveSheet.Delete Application.DisplayAlerts = True' hälytyspainikkeen kytkeminen päälle
Tämä ohittaa vain arkin poistamisvaroituksen.
Pro -vinkki: Nämä koodirivit tehostavat VBA -koodiasi.Käytä niitä aina makron alussa ja kytke ne takaisin päälle missä tahansa koodin odotetaan poistuvan rutiinista.Varoitus: Jos sitä ei ole kytketty päälle ennen aliohjelman poistumista, et ehkä näe mitään varoitusta. Vaikka koodisi ei olisi käynnissä. Tämä voi aiheuttaa monia ongelmia.
Jos haluat poistaa useita arkkeja ja käytät silmukkaa, kokeile tätä koodia -
Vaihtoehto Explicit Sub macro2 () Dim i Long Application.DisplayAlerts = False Jos i = 1 lasketaan laskentataulukoihin. Laske laskentataulukot (i). Nimi Kuten "Test*" Sitten laskentataulukot (i). Poista seuraava i Application.DisplayAlerts = True End Sub
Se siitä. Se on tehty. Se on helppoa kuin tuulettimen kytkeminen päälle ja pois. Eikö olekin?
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille osoitteeseen sähköpostisivustoLataa tiedosto
Poista taulukot ilman vahvistuskehotteita käyttämällä VBA: ta Microsoft Excelissä
Jaa Excel -taulukko useisiin tiedostoihin sarakkeen perusteella käyttämällä VBA: ta
Vaihda oletustulostin VBA: n avulla Microsoft Excel 2016: ssa
Poista varoitusviestit käytöstä VBA: n avulla Microsoft Excel 2016: ssa
Näytä viesti Excel VBA -tilapalkissa
Lisää kuvia VBA: n avulla Microsoft Excel 2016: ssa
Kuinka selata arkkeja Excelissä VBA: n avulla
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi
VLOOKUP -toiminnon käyttäminen Excelissä
COUNTIF -toiminnon käyttäminen Excelissä
SUMIF -toiminnon käyttäminen Excelissä