නියමිත වේලාවට මැක්‍රෝ එකක් ධාවනය කිරීම

ප්‍රායෝගිකව ඉතා සුලභ අවස්ථාවක්: ඔබට ලබා දී ඇති වේලාවක හෝ නිශ්චිත සංඛ්‍යාතයක ඔබේ මැක්‍රෝ එකක් හෝ කිහිපයක් ධාවනය කිරීමට අවශ්‍ය වේ. උදාහරණයක් ලෙස, ඔබට පැය භාගයක් යාවත්කාලීන වන විශාල සහ බර වාර්තාවක් ඇති අතර ඔබ උදෑසන රැකියාවට පැමිණීමට පැය භාගයකට පෙර යාවත්කාලීන කිරීම ක්‍රියාත්මක කිරීමට කැමතිය. නැතහොත් ඔබට නිශ්චිත සංඛ්‍යාතයකින් සේවකයින්ට ස්වයංක්‍රීයව විද්‍යුත් තැපැල් යැවිය යුතු මැක්‍රෝ එකක් තිබේ. එසේත් නැතිනම්, PivotTable එකක් සමඟ වැඩ කරන විට, ඔබට එය සෑම තත්පර 10කට වරක්ම යාවත්කාලින කිරීමට අවශ්‍ය වේ.

අපි බලමු Excel සහ Windows වලට මේක ක්‍රියාත්මක කරන්න පුළුවන් මොනවද කියලා.

දී ඇති සංඛ්‍යාතයකදී මැක්‍රෝ එකක් ධාවනය කිරීම

මෙය කිරීමට ඇති පහසුම ක්‍රමය වන්නේ බිල්ට්-ඉන් VBA ක්‍රමය භාවිතා කිරීමයි යෙදුම.OnTimeනිශ්චිත වේලාවට නියමිත මැක්‍රෝව ධාවනය කරන එකක්. අපි මෙය ප්‍රායෝගික උදාහරණයකින් තේරුම් ගනිමු.

ටැබ් එකේ ඇති එකම නමේ බොත්තම සමඟ දෘශ්‍ය මූලික සංස්කාරකය විවෘත කරන්න සංවර්ධක (සංවර්ධක) හෝ යතුරුපුවරු කෙටිමං alt+F11, මෙනුව හරහා නව මොඩියුලයක් ඇතුල් කරන්න ඇතුල් කරන්න - මොඩියුලය සහ පහත කේතය එහි පිටපත් කරන්න:

Dim TimeToRun 'ගෝලීය විචල්‍යය මීළඟ ධාවන කාලය ගබඩා කර ඇත 'මෙය ප්‍රධාන මැක්‍රෝ උප MyMacro() යෙදුමයි. ගණනය කරන්න 'පොත පරාසය("A1") නැවත ගණනය කරන්න.Interior.ColorIndex = Int(Rnd() * 56) 'පුරවන්න අහඹු වර්ණයක් සහිත සෛල A1 :) Call NextRun 'ඊළඟ ධාවන කාලය සැකසීමට NextRun මැක්‍රෝ ධාවනය කරන්න End Sub 'මෙම මැක්‍රෝව ප්‍රධාන මැක්‍රෝවේ ඊළඟ ධාවන කාලය සකසයි Sub NextRun() TimeToRun = Now + TimeValue("00: 00:03") වත්මන් කාල යෙදුමට තත්පර 3ක් එක් කරන්න.OnTime TimeToRun, "MyMacro" 'ඊළඟ ධාවනය උපලේඛනගත කරන්න End Sub'macro පුනරාවර්තන අනුක්‍රමය ආරම්භ කිරීමට උප ආරම්භය() Repeat අනුක්‍රමය නැවැත්වීමට NextRun End Sub'macro අමතන්න. Sub Finish() Application.OnTime TimeToRun, "MyMacro", , False End Sub  

මෙහි ඇති දේ කුමක්දැයි සොයා බලමු.

