Nṣiṣẹ Makiro ni akoko

Ọran ti o wọpọ pupọ ni iṣe: o nilo lati ṣiṣẹ ọkan tabi diẹ ẹ sii ti awọn macros rẹ ni akoko ti a fun tabi ni igbohunsafẹfẹ kan. Fun apẹẹrẹ, o ni ijabọ nla ati iwuwo ti o ṣe imudojuiwọn idaji wakati kan ati pe iwọ yoo fẹ lati ṣiṣe imudojuiwọn ni idaji wakati kan ṣaaju ki o to de ibi iṣẹ ni owurọ. Tabi o ni Makiro ti o yẹ ki o firanṣẹ awọn apamọ laifọwọyi si awọn oṣiṣẹ ni igbohunsafẹfẹ pàtó kan. Tabi, nigbati o ba n ṣiṣẹ pẹlu PivotTable, o fẹ ki o ṣe imudojuiwọn lori fifo ni gbogbo iṣẹju mẹwa 10, ati bẹbẹ lọ.

Jẹ ki a wo kini Excel ati Windows ni agbara lati ṣe eyi.

Nṣiṣẹ Makiro ni igbohunsafẹfẹ ti a fun

Ọna to rọọrun lati ṣe eyi ni lati lo ọna VBA ti a ṣe sinu Ohun elo.LoriakokoOhun ti o nṣiṣẹ Makiro pàtó kan ni akoko pàtó kan. Jẹ ki a loye eyi pẹlu apẹẹrẹ ti o wulo.

Ṣii olootu Ipilẹ Visual pẹlu bọtini ti orukọ kanna lori taabu developer (Olùgbéejáde) tabi ọna abuja keyboard alt+F11, fi titun kan module nipasẹ awọn akojọ Fi sii - Module ati daakọ koodu atẹle nibẹ:

Dim TimeToRun 'iyipada agbaye nibiti akoko ṣiṣe atẹle ti wa ni ipamọ' eyi ni akọkọ Makiro Sub MyMacro () Application. Ṣe iṣiro 'tun iṣiro iwe Range ("A1").Interior.ColorIndex = Int (Rnd () * 56) 'fill sẹẹli A1 pẹlu awọ laileto :) Pe NextRun 'ṣiṣẹ macro NextRun lati ṣeto akoko ṣiṣe atẹle Ipari Sub' Makiro yii ṣeto akoko fun ṣiṣe atẹle ti macro Sub NextRun() TimeToRun = Bayi + TimeValue("00: 00:03") 'fi iṣẹju-aaya 3 kun si ohun elo lọwọlọwọ.LoriTime TimeToRun,“MyMacro”'ṣe eto ṣiṣe ti o tẹle Ipari Sub 'macro lati bẹrẹ ilana atunwi Sub Start() Pe NextRun End Sub 'macro lati da ilana atunwi naa duro Ipin Ipari () Ohun elo.OnTime TimeToRun, "MyMacro", , Ipin Ipari eke  

Jẹ ki a ro ero kini kini nibi.

Ni akọkọ, a nilo iyipada ti yoo tọju akoko ti ṣiṣe atẹle ti macro wa - Mo pe TimeToRun. Jọwọ ṣe akiyesi pe awọn akoonu ti oniyipada yii gbọdọ wa fun gbogbo awọn macro wa ti o tẹle, nitorinaa a nilo lati ṣe agbaye, ie sọ ni ibẹrẹ ti module ṣaaju akọkọ Ipele.

