Na-agba ọsọ macro n'oge

Okwu a na-ahụkarị na omume: ịkwesịrị ịgba ọsọ otu ma ọ bụ karịa nke macros gị n'otu oge ma ọ bụ n'otu oge. Dịka ọmụmaatụ, ị nwere akụkọ buru ibu ma dị arọ nke na-emelite ọkara elekere ma ịchọrọ ịme mmelite ahụ ọkara otu awa tupu ị bịarute n'ọrụ n'ụtụtụ. Ma ọ bụ ị nwere nnukwu macro kwesịrị izipu ndị ọrụ ozi-e na-akpaghị aka n'otu oge. Ma ọ bụ, mgbe ị na-arụ ọrụ na PivotTable, ịchọrọ ka ọ na-emelite na ofufe ọ bụla 10 sekọnd, na na.

Ka anyị lee ihe Excel na Windows nwere ike mejuputa nke a.

Na-agba nnukwu macro na oge enyere

Ụzọ kacha mfe ime nke a bụ iji usoro VBA arụnyere arụnyere Ngwa.Oge ogeNke na-agba nnukwu macro akọwapụtara n'oge a kara aka. Ka anyị jiri ihe atụ bara uru ghọta nke a.

Mepee Visual Basic editọ na bọtịnụ nke otu aha na taabụ Mmepụta (Onye Mmepụta) ma ọ bụ ụzọ mkpirisi ahụigodo Alt+F11, Fanye modul ọhụrụ site na menu Fanye – Modul ma detuo koodu a ebe ahụ:

Dim TimeToRun 'global variable where the next run time echekwabara' nke a bụ isi macro Sub MyMacro() Application.Calculate' recalculate the book Range("A1").Interior.ColorIndex = Int(Rnd() * 56) 'dejupụta cell A1 nwere agba na-enweghị usoro :) Kpọọ NextRun 'gbaa macro na-esoteRun ka ịtọọ oge ịgba ọsọ na-esote Ọgwụgwụ Sub 'Macro a na-ewepụta oge maka ọsọ na-esote nke nnukwu nnukwu Sub NextRun () TimeToRun = Ugbu a + TimeValue("00: 00:03") 'tinye 3 sekọnd n'oge ugbu a Ngwa.OnTime TimeToRun, "MyMacro"'hazie ọsọ na-esote End Sub 'macro ka ịmalite usoro ikwugharị Sub Start() Kpọọ NextRun End Sub 'macro iji kwụsị usoro ikwugharị. Ngwa Sub Finish().OnTime TimeToRun, "MyMacro", , Sub End End Sub  

Ka anyị chọpụta ihe bụ ihe ebe a.

Nke mbụ, anyị chọrọ mgbanwe nke ga-echekwa oge nke ọzọ na-agba ọsọ nke nnukwu anyị - m kpọrọ ya TimeToRun. Biko mara na ọdịnaya nke mgbanwe a ga-adịrịrị maka macro anyị niile na-esote, yabụ anyị kwesịrị ime ya. zuru ụwa ọnụ, ntụgharị kwupụta na mmalite nke modul tupu nke mbụ sub.

Na-esote nnukwu nnukwu anyị MyMacro, nke ga-arụ ọrụ bụ isi - iji megharịa akwụkwọ ahụ site na iji usoro ahụ Ngwa.Gbakọọ. Iji mee ka ọ dokwuo anya, agbakwunyere m usoro = TDATE () na mpempe akwụkwọ dị na cell A1, nke na-egosiputa ụbọchị na oge - mgbe a gbakọgharịrị, a ga-emelite ọdịnaya ya ozugbo n'anya anyị (naanị gbanye ihe ngosi nke sekọnd na cell). usoro). Maka ntụrụndụ ọzọ, agbakwunyere m na macro iwu iji mejupụta cell A1 na agba ahọpụtara na-enweghị usoro (koodu agba bụ ọnụọgụ dị na nso 0..56, nke a na-emepụta site na ọrụ ahụ. Rnd na agbakọta ruo ọrụ integer Int).

Macro Na-esoteRun na-agbakwunye na uru gara aga TimeToRun 3 ọzọ sekọnd wee hazie ọsọ na-esote nke nnukwu nnukwu MyMacro maka oge ọhụrụ a. N'ezie, na omume, ị nwere ike iji oge ọ bụla ọzọ ị chọrọ site na ịtọ arụmụka ọrụ TimeValue n'ụdị hh:mm:ss.