පළමුව, අපට අපගේ මැක්‍රෝවේ ඊළඟ ධාවන කාලය ගබඩා කරන විචල්‍යයක් අවශ්‍ය වේ - මම එය ඇමතුවෙමි TimeToRun. මෙම විචල්‍යයේ අන්තර්ගතය අපගේ පසුකාලීන මැක්‍රෝ සියල්ලටම තිබිය යුතු බව කරුණාවෙන් සලකන්න, එබැවින් අපට එය සෑදිය යුතුය ගෝලීය, එනම් පළමු මොඩියුලය ආරම්භයේදීම ප්‍රකාශ කරන්න උප.

ඊළඟට අපේ ප්‍රධාන මැක්‍රෝ එක එනවා MyMacro, ප්රධාන කාර්යය ඉටු කරනු ඇත - ක්රමය භාවිතයෙන් පොත නැවත ගණනය කිරීම යෙදුම.ගණනය කරන්න. එය වඩාත් පැහැදිලි කිරීම සඳහා, මම A1 කොටුවේ ඇති පත්‍රයට =TDATE() සූත්‍රය එක් කළෙමි, එය දිනය සහ වේලාව පෙන්වයි - නැවත ගණනය කළ විට, එහි අන්තර්ගතය අපගේ ඇස් ඉදිරිපිටම යාවත්කාලීන වේ (කොටුව තුළ තත්පර සංදර්ශකය සක්‍රිය කරන්න. ආකෘතිය). අමතර විනෝදයක් සඳහා, මම මැක්‍රෝ වෙත අහඹු ලෙස තෝරාගත් වර්ණයකින් A1 කොටුව පිරවීමට විධානය ද එක් කළෙමි (වර්ණ කේතය 0..56 පරාසයේ පූර්ණ සංඛ්‍යාවකි, එය ශ්‍රිතය මගින් ජනනය වේ. Rnd සහ පූර්ණ සංඛ්‍යා ශ්‍රිතයක් දක්වා වට කරයි අන්තර්).

මැක්රෝ ඊළඟ ධාවනය පෙර අගයට එකතු කරයි TimeToRun තවත් තත්පර 3ක් සහ පසුව ප්‍රධාන මැක්‍රෝවේ මීළඟ ධාවනය උපලේඛනගත කරයි MyMacro මෙම නව කාලය සඳහා. ඇත්ත වශයෙන්ම, ප්‍රායෝගිකව, ඔබට ක්‍රියාකාරී තර්ක සැකසීමෙන් ඔබට අවශ්‍ය වෙනත් කාල පරතරයන් භාවිතා කළ හැකිය කාල අගය hh:mm:ss ආකෘතියෙන්.

අවසාන වශයෙන්, පහසුව සඳහා, තවත් අනුක්‍රමික දියත් මැක්‍රෝ එකතු කර ඇත. මුල් පිටුව සහ එහි සම්පූර්ණ කිරීම අවසානයි. අන්තිම එක සිවුවැනි ක්‍රම තර්කය යොදාගෙන අනුක්‍රමය කඩනවා. වෙලාවට සමාන බොරු.

ඔබ මැක්‍රෝව ධාවනය කරන්නේ නම් එකතුව මුල් පිටුව, එවිට මෙම මුළු කැරොසල් කැරකෙන අතර, අපි පත්‍රයේ පහත පින්තූරය දකිමු:

ඔබට පිළිවෙලින් මැක්‍රෝ ධාවනය කිරීමෙන් අනුපිළිවෙල නැවැත්විය හැකිය අවසානයි. පහසුව සඳහා, ඔබට විධානය භාවිතයෙන් මැක්‍රෝ දෙකටම යතුරුපුවරු කෙටිමං පැවරිය හැක මැක්රෝස් - විකල්ප ටැබ් සංවර්ධක (සංවර්ධක - මැක්‍රෝස් - විකල්ප).

කාලසටහනකට අනුව macro ධාවනය කිරීම

ඇත්ත වශයෙන්ම, ඉහත විස්තර කර ඇති සෑම දෙයක්ම කළ හැක්කේ ඔබ Microsoft Excel ධාවනය කර ඇති අතර අපගේ ගොනුව එහි විවෘතව තිබේ නම් පමණි. දැන් අපි වඩාත් සංකීර්ණ අවස්ථාවක් දෙස බලමු: ඔබ ලබා දී ඇති කාලසටහනකට අනුව Excel ධාවනය කළ යුතුය, උදාහරණයක් ලෙස, සෑම දිනකම 5:00 ට, එහි විශාල හා සංකීර්ණ වාර්තාවක් විවෘත කර එහි ඇති සියලුම සම්බන්ධතා සහ විමසුම් යාවත්කාලීන කරන්න. අපි වැඩට එනකොට ලෑස්ති ​​වෙලා ඉන්න 🙂

එවැනි තත්වයක් තුළ, එය භාවිතා කිරීම වඩා හොඳය Windows Scheduler - කාලසටහනකට අනුව නිශ්චිත ක්‍රියාවන් සිදු කළ හැකි වින්ඩෝස් හි ඕනෑම අනුවාදයකට විශේෂයෙන් ගොඩනගා ඇති වැඩසටහනකි. ඇත්ත වශයෙන්ම, ඔබ දැනටමත් එය නොදැන එය භාවිතා කරයි, මන්ද ඔබේ පරිගණකය නිතිපතා යාවත්කාලීන කිරීම් සඳහා පරීක්ෂා කිරීම, නව ප්රති-වයිරස දත්ත සමුදායන් බාගත කිරීම, වලාකුළු ෆෝල්ඩර සමමුහුර්ත කිරීම යනාදිය. ඒ සියල්ල Scheduler ගේ කාර්යය වේ. එබැවින් අපගේ කාර්යය වන්නේ එක්සෙල් දියත් කර එහි නිශ්චිත ගොනුව විවෘත කරන තවත් එකක් දැනට පවතින කාර්යයන් වලට එකතු කිරීමයි. තවද අපි අපගේ මැක්‍රෝව උත්සවයේ එල්ලා තබන්නෙමු වැඩපොත_විවෘත මෙම ගොනුව - සහ ගැටළුව විසඳා ඇත.

උපලේඛකයා සමඟ වැඩ කිරීමට උසස් පරිශීලක අයිතිවාසිකම් අවශ්‍ය විය හැකි බව මට වහාම ඔබට අනතුරු ඇඟවීමට අවශ්‍ය වේ, එබැවින් ඔබට පහත විස්තර කර ඇති විධාන සහ කාර්යයන් කාර්යාලයේ ඔබේ වැඩ පරිගණකයේ සොයාගත නොහැකි නම්, උදවු සඳහා ඔබේ තොරතුරු තාක්ෂණ විශේෂඥයින් අමතන්න.

Scheduler දියත් කිරීම

එහෙනම් අපි Scheduler එක පටන් ගනිමු. මෙය සිදු කිරීම සඳහා, ඔබට එක්කෝ:

• බොත්තම මත දකුණු ක්ලික් කරන්න ආරම්භයක් තෝරාගන්න පරිගණක කළමනාකරණය (පරිගණක කළමනාකරණය)
• පාලක පැනලයේ තෝරන්න: පරිපාලනය - කාර්ය සැලසුම්කරු (පාලක පැනලය - පරිපාලන මෙවලම් - කාර්ය උපලේඛනය)
• ප්රධාන මෙනුවෙන් තෝරන්න ආරම්භය - උපාංග - පද්ධති මෙවලම් - කාර්ය සැලසුම්කරු
• යතුරු පුවරු කෙටිමං වින්+R, ඇතුලත් කරන්න taskchd.msc සහ මාධ්ය ඇතුලත් කරන්න

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

කාර්යයක් සාදන්න

සරල පියවරෙන් පියවර විශාරදයෙකු භාවිතයෙන් නව කාර්යයක් නිර්මාණය කිරීමට, සබැඳිය ක්ලික් කරන්න සරල කාර්යයක් සාදන්න (මූලික කාර්යය සාදන්න) දකුණු පුවරුවේ.

විශාරදයාගේ පළමු පියවරේදී, නිර්මාණය කළ යුතු කාර්යයේ නම සහ විස්තරය ඇතුළත් කරන්න:

බොත්තම මත ක්ලික් කරන්න ඊලඟ (ඊළඟ) ඊළඟ පියවරේදී අපි ප්‍රේරකයක් තෝරා ගනිමු - දියත් කිරීමේ සංඛ්‍යාතය හෝ අපගේ කාර්යය දියත් කරන සිදුවීමක් (උදාහරණයක් ලෙස, පරිගණකය සක්‍රිය කිරීම):

ඔබ තෝරා ගත්තා නම් දිනපතා (දිනපතා), ඊළඟ පියවරේදී ඔබට නිශ්චිත වේලාවක් තෝරා ගැනීමට අවශ්‍ය වනු ඇත, අනුපිළිවෙලෙහි ආරම්භක දිනය සහ පියවර (සෑම 2 වන දින, 5 වන දින, ආදිය):

ඊළඟ පියවර වන්නේ ක්‍රියාවක් තෝරා ගැනීමයි - වැඩසටහන ක්‍රියාත්මක කරන්න (වැඩසටහනක් ආරම්භ කරන්න):

අවසාන වශයෙන්, වඩාත්ම සිත්ගන්නා කරුණ නම් හරියටම විවෘත කළ යුතු දෙයයි:

තුළ වැඩසටහන හෝ පිටපත (වැඩසටහන/ස්ක්‍රිප්ට්) ඔබට Microsoft Excel වෙත යන මාර්ගය වැඩසටහනක් ලෙස ඇතුලත් කල යුතුය, එනම් කෙලින්ම Excel ක්‍රියාත්මක කල හැකි වෙත. Windows සහ Office හි විවිධ අනුවාද සහිත විවිධ පරිගණකවල, මෙම ගොනුව විවිධ ෆෝල්ඩරවල තිබිය හැක, එබැවින් ඔබට එහි පිහිටීම සොයා ගැනීමට ක්‍රම කිහිපයක් පහත දැක්වේ:

• ඩෙස්ක්ටොප් එකේ හෝ කාර්ය තීරුවේ Excel දියත් කිරීමට අයිකනය (කෙටිමං) මත දකුණු-ක්ලික් කර විධානය තෝරන්න ද්රව්ය (දේපළ), ඉන්පසු විවෘත වන කවුළුවෙහි, රේඛාවෙන් මාර්ගය පිටපත් කරන්න ඉලක්කය:

                       

• ඕනෑම Excel වැඩපොතක් විවෘත කරන්න, ඉන්පසු විවෘත කරන්න කාර්ය කළමනාකරු (කාර්ය කළමනාකරු) තල්ලු කිරීම Ctrl+alt+සිට සහ රේඛාව මත දකුණු ක්ලික් කිරීමෙන් Microsoft Excel, විධානයක් තෝරන්න ද්රව්ය (දේපළ). විවෘත වන කවුළුව තුළ, ඔබට මාර්ගය පිටපත් කළ හැකිය, එයට backslash එකක් එක් කිරීමට අමතක නොකර අවසානයේ EXCEL.EXE:

               

• එක්සෙල් විවෘත කරන්න, යතුරුපුවරු කෙටිමං සමඟ දෘශ්‍ය මූලික සංස්කාරකය විවෘත කරන්න alt+F11, විවෘත පැනලය ක්ෂනිකව සංයෝජනයක් Ctrl+G, එයට විධානය ඇතුල් කරන්න:

  ? යෙදුම. මාර්ගය

  … සහ ක්ලික් කරන්න ඇතුලත් කරන්න

  

  ලැබෙන මාර්ගය පිටපත් කරන්න, එයට backslash එකක් එක් කිරීමට අමතක නොකර අවසානයේ EXCEL.EXE.

තුළ තර්ක එකතු කරන්න (අත්‍යවශ්‍ය නොවේ) (තර්ක එකතු කරන්න (විකල්ප)) ඔබ අපට විවෘත කිරීමට අවශ්‍ය මැක්‍රෝ සමඟ පොතට සම්පූර්ණ මාර්ගය ඇතුළත් කළ යුතුය.

සෑම දෙයක්ම ඇතුළත් කළ විට, ක්ලික් කරන්න ඊලඟ ඊළගට අවසානයි (අවසන් කරන්න). කාර්යය පොදු ලැයිස්තුවට එකතු කළ යුතුය:

දකුණු පස ඇති බොත්තම් භාවිතයෙන් නිර්මාණය කරන ලද කාර්යය කළමනාකරණය කිරීම පහසුය. මෙහිදී ඔබට එය වහාම ක්රියාත්මක කිරීමෙන් කාර්යය පරීක්ෂා කළ හැකිය (ධාවනය)නියමිත වේලාවට බලා නොසිට. ඔබට කාර්යයක් තාවකාලිකව අක්රිය කළ හැකිය (අබල කරන්න)එය ඔබගේ නිවාඩුව වැනි කාල සීමාවක් සඳහා ධාවනය නතර වන පරිදි. හොඳයි, ඔබට සෑම විටම බොත්තම හරහා පරාමිතීන් (දිනයන්, වේලාව, ගොනු නාමය) වෙනස් කළ හැකිය ද්රව්ය (දේපළ).

ගොනුවක් විවෘත කිරීමට මැක්‍රෝ එකක් එක් කරන්න

දැන් එය අපගේ පොතේ එල්ලා තැබීමට ඉතිරිව ඇත්තේ ගොනුව විවෘත කිරීමේ අවස්ථාවට අපට අවශ්‍ය මැක්‍රෝ දියත් කිරීමයි. මෙය සිදු කිරීම සඳහා, පොත විවෘත කර යතුරුපුවරු කෙටිමඟ භාවිතයෙන් දෘශ්‍ය මූලික සංස්කාරකය වෙත යන්න alt+F11 හෝ බොත්තම් දෘශ්ය මූලික ටැබ් සංවර්ධක (සංවර්ධක). ඉහළ වම් කෙළවරේ විවෘත වන කවුළුව තුළ, ඔබ අපගේ ගොනුව ගස මත සොයා ගත යුතු අතර මොඩියුලය විවෘත කිරීමට දෙවරක් ක්ලික් කරන්න. මෙම පොත (මෙම වැඩපොත).

ඔබට දෘශ්‍ය මූලික සංස්කාරකයේ මෙම කවුළුව නොපෙනේ නම්, ඔබට එය මෙනුව හරහා විවෘත කළ හැකිය බලන්න - Project Explorer.

විවෘත වන මොඩියුල කවුළුවෙහි, ඉහළින් ඇති පතන ලැයිස්තුවෙන් එය තේරීමෙන් පොත් විවෘත සිදුවීම් හසුරුවන්නක් එක් කරන්න. වැඩපොත и විවෘත, පිළිවෙලින්:

ක්රියාපටිපාටිය ආකෘතියක් තිරය මත දිස්විය යුතුය. වැඩපොත_විවෘත, රේඛා අතර කොහෙද පුද්ගලික උප и අවසන් උප මෙම Excel වැඩපොත විවෘත කරන විට, කාලසටහනට අනුව එය විවෘත කරන විට ස්වයංක්‍රීයව ක්‍රියාත්මක විය යුතු VBA විධාන ඔබ ඇතුළත් කළ යුතුය. ඕවර් ක්ලොක් කිරීම සඳහා ප්‍රයෝජනවත් විකල්ප කිහිපයක් මෙන්න:

• මෙම වැඩපොත.සියල්ල නැවුම් කරන්න - සියලුම බාහිර දත්ත විමසුම්, බල විමසුම් විමසුම් සහ විවර්තන වගු නැවුම් කරයි. වඩාත්ම බහුකාර්ය විකල්පය. පෙරනිමියෙන් බාහිර දත්ත වලට සම්බන්ධතා වලට ඉඩ දීමට සහ සබැඳි යාවත්කාලීන කිරීමට අමතක නොකරන්න ගොනුව - විකල්ප - විශ්වාස මධ්යස්ථානය - විශ්වාස මධ්යස්ථානය විකල්ප - බාහිර අන්තර්ගතය, එසේ නොමැතිනම්, ඔබ පොත විවෘත කරන විට, සම්මත අනතුරු ඇඟවීමක් දිස්වනු ඇති අතර, කිසිවක් යාවත්කාලීන නොකර Excel, බොත්තම මත ක්ලික් කිරීමේ ස්වරූපයෙන් ඔබගේ ආශිර්වාදය සඳහා රැඳී සිටිනු ඇත. අන්තර්ගතය සබල කරන්න (අන්තර්ගතය සබල කරන්න):

  