Next ba wa akọkọ Makiro MyMacro, eyi ti yoo ṣe iṣẹ-ṣiṣe akọkọ - lati ṣe atunṣe iwe naa nipa lilo ọna naa Ohun elo.Ṣiṣiro. Lati jẹ ki o ṣe alaye diẹ sii, Mo ṣafikun agbekalẹ = TDATE() si dì ninu sẹẹli A1, eyiti o ṣafihan ọjọ ati akoko - nigbati a ba tun ṣe iṣiro, awọn akoonu rẹ yoo ni imudojuiwọn ni kete ṣaaju oju wa (kan tan ifihan awọn iṣẹju-aaya ninu sẹẹli naa. ọna kika). Fun afikun igbadun, Mo tun fi kun si macro aṣẹ lati kun sẹẹli A1 pẹlu awọ ti a yan laileto (koodu awọ jẹ odidi ni iwọn 0..56, eyiti o jẹ ipilẹṣẹ nipasẹ iṣẹ naa. Rnd ati awọn iyipo soke si ohun odidi iṣẹ int).

Macro NextRun afikun si išaaju iye TimeToRun Awọn iṣẹju-aaya 3 diẹ sii lẹhinna ṣeto ṣiṣe atẹle ti macro akọkọ MyMacro fun akoko tuntun yii. Nitoribẹẹ, ni iṣe, o le lo eyikeyi awọn aaye arin akoko miiran ti o nilo nipa siseto awọn ariyanjiyan iṣẹ Iye Iye ni ọna kika hh:mm:ss.

Ati nikẹhin, fun irọrun, awọn macros ifilọlẹ lẹsẹsẹ diẹ sii ti ṣafikun. Home ati ipari rẹ pari. Awọn ti o kẹhin nlo kẹrin ọna ariyanjiyan lati ya awọn ọkọọkan. Ni akoko dogba eke.

Lapapọ ti o ba ṣiṣe Makiro Home, lẹhinna gbogbo carousel yii yoo yi, ati pe a yoo rii aworan atẹle lori dì:

O le da ọkọọkan duro nipa ṣiṣe, lẹsẹsẹ, Makiro pari. Fun irọrun, o le fi awọn ọna abuja keyboard si awọn macros mejeeji nipa lilo aṣẹ naa Macros - Awọn aṣayan taabu developer (Olùgbéejáde - Makiro - Awọn aṣayan).

Nṣiṣẹ Makiro lori iṣeto kan

Nitoribẹẹ, ohun gbogbo ti a ṣalaye loke ṣee ṣe nikan ti o ba ni Microsoft Excel nṣiṣẹ ati pe faili wa ṣii ninu rẹ. Bayi jẹ ki a wo ọran idiju diẹ sii: o nilo lati ṣiṣẹ Excel ni ibamu si iṣeto ti a fun, fun apẹẹrẹ, ni gbogbo ọjọ ni 5:00, ṣii ijabọ nla ati eka ninu rẹ ki o ṣe imudojuiwọn gbogbo awọn asopọ ati awọn ibeere ninu rẹ ki o le ṣe. jẹ setan nipa akoko ti a de ibi iṣẹ 🙂

Ni iru ipo bẹẹ, o dara lati lo Windows Scheduler - eto pataki ti a ṣe sinu ẹya eyikeyi ti Windows ti o le ṣe awọn iṣe pato lori iṣeto kan. Ni otitọ, o ti wa ni lilo tẹlẹ laisi mimọ, nitori pe PC rẹ nigbagbogbo n ṣayẹwo fun awọn imudojuiwọn, ṣe igbasilẹ awọn apoti isura data anti-virus tuntun, muuṣiṣẹpọ awọn folda awọsanma, ati bẹbẹ lọ. Gbogbo iṣẹ ti Alakoso ni. Nitorinaa iṣẹ-ṣiṣe wa ni lati ṣafikun si awọn iṣẹ-ṣiṣe ti o wa ni ọkan miiran ti yoo ṣe ifilọlẹ Excel ati ṣii faili ti a sọ pato ninu rẹ. Ati pe a yoo gbe macro wa sori iṣẹlẹ naa Iwe iṣẹ_Ṣi faili yii - ati pe a yanju iṣoro naa.

