Kā izdzēst lapas programmā Excel (saīsnes + VBA)

Strādājot ar Excel, lielāko daļu laika pavadāt darblapā (šajā apgabalā ir visas šūnas un viss, kas tur notiek).

Efektīva darbība ar Excel nozīmē arī to, ka vienā darbgrāmatā ir jāstrādā ar vairākām darblapām.

Programma Excel ļauj ērti pievienot vairākas darblapas darbgrāmatā, vienlaikus varat arī viegli izdzēst šīs darblapas.

Šajā Excel apmācībā es jums parādīšu, kā ātri izdzēsiet darblapas programmā Excel. Es aptvertu vairākas metodes, piemēram, īsinājumtaustiņu izmantošanu, lentes opcijas un VBA, lai izdzēstu lapas programmā Excel.

Piezīme: Šajā apmācībā es izmantošu vārdus “lapa” un “darblapa” savstarpēji aizstājami. Bet, lai pastāstītu jums par atšķirību, Izklājlapās būtu iekļautas darblapas, kā arī diagrammu lapas, taču, tā kā diagrammu lapas nav tik bieži lietotas, ikreiz, kad es lietoju vārdu Izklājlapa, to uzskata par darblapu.

Izdzēsiet lapas, izmantojot peles labās pogas opcijas

Vienkāršākais veids, kā izdzēst darblapu programmā Excel, ir izmantot šo vienkāršo divu klikšķu peles paņēmienu.

Pieņemsim, ka jums ir darblapa, kurā ir trīs lapas, kā parādīts zemāk, un vēlaties dzēst lapu 1.

Tālāk ir norādītas darbības, kā to izdarīt:

1. Ar peles labo pogu noklikšķiniet uz lapas, kuru vēlaties dzēst
2. Noklikšķiniet uz dzēšanas opcijas
3. Parādītajā uzvednē noklikšķiniet uz pogas Dzēst

Iepriekš minēto tehniku ​​varat izmantot arī lapām, kas nav pat aktīvā lapa. Piemēram, ja es pašlaik izmantoju lapu Sheet1 un vēlos izdzēst Shee3, tad varu vienkārši ar peles labo pogu noklikšķināt uz Sheet3 un to izdzēst.

Jūs varat arī izmantot to pašu tehniku izdzēsiet vairākas lapas vienlaikus.

Piemēram, ja es vēlos izdzēst lapas 2 un lapu 3 vienā piegājienā, es varu turēt nospiestu vadības taustiņu un pa vienam noklikšķināt uz lapas 2 un lapas (vienlaikus turot nospiestu vadības taustiņu).

Turot nospiestu vadības taustiņu, programma Excel ļautu man atlasīt vairākas lapas vienā piegājienā. Kad esmu pabeidzis vēlamo lapu izvēli, varu atstāt vadības taustiņu. tagad es varu ar peles labo pogu noklikšķināt uz jebkuras atlasītās lapas cilnes un noklikšķināt uz dzēst.

Atcerieties, ka programmā Excel nevar izdzēst visas darblapas. darbgrāmatā vienmēr jābūt vismaz vienai lapai. ja mēģināsit izdzēst visas darblapas (vai vienīgo aktīvo lapu), tiks parādīta uzvedne ar paziņojumu, ka jums nav atļauts to darīt

Īsinājumtaustiņi darblapu dzēšanai

Ir nevis viens, bet divarpus īsinājumtaustiņi, kurus varat izmantot, lai izdzēstu darblapas programmā Excel.

Es saku divarpus, jo vienā no īsinājumtaustiņiem viņš izmanto peli un tastatūru (un joprojām ir ātrāks veids, kā to izdarīt)

Hibrīda īsinājumtaustiņš lapas dzēšanai

Ar peles labo pogu noklikšķiniet uz + D

Lai izdzēstu atlasīto darblapu vai darblapas, ar peles labo pogu noklikšķiniet un pēc tam nospiediet tastatūras taustiņu D.

Personīgi es uzskatu, ka tas ir daudz ātrāk nekā tikai, izmantojot peli, lai izdzēstu darblapu (kā es aprakstīju iepriekšējā sadaļā)

Parasts īsinājumtaustiņš lapas dzēšanai

ALT + H + D + S

Ja vēlaties atmest peli un izmantot tikai tastatūru, iepriekš minētais īsinājumtaustiņš izdzēsīs aktīvo lapu vai atlasītās lapas.

