Kartais „Excel“ darbaknygėje galite ištrinti visus, išskyrus aktyvųjį, darbalapį. Tokiais atvejais galite naudoti šią makrokomandą.
Čia esanti makrokomanda eina per darbalapius, suderindama kiekvieno darbalapio pavadinimą su aktyvaus lapo pavadinimu. Kiekvieną kartą makrokomandos ciklas ištrina visus nesuderintus darbalapius. Atkreipkite dėmesį į ypatybės „DisplayAlerts“ naudojimą 4 veiksme. Tai veiksmingai išjungia „Excel“ įspėjimus, todėl jums nereikės patvirtinti kiekvieno ištrynimo.
Sub-makro1()
1 veiksmas: deklaruokite savo kintamuosius
Dim ws kaip darbalapis
2 veiksmas: pradėkite peržiūrėti visus darbalapius
Kiekvienam ws Šioje darbaknygėje.Darbo lapuose
„3 veiksmas: patikrinkite kiekvieno darbalapio pavadinimą
Jei ws.Name <> ThisWorkbook.ActiveSheet.Name Tada
„4 veiksmas: išjunkite įspėjimus ir ištrinkite
Application.DisplayAlerts = Netiesa
ws.Ištrinti
Application.DisplayAlerts = Tiesa
Pabaiga, jei
5 veiksmas: pereikite prie kito darbalapio
Kitas ws
Pabaigos sub
Makrokomandas pirmiausia deklaruoja objektą, vadinamą ws. Šis veiksmas sukuria atminties talpyklą kiekvienam darbalapiui, per kurį jis perkeliamas.
Atliekant 2 veiksmą makrokomanda pradeda ciklą, pranešdama programai „Excel“, kad ji įvertins visus šios darbaknygės darbalapius. Yra skirtumas tarp ThisWorkbook ir ActiveWorkbook. Objektas ThisWorkBook nurodo darbaknygę, kurioje yra kodas. ActiveWorkBook objektas nurodo šiuo metu aktyvią darbaknygę. Jie dažnai grąžina tą patį objektą, bet jei darbaknygė, kurioje veikia kodas, nėra aktyvi darbaknygė, jie grąžina skirtingus objektus. Tokiu atveju nenorite rizikuoti ištrinti lapus kitose darbaknygėse, todėl naudokite ThisWorkBook.
3 veiksme makrokomanda tiesiog lygina aktyvaus lapo pavadinimą su lapu, kuris šiuo metu yra susietas.
4 veiksme, jei lapų pavadinimai skiriasi, makrokomanda ištrina lapą. Kaip minėta, jūs naudojate „DisplayAlerts“, kad užblokuotumėte visus patvirtinimo patikrinimus iš „Excel“. Jei norite gauti įspėjimą prieš ištrindami lapus, galite praleisti programą. DisplayAlerts = klaidinga. Praleidę „DisplayAlerts“ teiginį užtikrinsite, kad bus rodomas pranešimas, todėl galėsite atsisakyti sprendimo ištrinti darbalapius.
5 veiksme makrokomanda grįžta atgal, kad gautų kitą lapą. Įvertinus visus lapus, makrokomandas baigiasi.
Praleiskite DisplayAlerts teiginį, kad pamatytumėte įspėjamuosius pranešimus.
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.
Kai makrokomandoje naudojate ThisWorkbook vietoj ActiveWorkbook, negalite paleisti makrokomandos iš asmeninės makrokomandos darbaknygės. Kodėl? Kadangi ThisWorkbook būtų nuoroda į asmeninę makrokomandos darbaknygę, o ne į darbaknygę, kuriai turėtų būti taikoma makrokomanda.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
