Kaip automatiškai paleisti makrokomandą prieš uždarant darbaknygę „Excel“

Daug kartų norime atlikti tam tikrus iš anksto nustatytus ir pasikartojančius veiksmus prieš uždarydami darbaknygę. Pavyzdžiui, uždaryti ryšius su duomenų baze, ištrinti šiukšlių duomenis, apsaugoti darbo knygą, išsaugoti darbaknygę ar tiesiog atsisveikinti su vartotoju. Tai galima padaryti naudojant „Excel“ darbaknygės įvykius.

Šiame straipsnyje sužinosime, kaip galite paleisti makrokomandą, nes darbo knyga uždaroma paprasčiausiu būdu.

Automatiškai paleisti makrokomandą uždarius darbaknygę

Norėdami paleisti makrokomandą uždarius darbaknygę, naudosime „Workbook Event Workbook_BeforeClose“. Šio įvykio sintaksė yra tokia.

Privati ​​antrinė darbo knyga_BeforeClose (Atšaukti kaip loginis) 'Jūsų kodas čia. Pabaiga Sub 

Norėdami parašyti darbo knygos įvykyje, atlikite tai.

Atidarykite VBE naudodami Alt+F11. Dabar „Project Explorer“ raskite darbaknygę, kurioje norite turėti kodą. Dabar surask Ši darbo knyga objektas projekto tyrinėtojuje. Dukart spustelėkite jį.

Dabar virš kodavimo srities galite pamatyti du išskleidžiamuosius sąrašus. Spustelėkite pirmąjį ir pasirinkite
Darbo knyga. Dabar visus galimus įvykius, susijusius su darbaknyge, galima pamatyti dešiniajame išskleidžiamajame meniu. Spustelėkite jį ir pasirinkite „BeforeClose“. Tai kodavimo srityje parašys tuščią darbaknygę_BeforeClose.

Čia reikia parašyti visą kodą, kurį norite paleisti prieš uždarydami darbaknygę. Šiuo atveju galite tiesiog paskambinti kitoms paprogramėms, parašytoms bet kuriame modulyje. Šis kodas paskatins įvykį paleisti viską, kas parašyta tarp šių dviejų eilučių.

Pavyzdys:

Naudokime įvykį „Workbook_BeforeClose“, norėdami patvirtinti naudotoją ir pasveikinti jį atidarius darbaknygę.

Private Sub Workbook_BeforeClose (Atšaukti kaip loginis) ThisWorkbook.Save MsgBox "Ši darbo knyga išsaugota." Pabaiga Sub 

Į šį kodą galite įdėti bet ką. Mes netgi galime iškviesti bet kurią paprogramę iš bet kurio darbo knygos modulio. Išsaugokite darbaknygę ir vieną kartą paleiskite kodą. Dabar uždarykite darbo knygą. Jūsų darbo knyga bus automatiškai išsaugota ir bus parodytas pranešimas.

Privati ​​antrinė darbo knyga_BeforeClose (Atšaukti kaip loginis) Skambinti „ShutDatabase“ iškvietimo paprogramė, kuri išjungia šaltinio duomenų bazę „End Sub“ 

Taigi taip, tai yra. Tai paprastas būdas automatiškai paleisti makrokomandą uždarius darbaknygę. Tikiuosi, kad mano rašymas buvo pakankamai aiškus ir svetainė jums patiko. Jei tai nepadėjo, parašykite savo užklausą žemiau esančiame komentarų skyriuje. Į jį atsakysiu kuo greičiau.

Darbaknygės įvykiai naudojant VBA „Microsoft Excel“ : Čia galite rasti visus darbaknygės įvykius, kuriuos galima suaktyvinti paleidžiant konkretų įvykių kodą.

Darbo lapo keitimo įvykio naudojimas makrokomandai paleisti, kai atliekami bet kokie pakeitimai | Taigi, norėdami paleisti makrokomandą, kai lapas atnaujinamas, naudojame VBA darbalapio įvykius.

Vykdykite makrokomandą, jei lape bus atlikti pakeitimai nurodytame diapazone | Jei norite paleisti makrokomandą, kai pasikeičia nurodyto diapazono vertė, naudokite šį VBA kodą. Jis aptinka bet kokius pakeitimus, atliktus nurodytame diapazone, ir suaktyvina įvykį.

Paprasčiausias VBA kodas, skirtas paryškinti dabartinę eilutę ir stulpelį | Naudokite šį mažą VBA fragmentą, kad paryškintumėte dabartinę lapo eilutę ir stulpelį.

Populiarūs straipsniai:

50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų dar labiau pagreitins jūsų darbą naudojant „Excel“.

„VLOOKUP“ funkcija „Excel“ | Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.

COUNTIF „Excel 2016“ | Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečias vertes, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.

Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.



Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave