Čia pateikta makrokomanda yra puikus būdas apsaugoti vartotojus nuo netyčinio failo uždarymo prieš išsaugant. Įdiegta ši makrokomanda užtikrina, kad „Excel“ automatiškai išsaugos darbaknygę prieš ją uždarant.
„Excel“ paprastai įspės vartotojus, kurie bando uždaryti neišsaugotą darbaknygę, suteikdama jiems galimybę išsaugoti prieš uždarant. Tačiau daugelis vartotojų gali nepastebėti įspėjimo ir netyčia spustelėti Ne, liepdami „Excel“ uždaryti neišsaugojus. Naudodami šią makrokomandą nuo to apsaugote automatiškai išsaugodami prieš uždarydami.
Kodą suaktyvina darbaknygės įvykis BeforeClose. Kai bandote uždaryti darbaknygę, šis įvykis suaktyvinamas, paleidžiant kodą. Kodo esmė paprasta – jis klausia vartotojų, ar jie nori uždaryti darbaknygę. Tada makrokomanda įvertina, ar vartotojas spustelėjo Gerai ar Atšaukti.
Pranešimas, kurį matote bandydami uždaryti darbaknygę.
Vertinimas atliekamas naudojant Select Case pareiškimą. Teiginys Select Case yra teiginio If-Then-Else alternatyva, leidžianti atlikti makrokomandų sąlygų patikras. Pagrindinė teiginio Select Case konstrukcija yra paprasta:
Pasirinkite Case
Atvejis yra =
Byla yra =
Byla yra =
Pabaigos pasirinkimas
Naudodami teiginį Select Case galite atlikti daugybę sąlyginių patikrinimų. Tokiu atveju jūs tiesiog patikrinate Gerai arba Atšaukti. Pažvelkite į kodą:
Privati antrinė darbo knyga_Prieš uždarymą (Atšaukti kaip Būlio)
„1 veiksmas: suaktyvinkite pranešimo laukelį ir pradėkite tikrinimą
Pasirinkite Case MsgBox ("Išsaugoti ir uždaryti?", vbOKCancel)
„2 veiksmas: paspaustas atšaukimo mygtukas, todėl atšaukite uždarymą
Case Is = vbCancel
Atšaukti = Tiesa
3 veiksmas: paspaustas mygtukas Gerai, todėl išsaugokite darbaknygę ir uždarykite
Case Is = vbOK
ActiveWorkbook.Save
4 veiksmas: uždarykite pareiškimą Select Case
Pabaigos pasirinkimas
Pabaigos sub
Atlikdami 1 veiksmą, suaktyvinate pranešimo laukelį kaip pareiškimo Select Case sąlygos patikrinimą. Naudojate argumentą vbOKCancel, kad užtikrintumėte, jog mygtukai Gerai ir Atšaukti būtų pateikti kaip pasirinkimai.
Jei 2 veiksme vartotojas pranešimo laukelyje spustelėjo Atšaukti, makrokomanda nurodo „Excel“ atšaukti įvykį „Workbook_Close“, perduodant „True“ į Atšaukti Būlio reikšmę.
Jei vartotojas pranešimo laukelyje spustelėjo mygtuką Gerai, įsigalioja 3 veiksmas. Čia nurodote „Excel“ išsaugoti darbaknygę. Ir kadangi jūs nenustatėte Atšaukti Būlio reikšmės į True, „Excel“ tęsia uždarymą.
4 veiksme tiesiog uždarykite pareiškimą Select Case. Kiekvieną kartą, kai sukuriate pasirinkimo atvejį, turite jį uždaryti atitinkamu pabaigos pasirinkimu.
Norėdami įdiegti šią makrokomandą, turite nukopijuoti ir įklijuoti ją į įvykio kodo langą Workbook_BeforeClose. Įdėjus makrokomandą, ji bus paleista kiekvieną kartą, kai bandote uždaryti darbaknygę:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Projekto lange raskite savo projekto / darbaknygės pavadinimą ir spustelėkite šalia jo esantį pliuso ženklą, kad pamatytumėte visus lapus.
Spustelėkite ThisWorkbook.
Išskleidžiamajame sąraše Įvykis pasirinkite įvykį BeforeClose.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.
Įveskite savo kodą į įvykį Workbook BeforeClose.
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ą […]