Na n'ikpeazụ, naanị maka ịdị mma, agbakwunyere macro mmalite usoro usoro. Mbido na mmecha ya Imecha. Nke ikpeazụ na-eji arụmụka usoro nke anọ mebie usoro. N'oge hà ụgha.

Mkpokọta ma ọ bụrụ na ị na-agba nnukwu nnukwu Mbido, mgbe ahụ dum carousel ga-atụgharị, anyị ga-ahụ foto na-esonụ na mpempe akwụkwọ:

Ị nwere ike ịkwụsị usoro site na ịgba ọsọ, otu, nnukwu Imecha. Maka ịdị mma, ị nwere ike kenye ụzọ mkpirisi ahụigodo na macro abụọ site na iji iwu ahụ Macros - Nhọrọ tab Mmepụta (Onye Mmepụta - Macros - Nhọrọ).

Na-eme nnukwu macro na nhazi oge

N'ezie, ihe niile akọwara n'elu ga-ekwe omume naanị ma ọ bụrụ na ị nwere Microsoft Excel na-agba ọsọ na faịlụ anyị na-emeghe na ya. Ugbu a, ka anyị leba anya n'okwu dị mgbagwoju anya: ịkwesịrị ịgba ọsọ Excel dịka usoro enyere, dịka ọmụmaatụ, ụbọchị ọ bụla na 5:00, mepee akụkọ buru ibu na mgbagwoju anya na ya ma melite njikọ na ajụjụ niile dị na ya ka o wee nwee ike. dịrị njikere mgbe anyị rutere ọrụ 🙂

N'ọnọdụ dị otú ahụ, ọ ka mma iji Ihe nhazi Windows - mmemme etinyere n'ụdị Windows ọ bụla nke nwere ike ịrụ ọrụ akọwapụtara na nhazi oge. N'ezie, ị na-eji ya na-amaghị ya, n'ihi na PC gị na-enyocha mgbe niile maka mmelite, na-ebudata ọdụ data mgbochi nje ọhụrụ, na-emekọrịta nchekwa igwe ojii, wdg. Ọ bụ ọrụ niile nke Onye nhazi. Ya mere, ọrụ anyị bụ ịgbakwunye na ọrụ ndị dị ugbu a nke ọzọ ga-amalite Excel wee mepee faịlụ akọwapụtara na ya. Anyị ga-ekowe nnukwu macro anyị na mmemme ahụ Akwụkwọ ọrụ_Mepee faịlụ a - ma dozie nsogbu ahụ.

Achọrọ m ịdọ gị aka ná ntị ozugbo na ịrụ ọrụ na onye nhazi oge nwere ike ịchọ ikike onye ọrụ dị elu, yabụ ọ bụrụ na ịnweghị ike ịchọta iwu na ọrụ akọwara n'okpuru na kọmputa ọrụ gị n'ọfịs, kpọtụrụ ndị ọkachamara IT gị maka enyemaka.

Ịmalite nhazi oge

Ya mere, ka anyị malite usoro nhazi. Iji mee nke a, ị nwere ike:

• Pịa aka nri na bọtịnụ Malite ma họrọ Njikwa Kọmputa (Njikwa kọmputa)
• Họrọ na Ogwe njikwa: Nchịkwa - Onye nhazi ọrụ (Ogwe njikwa - Ngwaọrụ nchịkwa - Onye nhazi ọrụ)
• Họrọ site na isi menu Malite – Ngwa – Ngwa sistemụ – Onye nhazi ọrụ
• Pịa ụzọ mkpirisi keyboard Win+R, banye ozigbo na pịa Tinye

The following window should appear on the screen (I have an English version, but you can also have a version):

Mepụta ọrụ

Iji mepụta ọrụ ọhụrụ site na iji ọkachamara nzọụkwụ site na nzọụkwụ dị mfe, pịa njikọ ahụ Mepụta ọrụ dị mfe (Mepụta ọrụ bụ isi) n'akụkụ aka nri.

Na nzọụkwụ mbụ nke ọkachamara, tinye aha na nkọwa nke ọrụ a ga-emepụta:

Pịa na bọtịnụ Osote (Osote) na nzọụkwụ na-esote anyị na-ahọrọ ihe mkpali - ugboro mmalite ma ọ bụ ihe omume ga-amalite ọrụ anyị (dịka ọmụmaatụ, ịgbanye kọmputa):