• ActiveWorkbook.Connections("Connection_Name").නැවුම් කරන්න - Connection_Name සම්බන්ධතාවයේ දත්ත යාවත්කාලීන කිරීම.
• පත්‍ර ("පත්‍ර 5").PivotTables("PivotTable1«).PivotCache.Refresh - නම් කරන ලද තනි විවර්තන වගුවක් යාවත්කාලීන කිරීම විවර්තන වගුව1 පත්රය මත ෂීට්එන්එම්ක්ස්.
• යෙදුම.ගණනය කරන්න - සියලුම විවෘත Excel වැඩපොත් නැවත ගණනය කිරීම.
• Application.CalculateFullRebuild - සියලුම සූත්‍ර බලහත්කාරයෙන් නැවත ගණනය කිරීම සහ සියලුම විවෘත වැඩපොත් වල සෛල අතර සියලු පරායත්තතා නැවත ගොඩ නැගීම (සියලු සූත්‍ර නැවත ඇතුල් කිරීමට සමාන වේ).
• වැඩ පත්රිකා ("වාර්තාව").මුද්රණය - මුද්‍රණ පත්‍රය ඡායාරූප.
• MyMacro අමතන්න - නමින් මැක්‍රෝ එකක් ධාවනය කරන්න MyMacro.
• මෙම වැඩපොත. සුරකින්න - වත්මන් පොත සුරකින්න
  
• මෙම වැඩපොත්. "D:ArchiveReport" ලෙස සුරකින්න සහ ප්‍රතිස්ථාපනය කරන්න(දැන්, ":", "-") සහ ".xlsx" - පොත ෆෝල්ඩරයකට සුරකින්න D: සංරක්ෂිතය නම යටතේ ඡායාරූප නමට දිනය සහ වේලාව එකතු කර ඇත.

ඔබට මැක්‍රෝව ක්‍රියාත්මක කිරීමට අවශ්‍ය වන්නේ ගොනුව උපලේඛකයා විසින් උදේ 5:00 ට විවෘත කළ විට පමණක් වන අතර, පරිශීලකයා වැඩ කරන දිනය තුළ වැඩපොත විවෘත කරන සෑම අවස්ථාවකම නොවේ නම්, කාල පරීක්ෂාවක් එක් කිරීම අර්ථවත් කරයි, උදාහරණයක් ලෙස:

Format(දැන්, "hh:mm") = "05:00" නම් ThisWorkbook.RefreshAll  

එච්චරයි. ඔබගේ වැඩපොත සාර්ව සක්‍රීය ආකෘතියකින් (xlsm හෝ xlsb) සුරැකීමට අමතක නොකරන්න, එවිට ඔබට ඔබේ පරිගණකය ක්‍රියාත්මක කර තබා ආරක්ෂිතව Excel වසා නිවසට යා හැක. ලබා දී ඇති මොහොතක (පරිගණකය අගුලු දමා තිබුණත්), උපලේඛකයා විසින් Excel දියත් කර එහි සඳහන් ගොනුව විවෘත කරනු ඇත, සහ අපගේ මැක්රෝ වැඩසටහන්ගත ක්‍රියාවන් සිදු කරනු ඇත. ඔබේ බර වාර්තාව ස්වයංක්‍රීයව නැවත ගණනය කරන අතරතුර ඔබ ඇඳේ සුඛෝපභෝගී වනු ඇත - අලංකාරය! 🙂

• මැක්‍රෝස් යනු කුමක්ද, ඒවා භාවිතා කරන්නේ කෙසේද, එක්සෙල් හි දෘශ්‍ය මූලික කේතය ඇතුළත් කළ යුතු ස්ථානය
• Excel සඳහා ඔබේම සාර්ව ඇඩෝනයක් සාදා ගන්නේ කෙසේද
• Excel හි ඔබගේ මැක්‍රෝ සඳහා පුස්තකාලයක් ලෙස පුද්ගලික මැක්‍රෝ වැඩපොත භාවිතා කරන්නේ කෙසේද