Mo fẹ kilọ fun ọ lẹsẹkẹsẹ pe ṣiṣẹ pẹlu Iṣeto le nilo awọn ẹtọ olumulo ilọsiwaju, nitorinaa ti o ko ba le rii awọn aṣẹ ati awọn iṣẹ ti a ṣalaye ni isalẹ lori kọnputa iṣẹ rẹ ni ọfiisi, kan si awọn alamọja IT rẹ fun iranlọwọ.

Ifilọlẹ Iṣeto

Nítorí náà, jẹ ki ká bẹrẹ awọn Scheduler. Lati ṣe eyi, o le boya:

• Ọtun tẹ lori bọtini Bẹrẹ ati yan Computer Management (Iṣakoso kọmputa)
• Yan ninu Igbimọ Iṣakoso: Isakoso - Iṣeto iṣẹ-ṣiṣe (Igbimọ Iṣakoso — Awọn irin-iṣẹ Isakoso — Iṣeto Iṣẹ-ṣiṣe)
• Yan lati akojọ aṣayan akọkọ Bẹrẹ – Awọn ẹya ẹrọ – Awọn irinṣẹ eto – Iṣeto Iṣẹ-ṣiṣe
• Tẹ ọna abuja ọna abuja win+R, tẹ awọn iṣẹ ṣiṣe.msc ki o si tẹ Tẹ

Ferese atẹle yẹ ki o han loju iboju (Mo ni ẹya Gẹẹsi, ṣugbọn o tun le ni ẹya kan):

Ṣẹda iṣẹ-ṣiṣe kan

Lati ṣẹda iṣẹ-ṣiṣe tuntun nipa lilo oluṣeto igbese-nipasẹ-igbesẹ ti o rọrun, tẹ ọna asopọ naa Ṣẹda iṣẹ-ṣiṣe ti o rọrun (Ṣẹda Iṣẹ-ṣiṣe Ipilẹ) ni ọtun nronu.

Ni ipele akọkọ ti oluṣeto, tẹ orukọ sii ati apejuwe iṣẹ-ṣiṣe ti yoo ṣẹda:

Tẹ bọtini naa Itele (Itele) ati ni igbesẹ ti n tẹle a yan okunfa kan - igbohunsafẹfẹ ifilọlẹ tabi iṣẹlẹ ti yoo ṣe ifilọlẹ iṣẹ-ṣiṣe wa (fun apẹẹrẹ, titan kọnputa):

Ti o ba yan Daily (Ojoojumọ), lẹhinna ni igbesẹ ti nbọ iwọ yoo nilo lati yan akoko kan pato, ọjọ ibẹrẹ ti ọkọọkan ati igbesẹ (gbogbo ọjọ 2nd, ọjọ 5th, ati bẹbẹ lọ):

Igbesẹ ti o tẹle ni lati yan iṣẹ kan - Ṣiṣe eto naa (Bẹrẹ eto):

Ati nikẹhin, ohun ti o nifẹ julọ ni kini deede nilo lati ṣii:

ni awọn Eto tabi akosile (Eto/akosile) o nilo lati tẹ ọna si Microsoft Excel bi eto, ie taara si Tayo executable. Lori awọn kọnputa oriṣiriṣi pẹlu awọn ẹya oriṣiriṣi ti Windows ati Office, faili yii le wa ni oriṣiriṣi awọn folda, nitorinaa awọn ọna diẹ wa fun ọ lati wa ipo rẹ:

• Tẹ-ọtun lori aami (ọna abuja) lati ṣe ifilọlẹ Excel lori deskitọpu tabi ni ibi iṣẹ-ṣiṣe ki o yan aṣẹ naa Ohun elo (Awọn ohun-ini), ati lẹhinna ninu ferese ti o ṣii, daakọ ọna lati ila Àkọlé:

                       