Ọ bụrụ na ị họrọ Daily (kwa ụbọchị), mgbe ahụ, na nzọụkwụ ọzọ, ị ga-achọ ịhọrọ oge a kapịrị ọnụ, ụbọchị mmalite nke usoro na nzọụkwụ (ụbọchị abụọ ọ bụla, ụbọchị nke ise, wdg):

Nzọụkwụ ọzọ bụ ịhọrọ ihe omume - Gbaa mmemme ahụ (Malite mmemme):

Na n'ikpeazụ, ihe kacha adọrọ mmasị bụ ihe kwesịrị imeghe:

na Mmemme ma ọ bụ edemede (Mmemme/edemede) ịkwesịrị ịbanye n'ụzọ Microsoft Excel dị ka mmemme, ntụgharị ozugbo na Excel executable. Na kọmpụta dị iche iche nwere ụdị Windows na Office dị iche iche, faịlụ a nwere ike ịdị na nchekwa dị iche iche, yabụ ebe a bụ ụzọ ole na ole ị ga-esi chọpụta ebe ọ nọ:

• Pịa aka nri na akara ngosi (ụzọ mkpirisi) ka ịmalite Excel na desktọpụ ma ọ bụ na taskbar wee họrọ iwu ahụ Materials (Njirimara), na mgbe ahụ na windo na-emepe, detuo ụzọ site na ahịrị Target:

                       

• Mepee akwụkwọ ọrụ Excel ọ bụla, wee mepee ya Task Manager Onye njikwa ọrụ (Task Manager) na-akwali Ctrl+Alt+site na site na ịpị aka nri na ahịrị Microsoft Excel, họrọ iwu Materials (Njirimara). Na windo na-emepe, ị nwere ike iṅomi ụzọ ahụ, echefula ịgbakwunye azụ azụ na ya na EXCEL.EXE na njedebe:

               

• Mepee Excel, meghee Visual Basic editọ nwere ụzọ mkpirisi ahụigodo Alt+F11, oghere panel ozugbo Nchikota nke Ctrl+G, tinye iwu n'ime ya:

  ? Ngwa.Ụzọ

  … wee pịa Tinye

  

  Detuo ụzọ ga-apụta, echefula ịgbakwunye azụ azụ na ya na EXCEL.EXE na njedebe.

na Tinye arụmụka (nhọrọ) (Tinye arụmụka (nhọrọ)) ịkwesịrị itinye ụzọ zuru ezu na akwụkwọ ahụ na nnukwu ihe anyị chọrọ imeghe.

Mgbe abanyela ihe niile, wee pịa Osote Ọzọkwa Imecha (Mechaa). Ekwesịrị ịgbakwunye ọrụ ahụ na ndepụta izugbe:

Ọ dị mma ijikwa ọrụ emepụtara site na iji bọtịnụ dị n'aka nri. N'ebe a, ị nwere ike ịnwale ọrụ ahụ site na ịme ya ozugbo (gbaa)na-echeghị oge a kapịrị ọnụ. Ị nwere ike gbanyụọ ọrụ nwa oge (Gbanyụọ)nke mere na ọ kwụsịrị ịgba ọsọ ruo oge ụfọdụ, dị ka ezumike gị. Ọ dị mma, ịnwere ike ịgbanwe paramita mgbe niile (ụbọchị, oge, aha faịlụ) site na bọtịnụ Materials (Njirimara).

Tinye nnukwu ka imepe faịlụ

Ugbu a ọ ka dị ka idowe n'akwụkwọ anyị mmalite nke nnukwu anyị chọrọ na mmemme mepere emepe faịlụ. Iji mee nke a, mepee akwụkwọ ahụ wee gaa na Visual Basic editọ site na iji ụzọ mkpirisi ahụ Alt+F11 ma ọ bụ bọtịnụ visual Basic tab Mmepụta (Onye Mmepụta). Na mpio nke mepere na akuku aka ekpe elu, ịkwesịrị ịchọta faịlụ anyị na osisi wee pịa ugboro abụọ iji mepee modul. Akwụkwọ a (Akwụkwọ ọrụ a).

Ọ bụrụ na ịhụghị windo a na Visual Basic editọ, ị nwere ike imepe ya site na menu Lelee - Project Explorer.

Na mpio modul na-emepe, gbakwunye onye na-ahụ maka mmemme mepere emepe site na ịhọrọ ya na ndetu ndị dị n'elu. Akwụkwọ ọgụgụ и Open, dika:

Ụkpụrụ usoro kwesịrị ịpụta na ihuenyo. Akwụkwọ ọrụ_Mepee, ebe n'etiti ahịrị Nkeonwe Sub и End Sub na ịkwesịrị ịtinye iwu VBA ndị ahụ kwesịrị ime na-akpaghị aka mgbe a na-emeghe akwụkwọ ọrụ Excel a, mgbe Onye nhazi ahụ meghere ya dịka nhazi oge. Nke a bụ ụfọdụ nhọrọ bara uru maka overclocking:

• Akwụkwọ ọrụ a. Weghachite niile - Na-eweghachi ajụjụ data mpụga niile, ajụjụ ajụjụ ike na PivotTables. Nhọrọ kachasị mma. Naanị echefula ikwe ka njikọ dị na data mpụga site na ndabara wee melite njikọ site na Faịlụ - Nhọrọ - Ụlọ ntụkwasị obi - Nhọrọ Center ntụkwasị obi - Ọdịnaya Mpụga, ma ọ bụghị ya, mgbe ị mepee akwụkwọ ahụ, ịdọ aka ná ntị ọkọlọtọ ga-apụta na Excel, na-enweghị imelite ihe ọ bụla, ga-echere ngọzi gị n'ụdị ịpị bọtịnụ. Kwado ọdịnaya (Kwado ọdịnaya):

  

• ActiveWorkbook.Njikọ ("Njikọ_Aha").Nweta ume - na-emelite data na njikọ Njikọ_Aha.
• Ibé akwụkwọ ("Ibé akwụkwọ 5").PivotTables("PivotTable1«).PivotCache.Nweghachi ume - na-emelite otu tebụl pivot aha ya PivotTable1 na mpempe akwụkwọ Mpempe akwụkwọ5.
• Ngwa.Gbakọọ - mweghachi nke akwụkwọ ọrụ Excel niile mepere emepe.
• Ngwa.Gbakọọ nrụpụta zuru ezu - mmanye mmụgharị nke usoro niile na iwughachi ndabere niile n'etiti sel na akwụkwọ ọrụ niile mepere emepe (dakọtara na ntinye usoro niile).
• Mpempe akwụkwọ ("Akụkọ"). Bipụta – mpempe akwụkwọ Photos.
• Kpọọ MyMacro – na-agba ọsọ nnukwu aha MyMacro.
• Akwụkwọ ọrụ a. Chekwa – chekwaa akwụkwọ dị ugbu a
  
• Akwụkwọ ọrụ a.ChekwaAs "D:ArchiveReport" & Dochie(Ugbu a, ":", "-") & ".xlsx" – Chekwaa akwụkwọ na nchekwa D: Ebe nchekwa n'okpuru aha Photos na ụbọchị na oge agbakwunyere aha.

Ọ bụrụ na ịchọrọ ka gbuo macro naanị mgbe onye nhazi mepere faịlụ ahụ na 5:00 nke ụtụtụ, ọ bụghịkwa oge ọ bụla onye ọrụ mepere akwụkwọ ọrụ n'oge ụbọchị ọrụ, mgbe ahụ ọ bụ ihe ezi uche dị na ya ịgbakwunye nlele oge, dịka ọmụmaatụ:

Ọ bụrụ usoro (Ugbu a, "hh:mm") = "05:00" wee akwụkwọ ọrụ a.RefreshAll  

Ọ gwụla. Echefula ichekwa akwụkwọ ọrụ gị n'ụdị nwere ike (xlsm ma ọ bụ xlsb) ma ị nwere ike mechie Excel wee laa n'ụlọ, hapụ kọmputa gị n'enweghị nsogbu. N'otu oge (ọbụlagodi ma ọ bụrụ na akpọchiri PC), onye nhazi oge ga-ebuputa Excel wee mepee faịlụ akọwapụtara n'ime ya, macro anyị ga-arụkwa mmemme ahụ. Ị ga-amakwa ụra n'ihe ndina mgbe a na-atụgharị akụkọ dị arọ gị na-akpaghị aka - ịma mma! 🙂

• Kedu ihe bụ macros, otu esi eji ha, ebe itinye koodu Visual Basic na Excel
• Otu esi emepụta macro add-in nke gị maka Excel
• Otu esi eji Akwụkwọ Macro nkeonwe dị ka ọba akwụkwọ maka macros gị na Excel