Jums ir jānospiež šie taustiņi pēc kārtas (t.i., viens pēc otra)

Lai gan tas var izskatīties kā nedaudz garāks īsinājumtaustiņš, tiklīdz esat pieradis, tas ir tikpat ātrs kā jebkura cita šajā apmācībā aplūkotā tehnika

Mantotais īsinājumtaustiņš darblapu dzēšanai

Tāpat kā visiem citiem, arī Excel ir pagātne, un tā nav tik skaista. Es runāju par pirmslentes stila laikmetu.

Saderības apsvērumu dēļ Excel joprojām ļauj dažiem no šiem vecajiem īsinājumtaustiņiem darboties jaunākajās versijās. un daudzos gadījumos šie agrākie īsceļi ir īsāki un labāki.

Par laimi, ir mantots īsinājumtaustiņš, kas darbojas, lai izdzēstu darblapas programmā Excel

ALT + E + L

ActiveSheet dzēšana, izmantojot VBA

Kad jādzēš viena lapa vai pāris darblapas, labāk ir izmantot iepriekš minētās metodes.

Lai gan VBA var automatizēt procesu, tas ir noderīgi, ja uzdevums ir jāatkārto vairākas reizes.

Kā redzēsit, ar VBA varat daudz vairāk paveikt, izdzēšot darblapas programmā Excel.

Tāpēc es jūs aizvedīšu uz sarežģītākiem lietošanas gadījumiem, bet pirms tam apskatīsim, kā vienkārši izdzēst aktīvo darblapu, izmantojot VBA.

Zemāk ir VBA kods, kas izdzēsīs aktīvo lapu:

Sub DeleteSheet () ActiveSheet. Dzēst beigu apakšdaļu

Ja izmantojat to tiešajā logā, varat vienkārši izmantot zemāk esošo rindu:

ActiveSheet. Dzēst

Ja izmantojat iepriekš minēto kodu, lai dzēstu aktīvo lapu, programma Excel parādīs uzvedni, kurā jums būs jānoklikšķina uz pogas Dzēst, lai apstiprinātu darbību.

Lapas dzēšana, nerādot apstiprinājuma uzvedni

Apstiprinājuma uzvednes ziņojumu lodziņš ir noderīga funkcija, kas nodrošina iespēju atcelt lapas dzēšanu gadījumā, ja esat nejauši/kļūdaini palaidis kodu

Bet, ja jūs jau zināt, ko darāt, šīs uzvednes saņemšana var būt diezgan kaitinoša.

tāpēc šeit ir VBA kods, kas pārliecinātos, ka lapas ir izdzēstas, bet jūs neredzat apstiprinājuma uzvednes ziņojumu lodziņu.

Sub DeleteSheet () Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

Iepriekš minētajā kodā esmu iestatījis rekvizītu Application.DisplayAlerts uz nepatiesu, kas nozīmē, ka programma Excel nerādīs nekādus displeja brīdinājumus, kamēr kods darbojas.

Ir arī ļoti svarīgi pārliecināties, ka koda beigās to pagriežat par patiesu, lai atjaunotu funkcionalitāti (kā redzat, es esmu darījis iepriekš minētajā kodā).

Uzmanību: iestatot rekvizītu Application.DisplayAlerts uz nepatiesu, programma Excel vienkārši izdzēsīs darblapu un nevarēs to atgūt. tāpēc es iesaku jums izveidot rezerves kopiju pirms šāda veida koda izmantošanas.

Lapas dzēšana pēc nosaukuma (ja tāda pastāv), izmantojot VBA

VBA ļauj automatizēt konkrētas darblapas dzēšanas procesu (vairākās darblapās), pamatojoties uz lapas nosaukumu.

Piemēram, ja jums ir darblapa ar nosaukumu “Pārdošana”, varat to izmantot, lai to izdzēstu:

Sub DeleteSheetByName () Sheets ("Pārdošana"). Izdzēst beigu apakšdaļu

Šis kods dzēstu tikai lapu, kuras nosaukums ir Pārdošana.

Tas ir noderīgi, ja jums ir darbgrāmata ar daudzām loksnēm un nevēlaties izsijāt visas darblapas, lai atrastu lapu ar nosaukumu pārdošana un izdzēstu to manuāli.

