Ho tsamaisa macro ka nako

Nyeoe e tloaelehileng haholo ts'ebetsong: o hloka ho tsamaisa macro e le 'ngoe kapa ho feta ka nako e itseng kapa ka makhetlo a itseng. Ka mohlala, u na le tlaleho e kholo le e boima e ntlafatsang halofo ea hora 'me u ka rata ho tsamaisa ntlafatso halofo ea hora pele u fihla mosebetsing hoseng. Kapa u na le macro e lokelang ho romela mangolo-tsoibila ho basebetsi ka makhetlo a itseng. Kapa, ​​​​ha u sebetsa le PivotTable, u batla hore e ntlafatse ho fofa ka metsotsoana e meng le e meng ea 10, joalo-joalo.

Ha re shebeng hore na Excel le Windows li na le bokhoni bofe ba ho kenya ts'ebetsong sena.

Ho tsamaisa macro ka lebelo le fanoeng

Mokhoa o bonolo oa ho etsa sena ke ho sebelisa mokhoa oa VBA o hahelletsoeng Kopo.KaNakoE tsamaisang macro e boletsoeng ka nako e behiloeng. A re utloisise sena ka mohlala o sebetsang.

Bula Visual Basic editor ka konopo ea lebitso le le leng ho tab Moqapi (Moetsi) kapa khaoletso ea keyboard Alt+F11, kenya mojule o mocha ka har'a menu Kenya – Mojule ebe u kopitsa khoutu e latelang moo:

Dim TimeToRun 'phapang ea lefats'e moo nako e latelang ea ho matha e bolokoang 'ena ke ts'ebeliso ea mantlha ea Sub MyMacro().Ccalculate' recalculate the book Range("A1").Interior.ColorIndex = Int(Rnd() * 56)' tlatsa cell A1 e nang le 'mala o sa reroang :) Letsetsa NextRun' matha NextRun macro ho beha nako e latelang ea ho matha End Sub 'macro ena e beha nako ea ho matha ho latelang ha macro Sub NextRun() TimeToRun = Now + TimeValue("00: 00:03") 'eketsa metsotsoana e 3 ho nako ea hona joale Kopo.OnTime TimeToRun, "MyMacro" 'schedule the next run End Sub 'macro to start the repeat sequence Sub Start() Call NextRun End Sub 'macro ho emisa tatellano e pheta-phetoang. Sub Finish() Application.OnTime TimeToRun, "MyMacro", , False End Sub  

Ha re bone hore na ke eng mona.

Taba ea pele, re hloka phetoho e tla boloka nako ea ts'ebetso e latelang ea macro - ke e bitsitse TimeToRun. Ka kopo hlokomela hore litaba tsa mofuta ona li tlameha ho ba teng ho li-macros tsohle tse latelang, kahoo re hloka ho li etsa. lefatše, ke hore, phatlalatsa qalong ea mojulu pele ho ea pele Sehlooho.

E latelang ho tla macro ea rona ea mantlha MyMacro, e tla etsa mosebetsi o ka sehloohong - ho bala buka hape ho sebelisa mokhoa Kopo.Bala. Ho hlakisa le ho feta, ke kentse foromo =TDATE() ho lakane e ka seleng ea A1, e bonts'ang letsatsi le nako - ha e baloa bocha, litaba tsa eona li tla ntlafatsoa ka pel'a mahlo a rona (feela bulela pontšo ea metsotsoana ka seleng. sebopeho). Bakeng sa monate o eketsehileng, ke boetse ke kentse ho macro taelo ea ho tlatsa sele ea A1 ka 'mala o khethiloeng ka mokhoa o sa reroang (khoutu ea mebala ke palo e kholo ea 0..56, e hlahisoang ke mosebetsi. lakr ebe e potoloha ho fihlela tšebetsong e felletseng Int).

Macro NextRun e eketsa boleng ba pele TimeToRun Metsotsoana e meng e 3 ebe o hlophisa nako e latelang ea macro e kholo MyMacro bakeng sa nako ena e ncha. Ehlile, ts'ebetsong, u ka sebelisa linako tse ling tseo u li hlokang ka ho beha mabaka a tšebetso NakoValue ka sebopeho hh:mm:ss.