• Ṣii eyikeyi iwe iṣẹ Excel, lẹhinna ṣii Task Manager (Oluṣakoso iṣẹ) titari si Konturolu+alt+lati ati nipa tite ọtun lori ila Microsoft Excel, yan aṣẹ kan Ohun elo (Awọn ohun-ini). Ninu ferese ti o ṣii, o le daakọ ọna naa, ko gbagbe lati ṣafikun ifẹhinti ẹhin rẹ ati EXCEL.EXE ni ipari:

               

• Ṣii Excel, ṣi olootu Ipilẹ Visual pẹlu ọna abuja keyboard alt+F11, ìmọ nronu lẹsẹkẹsẹ apapo ti Konturolu+G, tẹ aṣẹ naa sinu rẹ:

  ? Ohun elo.Ona

  ... ki o si tẹ lori Tẹ

  

  Daakọ ọna abajade, ko gbagbe lati ṣafikun ifẹhinti ẹhin rẹ ati EXCEL.EXE ni ipari.

ni awọn Ṣafikun awọn ariyanjiyan (aṣayan) (Fi awọn ariyanjiyan kun (aṣayan)) o nilo lati fi ọna kikun si iwe pẹlu Makiro ti a fẹ ṣii.

Nigbati ohun gbogbo ba ti tẹ, lẹhinna tẹ Itele ati igba yen pari (Pari). Iṣẹ naa yẹ ki o ṣafikun si atokọ gbogbogbo:

O rọrun lati ṣakoso iṣẹ-ṣiṣe ti a ṣẹda nipa lilo awọn bọtini ni apa ọtun. Nibi o le ṣe idanwo iṣẹ naa nipa ṣiṣe lẹsẹkẹsẹ (ṣiṣe)lai nduro fun awọn pàtó kan akoko. O le mu maṣiṣẹ iṣẹ kan fun igba diẹ (Mu)ki o dẹkun ṣiṣe fun akoko kan, gẹgẹbi isinmi rẹ. O dara, o le yipada awọn aye nigbagbogbo (awọn ọjọ, akoko, orukọ faili) nipasẹ bọtini naa Ohun elo (Awọn ohun-ini).

Ṣafikun Makiro lati ṣii faili kan

Bayi o wa lati gbele sinu iwe wa ifilọlẹ ti Makiro ti a nilo lori iṣẹlẹ ṣiṣi faili naa. Lati ṣe eyi, ṣii iwe naa ki o lọ si olootu Ipilẹ Visual nipa lilo ọna abuja keyboard alt+F11 tabi awọn bọtini visual Ipilẹ taabu developer (Olùgbéejáde). Ni window ti o ṣii ni igun apa osi oke, o nilo lati wa faili wa lori igi naa ki o tẹ lẹẹmeji lati ṣii module. Iwe yii (Iwe Iṣẹ yii).

Ti o ko ba rii window yii ni olootu Ipilẹ Visual, lẹhinna o le ṣii nipasẹ akojọ aṣayan Wo - Project Explorer.

Ni window module ti o ṣii, ṣafikun oluṣakoso iṣẹlẹ ṣiṣi iwe kan nipa yiyan lati awọn atokọ jabọ-silẹ ni oke Iwe-iṣẹ iṣẹ и Open, lẹsẹsẹ:

Awoṣe ilana yẹ ki o han loju iboju. Iwe iṣẹ_Ṣi, nibo laarin awọn ila Ikọkọ Sub и Ipari ipari ati pe o nilo lati fi sii awọn aṣẹ VBA wọnyẹn ti o yẹ ki o ṣiṣẹ laifọwọyi nigbati iwe iṣẹ Excel yii ṣii, nigbati Alakoso ṣi i ni ibamu si iṣeto naa. Eyi ni diẹ ninu awọn aṣayan to wulo fun overclocking:

• Iwe Ise Yii.RefreshGbogbo - Tuntun gbogbo awọn ibeere data ita, Awọn ibeere ibeere agbara, ati PivotTables. Aṣayan ti o pọ julọ. Maṣe gbagbe lati gba awọn asopọ laaye si data ita nipasẹ aiyipada ati imudojuiwọn awọn ọna asopọ nipasẹ Faili - Awọn aṣayan - Ile-iṣẹ Igbekele - Awọn aṣayan Ile-iṣẹ Igbekele - Akoonu ita, bibẹẹkọ, nigbati o ba ṣii iwe naa, ikilọ boṣewa yoo han ati Excel, laisi imudojuiwọn ohunkohun, yoo duro de ibukun rẹ ni irisi titẹ bọtini naa. Mu akoonu ṣiṣẹ (Mu akoonu ṣiṣẹ):

  

• ActiveWorkbook.Awọn isopọ("Asopọ_Orukọ").Sọ - imudojuiwọn data lori Connection_Name asopọ.
• Awọn iwe ("Iwe-iwe 5") .PivotTables ("PivotTable1«).PivotCache.Refresh – mimu kan nikan pivot tabili ti a npè ni PivotTable1 lori dì Iwe 5.
• Ohun elo.Ṣiṣiro – recalculation ti gbogbo ìmọ Excel workbooks.
• Ohun elo.ṢiṣiroFull Tuntun - Iṣiro ti a fi agbara mu ti gbogbo awọn agbekalẹ ati atunkọ gbogbo awọn igbẹkẹle laarin awọn sẹẹli ni gbogbo awọn iwe iṣẹ ṣiṣi (deede lati tun-titẹ sii gbogbo awọn agbekalẹ).
• Awọn iwe iṣẹ-ṣiṣe ("Iroyin").Tẹjade – iwe atẹjade Awọn fọto.
• Pe MyMacro – ṣiṣe a Makiro ti a npè ni MyMacro.
• Iwe Iṣẹ yii.Fipamọ – fi awọn ti isiyi iwe
  
• ThisWorkbooks.FipamọBi “D:Ijabọ Archive” & Rọpo(Bayi, “:”, “-“) & “.xlsx” – fi iwe pamọ si folda kan D:Ipamọ labẹ orukọ Awọn fọto pẹlu ọjọ ati akoko ti a fi kun si orukọ naa.

Ti o ba fẹ ki macro ṣiṣẹ nikan nigbati faili naa ṣii nipasẹ Alakoso ni 5:00 owurọ, kii ṣe ni gbogbo igba ti olumulo ba ṣii iwe iṣẹ lakoko ọjọ iṣẹ, lẹhinna o jẹ oye lati ṣafikun ayẹwo akoko, fun apẹẹrẹ:

Ti o ba jẹ kika (Bayi, "hh:mm") = "05:00" Lẹhinna Iwe-iṣẹ Iṣẹ yii.RefreshAll  

Gbogbo ẹ niyẹn. Maṣe gbagbe lati ṣafipamọ iwe iṣẹ rẹ ni ọna kika macro-sise (xlsm tabi xlsb) ati pe o le pa Excel lailewu ki o lọ si ile, nlọ kọmputa rẹ si titan. Ni akoko ti a fun (paapaa ti PC ba wa ni titiipa), Iṣeto yoo ṣe ifilọlẹ Excel ati ṣii faili ti a ti sọ ninu rẹ, ati pe macro wa yoo ṣe awọn iṣe ti a ṣeto. Ati pe iwọ yoo ṣe igbadun ni ibusun lakoko ti ijabọ eru rẹ jẹ iṣiro laifọwọyi - ẹwa! 🙂

• Kini macros, bii o ṣe le lo wọn, nibo ni lati fi koodu Ipilẹ Visual sii ni Excel
• Bii o ṣe le ṣẹda afikun macro tirẹ fun Excel
• Bii o ṣe le lo Iwe-iṣẹ Makiro Ti ara ẹni bi ile-ikawe fun awọn macros rẹ ni Excel