Izmantojot iepriekš minēto kodu, nav svarīgi, cik darblapu ir darbgrāmatā, tā vienkārši izdzēstu pārdošanas darblapu.

Un tā kā es neesmu mainījis rekvizītu Application.DisplayAlert, jūs redzēsit uzvedni, kurā jums būs jānoklikšķina uz pogas dzēst, lai apstiprinātu pārdošanas lapas ilgumu.

Ja vēlaties izdzēst vairākas lapas, pamatojoties uz to nosaukumu, varat to izdarīt arī.

Piemēram, zemāk esošais kods izdzēsīs lapas ar nosaukumu Pārdošana, mārketings, finanses:

Sub DeleteSheetsByName () Sheets ("Sales"). Delete Sheets ("Marketing"). Delete Sheets ("Finance"). Delete Sub Sub

Visu lapu, izņemot aktīvo lapu, dzēšana, izmantojot VBA

Ja jums ir darbgrāmata ar vairākām darblapām un vēlaties izdzēst visas darblapas, izņemot aktīvo lapu, VBA, iespējams, ir viena no labākajām metodēm, kā to izdarīt.

Zemāk ir VBA kods, kas izdzēstu visas lapas, izņemot darbgrāmatas aktīvo lapu.

Sub DeleteSheetByName () Dim ws kā darblapa

Ņemiet vērā, ka esmu teicis Application.DisplayAlerts rekvizītu koda sākumā, jo es nevēlos redzēt uzvedni par katru izdzēsto lapu.

Dzēsiet visas lapas, kuru nosaukumā ir noteikta teksta virkne

Šis ir nedaudz progresīvāks izmantošanas gadījums, kad VBA tiek efektīvi izmantota, dzēšot darblapas.

Pieņemsim, ka jums ir darbgrāmata ar daudzām dažādām darblapām un vēlaties izdzēst visas darblapas, kurās ir noteikta teksta virkne, tad to var viegli izdarīt, izmantojot VBA.

Piemēram, zemāk man ir darbgrāmata, kurā es vēlos izdzēst visas darblapas, kurās ir teksta virkne “Pārdošana”.

Zemāk ir VBA kods, kas to darītu:

Apakš DeleteSheetByName () Dim ws kā darblapas lietojumprogramma.DisplayAlerts = False Par katru ws in Sheets If ws.Name Like "*" & "Sales" & "*" Tad MsgBox ws.Name ws.Delete End if Next ws Application.DisplayAlerts = True End Sub

Iepriekš minētais kods izmanto paziņojumu ja-tad, lai izietu cauri visām darbgrāmatas darblapām. Tā pārbauda visu šo darblapu nosaukumu un, ja nosaukumā ir vārds “Pārdošana”, šī darblapa tiek dzēsta.

Ja vēlaties mainīt kodu un meklēt citu teksta virkni, varat to mainīt iepriekšējā koda piektajā rindā.

Ņemiet vērā arī to, ka abās teksta virknes pusēs, ko meklējam darblapas nosaukumā, esmu izmantojis zvaigznīti (*), kas ir aizstājējzīme. Tas nodrošina, ka neatkarīgi no tā, kur virkne tiek parādīta darblapas nosaukumā, tā joprojām tiks izdzēsta.

Varat arī modificēt kodu, lai pārliecinātos, ka tiek izdzēstas tikai tās darblapas, kurās teksta virkne parādās darblapas nosaukuma sākumā.

Piemēram, ja vēlaties izdzēst tās lapas, kuru sākumā parādās termins pārdošana, piektajā rindā izmantojiet šādu kodu.

Ja ws.Name Tāpat kā "*" & "Sales" & "*" Tad

Šeit es izmantoju aizstājējzīmi tikai pēc teksta dzeršanas, nevis pirms tā. Tas pārbaudīs darblapas nosaukumu pārbaudi, un tikai tie, kas atbilst vārda sākumā esošajam terminam, atbilst kritērijiem.

Tātad šīs ir dažas no metodēm, kuras varat izmantot, ja vēlaties izdzēst lapas programmā Excel. Vairumā gadījumu to var viegli izdarīt tieši darblapā, izmantojot peli vai īsinājumtaustiņu.

Bet, ja jums ir smaga darbgrāmata ar daudzām darblapām un vēlaties ātri izdzēst noteikta veida lapas, varat izmantot arī VBA.

Es ceru, ka šī apmācība jums šķita noderīga.