'Me qetellong, molemong oa boiketlo feela, li-macros tsa tatellano e eketsehileng li kentsoe. Home le ho phethoa ha eona fihlela qetellong. Ea ho qetela e sebelisa khang ea mokhoa oa bone ho senya tatellano. Ka nako e lekana ba bohata.

Kakaretso haeba u tsamaisa macro Home, ebe carousel ena kaofela e tla bilika, 'me re tla bona setšoantšo se latelang letlapeng:

O ka emisa tatellano ka ho matha, ka ho latellana, macro fihlela qetellong. Bakeng sa boiketlo, o ka abela likhechana tsa keyboard ho li-macro ka bobeli u sebelisa taelo Macros - Likhetho tab ya Moqapi (Moetsi - Macros - Likhetho).

Ho tsamaisa macro ka kemiso

Ha e le hantle, ntho e 'ngoe le e' ngoe e hlalositsoeng ka holimo e ka khoneha ha feela u na le Microsoft Excel e sebetsang 'me faele ea rona e bulehile ho eona. Joale a re shebeng nyeoe e rarahaneng haholoanyane: o hloka ho tsamaisa Excel ho latela kemiso e fanoeng, mohlala, letsatsi le leng le le leng ka 5:00, bula tlaleho e kholo le e rarahaneng ho eona mme u ntlafatse likhokahano tsohle le lipotso tse ho eona e le hore e ka etsa joalo. re be re lokile ha re fihla mosebetsing 🙂

Boemong bo joalo, ho molemo ho sebelisa Windows Scheduler - lenaneo le hahelletsoeng ka har'a mofuta ofe kapa ofe oa Windows le ka etsang liketso tse boletsoeng ka kemiso. Ha e le hantle, u se u ntse u e sebelisa u sa e tsebe, hobane PC ea hau e lula e hlahloba lintlafatso, e khoasolla li-database tse ncha tse khahlanong le kokoana-hloko, e hokahanya li-folders tsa maru, joalo-joalo Ke mosebetsi oohle oa Scheduler. Kahoo mosebetsi oa rona ke ho kenyelletsa mesebetsing e teng e 'ngoe e tla qala Excel le ho bula faele e boletsoeng ho eona. 'Me re tla fanyeha macro ea rona ketsahalong eo Buka ea Mosebetsi_Bula faele ena - mme bothata bo rarollotsoe.

Ke batla ho u hlokomelisa hang-hang hore ho sebetsa le Moralo o ka hloka litokelo tse tsoetseng pele tsa mosebedisi, kahoo haeba u sitoa ho fumana litaelo le mesebetsi e hlalositsoeng ka tlase k'homphieutheng ea hau ea mosebetsi ofising, ikopanye le litsebi tsa hau tsa IT bakeng sa thuso.

Ho thakhola Sehlophisi

Kahoo ha re qaleng Sehlophisi. Ho etsa sena, o ka:

• Tobetsa ka ho le letona konopo Qala 'me u khethe Management ya khomphuta ya hao (Tsamaiso ea komporo)
• Khetha ho Control Panel: Tsamaiso - Task scheduler (Panele ea Taolo - Lisebelisoa tsa Tsamaiso - Sehlophisi sa Mosebetsi)
• Khetha ho tsoa ho menu e kholo Qala - Lisebelisoa - Lisebelisoa tsa Sistimi - Sehlophisi sa Mosebetsi
• Tlhaloso ea khamera ea khatiso Win+R, kena mesebetsichd.msc Le ho hatisa kena

Fesetere e latelang e lokela ho hlaha skrineng (ke na le mofuta oa Senyesemane, empa u ka ba le mofuta):

Theha mosebetsi

Ho theha mosebetsi o mocha o sebelisa wizate e bonolo ea mohato ka mohato, tobetsa sehokelo Etsa mosebetsi o bonolo (Theha Mosebetsi oa Motheo) phanele e nepahetseng.

Mohato oa pele oa wizard, kenya lebitso le tlhaloso ea mosebetsi o tla etsoa:

Tobetsa konopo E 'ngoe (E 'ngoe) mme mohatong o latelang re khetha "trigger" - leqhubu la ho qala kapa ketsahalo e tla qala mosebetsi oa rona (mohlala, ho bulela komporo):

Haeba u khethile Daily (Letsatsi le letsatsi), joale mohatong o latelang o tla hloka ho khetha nako e itseng, letsatsi la ho qala la tatellano le mohato (letsatsi le leng le le leng la 2nd, letsatsi la 5, joalo-joalo):

Mohato o latelang ke ho khetha ketso - Tsamaisa lenaneo (Qala lenaneo):

'Me qetellong, ntho e khahlisang ka ho fetesisa ke hore na ke eng e lokelang ho buloa:

ka Lenaneo kapa mongolo (Lenaneo/mongolo) o hloka ho kenya tsela ea Microsoft Excel joalo ka lenaneo, ke hore, ka kotloloho ho Excel e phethiloeng. Likhomphuthang tse fapaneng tse nang le liphetolelo tse fapaneng tsa Windows le Office, faele ena e kanna ea ba lifoldareng tse fapaneng, ka hona mona ke litsela tse 'maloa tsa ho tseba sebaka sa eona:

• Tobetsa ho lets'oao le letona (kharollo) ho qala Excel komporong ea komporo kapa ka har'a "taskbar" ebe u khetha taelo thepa (Thepa), ebe fensetereng e butsoeng, kopitsa tsela e tsoang moleng shebiloeng:

                       

• Bula buka efe kapa efe ea mosebetsi ea Excel, ebe u bula Motsamaisi oa Mosebetsi (Motsamaisi oa mosebetsi) ho tsuba Ctrl+Alt+From le ka ho tobetsa ka ho le letona moleng Microsoft Excel, khetha taelo thepa (Thepa). Ka fensetere e butsoeng, u ka kopitsa mokhoa oa ho kenya. u sa lebale ho eketsa backslash ho eona le EXCEL.EXE qetellong:

               

• Bula Excel, bula Visual Basic editor ka sekhechana sa keyboard Alt+F11, phanele e bulehileng Hang-hang motsoako oa Ctrl+G, kenya taelo ho eona:

  ? Kopo.Tsela

  ... ebe o tobetsa kena

  

  Kopitsa tsela e hlahang, u sa lebale ho eketsa backslash ho eona le EXCEL.EXE qetellong.

ka Kenya likhang (ka boikhethelo) (Eketsa likhang (ka boikhethelo)) o hloka ho kenya tsela e felletseng ea buka ka macro eo re batlang ho e bula.

Ha tsohle li kentsoe, ebe o tobetsa E 'ngoe eaba fihlela qetellong (Qetella). Mosebetsi o lokela ho kenyelletsoa lethathamong le akaretsang:

Ho bonolo ho laola mosebetsi o entsoeng ka li-buttons tse ka ho le letona. Mona o ka leka mosebetsi ka ho o tsamaisa hang-hang (matha)ntle le ho emela nako e behiloeng. U ka koala mosebetsi ka nakoana (Emisa)e le hore e khaotse ho matha ka nako e itseng, joalo ka phomolo ea hau. Ho lokile, o ka lula o fetola liparamente (matsatsi, nako, lebitso la faele) ka konopo thepa (Thepa).

Kenya macro ho bula faele

Joale e sala e le ho fanyeha bukeng ea rona ho hlahisoa ha macro eo re e hlokang ketsahalong e bulehileng ea faele. Ho etsa sena, bula buka 'me u ee ho Visual Basic Editor u sebelisa sekhechana sa keyboard Alt+F11 kapa likonopo Visual Basic tab ya Moqapi (Moetsi). Fesetereng e bula hukung e kaholimo ho le letšehali, o hloka ho fumana faele ea rona sefateng ebe o tobetsa habeli ho bula module. Buka ena (Buka ena).

Haeba u sa bone fensetere ena ho Visual Basic editor, joale u ka e bula ka menu Sheba - Project Explorer.

Fesetereng ea mojule e butsoeng, eketsa buka e butsoeng ea sebatli sa liketsahalo ka ho e khetha ho tsoa mananeng a theolelang holimo. Buka ea Mosebetsi и Openka ho latellana:

Template ea ts'ebetso e tlameha ho hlaha skrineng. Buka ea Mosebetsi_Bula, moo pakeng tsa mela Poraefete Sub и Qetella mme o hloka ho kenya ditaelo tseo tsa VBA tse lokelang ho phethelwa ka boyona ha bukana ena ya mosebetsi ya Excel e bulwa, ha Mohlophisi a e bula ho ya ka kemiso. Mona ke likhetho tse ling tsa bohlokoa bakeng sa overclocking:

• Bukana ea Mosebetsi.RefreshAll - E khatholla lipotso tsohle tsa data tsa kantle, lipotso tsa Power Query, le PivotTables. Khetho e fapaneng ka ho fetisisa. Seke oa lebala ho lumella likhokahano ho data ea kantle ka boiketsetso le ho ntlafatsa lihokelo ka Faele - Likhetho - Setsi sa Tšepo - Likhetho tsa Setsi sa Tšepo - Litaba tsa Kantle, ho seng joalo, ha u bula buka, temoso e tloaelehileng e tla hlaha 'me Excel, ntle le ho ntlafatsa letho, e tla emela tlhohonolofatso ea hau ka mokhoa oa ho tobetsa konopo. Dumella dikahare (Lumella litaba):

  

• ActiveWorkbook.Connections(“Connection_Name”).Qapolla — ho ntlafatsa data mabapi le kgokelo ya Connection_Name.
• Lipampiri(“Sheet5“).PivotTables(“PivotTable1«).PivotCache.Nchafatsa - ho nchafatsa tafole e le 'ngoe ea pivot e bitsoang Letlapa la Pivot1 letlakaleng Sheet5.
• Kopo.Bala - ho bala hape libuka tsohle tse bulehileng tsa Excel.
• Kopo.BalaKahohleAha bocha - ho qobelloa ho bala liforomo tsohle le ho aha bocha litšepe tsohle lipakeng tsa lisele tse libukeng tsohle tse bulehileng (tse lekanang le ho kenya liforomo kaofela hape).
• Maqephe a Mosebetsi(“Tlaleha”).PrintOut – leqephe la khatiso Photos.
• Letsetsa MyMacro – tsamaisa macro e bitsoang MyMacro.
• Bukana ea Mosebetsi.Boloka – boloka buka ya jwale
  
• ThisWorkbooks.SaveAs “D:ArchiveReport” & Replace(Hona joale, “:", “-“) & “.xlsx” – boloka buka foldareng D: Boloka tlasa lebitso Photos ka letsatsi le nako tse kenyellelitsoeng lebitsong.

Haeba u batla hore Macro e phethoe feela ha faele e buloa ke Scheduler ka 5:00 hoseng, mme eseng nako le nako ha mosebelisi a bula buka ea mosebetsi nakong ea letsatsi la ts'ebetso, hoa utloahala ho eketsa cheke ea nako, mohlala:

Haeba Format(Hona joale, "hh:mm") = "05:00" Ebe Bukana ena ea Mosebetsi.RefreshAll  

Ke phetho. Se ke oa lebala ho boloka buka ea hau ea mosebetsi ka mokhoa o kentsoeng ka macro-enabled (xlsm kapa xlsb) 'me u ka koala Excel ka mokhoa o sireletsehileng ebe u ea hae, u siea komporo ea hau e butsoe. Ka nako e itseng (leha komporo e notletsoe), Scheduler e tla qala Excel ebe e bula faele e boletsoeng ho eona, 'me macro ea rona e tla etsa liketso tse reriloeng. 'Me u tla ba majabajaba betheng ha tlaleho ea hao e boima e recalculated ka tsela e iketsang - botle! 🙂

• Li-macros ke eng, li ka sebelisoa joang, moo u ka kenyang khoutu ea Visual Basic ho Excel
• Mokhoa oa ho iketsetsa tlatsetso ea macro bakeng sa Excel
• Mokhoa oa ho sebelisa Personal Macro Workbook joalo ka laeborari ea li-macros tsa hau ho Excel