ማክሮን በሰዓቱ ማስኬድ

በተግባር በጣም የተለመደ ጉዳይ: በአንድ የተወሰነ ጊዜ ወይም በተወሰነ ድግግሞሽ ውስጥ አንድ ወይም ከዚያ በላይ ማክሮዎችዎን ማሄድ ያስፈልግዎታል. ለምሳሌ ግማሽ ሰአት የሚያዘምን ትልቅ እና ከባድ ዘገባ አለህ እና ጠዋት ስራ ላይ ከመድረክ ግማሽ ሰአት በፊት ማሻሻያውን ማስኬድ ትፈልጋለህ። ወይም በተወሰነ ድግግሞሽ ለሰራተኞች ኢሜይሎችን መላክ ያለበት ማክሮ አለዎት። ወይም ከ PivotTable ጋር ሲሰሩ በየ 10 ሰከንድ በበረራ ላይ እንዲዘመን ይፈልጋሉ እና ወዘተ.

ይህንን ተግባራዊ ለማድረግ ኤክሴል እና ዊንዶውስ ምን ችሎታ እንዳላቸው እንይ።

በተወሰነ ድግግሞሽ ላይ ማክሮን በማሄድ ላይ

ይህን ለማድረግ ቀላሉ መንገድ አብሮ የተሰራውን የVBA ዘዴ ​​መጠቀም ነው። መተግበሪያ.በጊዜየተወሰነውን ማክሮ በተጠቀሰው ጊዜ የሚያሄድ። ይህንን በተግባራዊ ምሳሌ እንረዳው።

በትሩ ላይ ተመሳሳይ ስም ባለው ቁልፍ የ Visual Basic አርታዒን ይክፈቱ ገንቢ (ገንቢ) ወይም የቁልፍ ሰሌዳ አቋራጭ alt+F11, በምናሌው ውስጥ አዲስ ሞጁል አስገባ አስገባ - ሞጁል እና የሚከተለውን ኮድ እዚያ ይቅዱ።

Dim TimeToRun 'የሚቀጥለው የሩጫ ጊዜ የሚከማችበት ዓለም አቀፋዊ ተለዋዋጭ' ይህ ዋናው ማክሮ ንዑስ ማይ ማክሮ () መተግበሪያ ነው። አስላ 'የመጽሐፉን ክልል እንደገና አስላ("A1")።Interior.ColorIndex = Int(Rnd() * 56)' ሙላ ሕዋስ A1 በዘፈቀደ ቀለም :) ወደ NextRun ይደውሉ የሚቀጥለውን የሩጫ ጊዜ ለማዘጋጀት NextRun ማክሮን ያሂዱ የመጨረሻ ንዑስ ይህ ማክሮ የሚቀጥለውን የዋናው ማክሮ አሂድ ጊዜ ያዘጋጃል Sub NextRun() TimeToRun = Now + TimeValue("00: 00:03") 'በአሁኑ ጊዜ ትግበራ ላይ 3 ሰከንድ ጨምር።በጊዜ ታይምToRun፣"MyMacro"የሚቀጥለውን ሩጫ End Sub'macro መርሐግብር መድገም ቅደም ተከተል ለመጀመር ንዑስ ጀምር() የድግግሞሹን ቅደም ተከተል ለማስቆም NextRun End Sub'macro ይደውሉ ንዑስ አጨራረስ() አፕሊኬሽን።በየሰአት TimeToRun፣ "MyMacro"፣፣ የውሸት መጨረሻ ንዑስ  

እዚህ ምን እንዳለ እንወቅ።

በመጀመሪያ, የእኛን ማክሮ የሚቀጥለውን ሩጫ ጊዜ የሚያከማች ተለዋዋጭ ያስፈልገናል - ደወልኩ TimeToRun. እባክዎን የዚህ ተለዋዋጭ ይዘቶች ለሁሉም ተከታይ ማክሮዎቻችን መገኘት አለባቸው ስለዚህ እኛ ማድረግ አለብን ዓለም አቀፍማለትም በሞጁሉ መጀመሪያ ላይ ከመጀመሪያው በፊት ያውጁ ንዑስ.

ቀጥሎ የእኛ ዋና ማክሮ ይመጣል ማይ ማክሮ, ዋናውን ተግባር የሚያከናውነው - ዘዴውን በመጠቀም መጽሐፉን እንደገና ለማስላት መተግበሪያ. አስላ. ይበልጥ ግልጽ ለማድረግ፣ በሴል A1 ውስጥ ባለው ሉህ =TDATE() ላይ ጨመርኩት፣ እሱም ቀኑን እና ሰዓቱን ያሳያል - እንደገና ሲሰላ ይዘቱ ዓይናችን እያየ ይሻሻላል (በሴሉ ውስጥ የሰከንዶችን ማሳያ ብቻ ያብሩ)። ቅርጸት)። ለተጨማሪ ደስታ ሴል A1 በዘፈቀደ የተመረጠ ቀለም እንዲሞላ ትዕዛዝ ወደ ማክሮ ጨመርኩ (የቀለም ኮድ በ 0..56 ክልል ውስጥ ያለው ኢንቲጀር ነው ፣ ይህም በተግባሩ የተፈጠረ ነው) rnd እና ወደ ኢንቲጀር ተግባር ያዞራል። int).

ማክሮ ቀጣይ አሂድ ወደ ቀዳሚው እሴት ይጨምራል TimeToRun 3 ተጨማሪ ሰከንድ እና በመቀጠል የዋናውን ማክሮ ቀጣይ ሩጫ መርሐግብር ያስይዙ ማይ ማክሮ ለዚህ አዲስ ጊዜ. በእርግጥ, በተግባር, የተግባር ክርክሮችን በማዘጋጀት የሚፈልጉትን ማንኛውንም ሌላ የጊዜ ክፍተቶች መጠቀም ይችላሉ TimeValue በ hh:mm:ss ቅርጸት።

እና በመጨረሻም ፣ ለመመቻቸት ፣ ተጨማሪ ተከታታይ ማስጀመሪያ ማክሮዎች ተጨምረዋል። መግቢያ ገፅ እና ማጠናቀቅ ጪረሰ. የመጨረሻው ቅደም ተከተል ለመስበር አራተኛውን ዘዴ ክርክር ይጠቀማል. በሰዓቱ እኩል የተሳሳተ.

ማክሮውን ካስኬዱ አጠቃላይ መግቢያ ገፅ, ከዚያም ይህ ሙሉ ካሮሴል ይሽከረከራል, እና በሉሁ ላይ የሚከተለውን ምስል እናያለን.

በቅደም ተከተል, ማክሮውን በማሄድ ቅደም ተከተል ማቆም ይችላሉ ጪረሰ. ለመመቻቸት, ትዕዛዙን በመጠቀም የቁልፍ ሰሌዳ አቋራጮችን ለሁለቱም ማክሮዎች መመደብ ይችላሉ ማክሮዎች - አማራጮች ትር ገንቢ (ገንቢ - ማክሮዎች - አማራጮች).

በጊዜ መርሐግብር ላይ ማክሮን በማሄድ ላይ

እርግጥ ነው, ከላይ የተገለጹት ሁሉም ነገሮች የሚቻሉት ማይክሮሶፍት ኤክሴል እየሰራ ከሆነ እና የእኛ ፋይል በውስጡ ክፍት ከሆነ ብቻ ነው. አሁን የበለጠ የተወሳሰበ ጉዳይን እንይ፡ በተሰጠው የጊዜ ሰሌዳ መሰረት ኤክሴልን ማስኬድ አለቦት ለምሳሌ በየቀኑ 5፡00 ላይ ትልቅ እና ውስብስብ የሆነ ዘገባ ይክፈቱ እና በውስጡ ያለውን ግንኙነት እና መጠይቆችን ሁሉ ያዘምኑ። 🙂 ስራ ላይ ስንደርስ ተዘጋጅ

በእንደዚህ ዓይነት ሁኔታ ውስጥ መጠቀም የተሻለ ነው የዊንዶውስ መርሐግብር - በማንኛውም የዊንዶውስ ስሪት ውስጥ በልዩ ሁኔታ የተገነባ ፕሮግራም በጊዜ መርሐግብር ላይ የተወሰኑ እርምጃዎችን ማከናወን ይችላል። በእርግጥ እርስዎ ሳያውቁት እየተጠቀሙበት ነው፣ ምክንያቱም ፒሲዎ በየጊዜው ዝመናዎችን ስለሚመለከት፣ አዲስ የጸረ-ቫይረስ ዳታቤዝ ያውርዳል፣ የደመና ማህደሮችን ያመሳስላል፣ ወዘተ. ሁሉም የመርሐግብር አውጪው ስራ ነው። ስለዚህ የእኛ ተግባር በነባር ስራዎች ላይ ሌላ አንድ ኤክሴል አስጀምሮ በውስጡ የተገለጸውን ፋይል መክፈት ነው። እና ማክሮችንን በዝግጅቱ ላይ እንሰቅላለን የስራ መጽሐፍ_ክፍት ይህ ፋይል - እና ችግሩ ተፈትቷል.

ወዲያውኑ ላስጠነቅቃችሁ የምፈልገው ከመርሃግብር ሰጪው ጋር አብሮ መስራት የላቀ የተጠቃሚ መብቶችን ሊጠይቅ ይችላል፣ስለዚህ በቢሮ ውስጥ በስራ ኮምፒዩተርዎ ላይ ከዚህ በታች የተገለጹትን ትዕዛዞች እና ተግባራት ማግኘት ካልቻሉ ለእርዳታ የ IT ልዩ ባለሙያዎችን ያነጋግሩ።

መርሐግብር ማስጀመሪያውን በማስጀመር ላይ

ስለዚህ መርሐግብርን እንጀምር። ይህንን ለማድረግ የሚከተሉትን ማድረግ ይችላሉ:

• በአዝራሩ ላይ በቀኝ ጠቅ ያድርጉ መጀመሪያ እና መምረጥ የኮምፒዩተር አስተዳደር (የኮምፒውተር አስተዳደር)
• በመቆጣጠሪያ ፓነል ውስጥ ይምረጡ አስተዳደር - ተግባር መርሐግብር (የቁጥጥር ፓነል - የአስተዳደር መሳሪያዎች - የተግባር መርሐግብር)
• ከዋናው ምናሌ ውስጥ ይምረጡ ጀምር - መለዋወጫዎች - የስርዓት መሳሪያዎች - የተግባር መርሐግብር
• የቁልፍ ሰሌዳ አቋራጭ ይጫኑ አሸነፈ+R፣ ግባ taskschd.msc እና ይጫኑ አስገባ

የሚከተለው መስኮት በስክሪኑ ላይ መታየት አለበት (የእንግሊዘኛ እትም አለኝ፣ ግን እርስዎም እንዲሁ ስሪት ሊኖርዎት ይችላል)

ተግባር ይፍጠሩ

ቀላል ደረጃ-በደረጃ አዋቂን በመጠቀም አዲስ ተግባር ለመፍጠር አገናኙን ጠቅ ያድርጉ ቀላል ተግባር ይፍጠሩ (መሰረታዊ ተግባር ፍጠር) በትክክለኛው ፓነል ውስጥ.

በጠንቋዩ የመጀመሪያ ደረጃ ላይ የሚፈጠረውን ተግባር ስም እና መግለጫ ያስገቡ፡-

በአዝራሩ ላይ ጠቅ ያድርጉ። ቀጣይ (ቀጣይ) እና በሚቀጥለው ደረጃ ቀስቅሴን እንመርጣለን - የማስጀመሪያ ድግግሞሽ ወይም ተግባራችንን የሚጀምር ክስተት (ለምሳሌ ኮምፒተርን ማብራት)

ከመረጡ በየቀኑ (በየቀኑ), ከዚያም በሚቀጥለው ደረጃ ላይ የተወሰነ ጊዜ መምረጥ ያስፈልግዎታል, ቅደም ተከተል እና ደረጃ መጀመሪያ ቀን (በየ 2 ኛ ቀን, 5 ኛ ቀን, ወዘተ.):

ቀጣዩ እርምጃ አንድ እርምጃ መምረጥ ነው- ፕሮግራሙን ያሂዱ (ፕሮግራም ጀምር):

እና በመጨረሻም ፣ በጣም አስደሳችው ነገር በትክክል መከፈት ያለበት ነገር ነው-

በውስጡ ፕሮግራም ወይም ስክሪፕት (ፕሮግራም/ስክሪፕት) ወደ ማይክሮሶፍት ኤክሴል የሚወስደውን መንገድ እንደ ፕሮግራም ማስገባት አለቦት ማለትም በቀጥታ ወደ ኤክሴል executable። የተለያዩ የዊንዶውስ እና የቢሮ ስሪቶች ባላቸው የተለያዩ ኮምፒውተሮች ላይ ይህ ፋይል በተለያዩ አቃፊዎች ውስጥ ሊሆን ይችላል፣ ስለዚህ አካባቢውን የሚያውቁባቸው ጥቂት መንገዶች እዚህ አሉ።

• ኤክሴልን በዴስክቶፕ ወይም በተግባር አሞሌው ላይ ለማስጀመር አዶውን (አቋራጭ) ላይ በቀኝ ጠቅ ያድርጉ እና ትዕዛዙን ይምረጡ እቃዎች (ንብረቶች), እና ከዚያ በሚከፈተው መስኮት ውስጥ መንገዱን ከመስመሩ ይቅዱ ዓላማ:

                       

• ማንኛውንም የ Excel የስራ ደብተር ይክፈቱ እና ይክፈቱ የስራ አስተዳዳሪ (የስራ አስተዳዳሪ) ግፊት መቆጣጠሪያ+alt+ከ እና በመስመሩ ላይ በቀኝ ጠቅ በማድረግ Microsoft Excel, ትዕዛዝ ይምረጡ እቃዎች (ንብረቶች). በሚከፈተው መስኮት ውስጥ መንገዱን መቅዳት ይችላሉ ፣ በእሱ ላይ የኋላ መጨናነቅ እና EXCEL.EXE ማከልን አለመዘንጋት:

               

• ኤክሴልን ክፈት፣ Visual Basic Editor በቁልፍ ሰሌዳ አቋራጭ ይክፈቱ alt+F11, ክፍት ፓነል ወዲያዉኑ ጥምረት እ.ኤ.አ. መቆጣጠሪያ+G, ትዕዛዙን ወደ ውስጥ ያስገቡ:

  ? መተግበሪያ.መንገድ

  … እና ጠቅ ያድርጉ አስገባ

  

  የተገኘውን መንገድ ይቅዱ ፣ በእሱ ላይ የኋላ መጨናነቅ እና EXCEL.EXE ማከልን አለመዘንጋት.

በውስጡ ነጋሪ እሴቶችን ያክሉ (አማራጭ) (ግቤቶችን ጨምር (አማራጭ)) ልንከፍተው በፈለግነው ማክሮ የመጽሐፉን ሙሉ መንገድ ማስገባት አለብህ።

ሁሉም ነገር ሲገባ, ከዚያ ጠቅ ያድርጉ ቀጣይ እና ከዛ ጪረሰ (ጨርስ). ተግባሩ ወደ አጠቃላይ ዝርዝር ውስጥ መጨመር አለበት-

በቀኝ በኩል ያሉትን አዝራሮች በመጠቀም የተፈጠረውን ተግባር ለማስተዳደር ምቹ ነው. እዚህ ወዲያውኑ በማሄድ ስራውን መሞከር ይችላሉ (ሩጫ)የተወሰነውን ጊዜ ሳይጠብቅ. አንድን ተግባር ለጊዜው ማቦዘን ትችላለህ (አሰናክል)እንደ የእርስዎ የእረፍት ጊዜ ለተወሰነ ጊዜ መሮጥ እንዲያቆም። ደህና, ሁልጊዜም መለኪያዎችን (ቀኖች, ጊዜ, የፋይል ስም) በአዝራሩ በኩል መቀየር ይችላሉ እቃዎች (ንብረቶች).

ፋይል ለመክፈት ማክሮ ያክሉ

አሁን በፋይሉ ክፍት ክስተት ላይ የምንፈልገውን የማክሮ ማስጀመሪያ መጽሐፋችንን ላይ ማንጠልጠል ይቀራል። ይህንን ለማድረግ መጽሐፉን ይክፈቱ እና የቁልፍ ሰሌዳ አቋራጩን በመጠቀም ወደ Visual Basic Editor ይሂዱ alt+F11 ወይም አዝራሮች ቪዥዋል ቤዚክ ትር ገንቢ (ገንቢ). በላይኛው ግራ ጥግ ላይ በሚከፈተው መስኮት ውስጥ ፋይላችንን በዛፉ ላይ ማግኘት እና ሞጁሉን ለመክፈት ሁለቴ ጠቅ ማድረግ ያስፈልግዎታል ይህ መጽሐፍ (ይህ የሥራ መጽሐፍ).

ይህንን መስኮት በ Visual Basic Editor ውስጥ ካላዩት በምናሌው በኩል መክፈት ይችላሉ። እይታ - ፕሮጀክት አሳሽ.

በሚከፈተው ሞጁል መስኮት ውስጥ ከላይ ካሉት ተቆልቋይ ዝርዝሮች ውስጥ በመምረጥ መጽሐፍ ክፍት የክስተት ተቆጣጣሪ ያክሉ የስራ መጽሐፍ и ክፈት፣ በቅደም ተከተል

የሂደቱ አብነት በስክሪኑ ላይ መታየት አለበት። የስራ መጽሐፍ_ክፍትበመስመሮቹ መካከል የት የግል ንዑስ и ጨርስ ንዑስ እና ይህ የኤክሴል የስራ ደብተር ሲከፈት ፣ መርሐግብር አውጪው እንደ መርሃግብሩ ሲከፍት እነዚያን የ VBA ትዕዛዞችን ማስገባት ያስፈልግዎታል። ከመጠን በላይ ለመዝጋት አንዳንድ ጠቃሚ አማራጮች እዚህ አሉ

• ይህ የሥራ መጽሐፍ። ሁሉንም አድስ - ሁሉንም የውጭ የውሂብ መጠይቆችን፣ የኃይል መጠይቅ መጠይቆችን እና PivotTablesን ያድሳል። በጣም ሁለገብ አማራጭ. በነባሪነት ወደ ውጫዊ ውሂብ ግንኙነቶችን መፍቀድ እና አገናኞችን በ በኩል ማዘመንን አይርሱ ፋይል - አማራጮች - የመተማመን ማዕከል - የመተማመን ማዕከል አማራጮች - ውጫዊ ይዘትያለበለዚያ መፅሃፉን ስትከፍት መደበኛ ማስጠንቀቂያ ይመጣል እና ኤክሴል ምንም ሳያዘምን ቡራኬን በመጫን ቡራኬን ይጠብቃል። ይዘትን አንቃ (ይዘትን አንቃ):

  

• ActiveWorkbook.ግንኙነቶች("ግንኙነት_ስም"). አድስ - በ Connection_Name ግንኙነት ላይ ያለውን ውሂብ ማዘመን።
• ሉሆች("ሉህ5") .PivotTables("PivotTable1«).PivotCache.አድስ - የተሰየመ ነጠላ ምሰሶ ሰንጠረዥ ማዘመን የምሰሶ ጠረጴዛ1 በሉሁ ላይ ሉህ 5.
• መተግበሪያ. አስላ - ሁሉንም ክፍት የ Excel የሥራ መጽሐፍት እንደገና ማስላት።
• አፕሊኬሽን።ሙሉ መልሶ ግንባታን አስላ - ሁሉንም ቀመሮች በግዳጅ እንደገና ማስላት እና በሁሉም ክፍት የስራ ደብተሮች ውስጥ ባሉ ሴሎች መካከል ያሉ ሁሉንም ጥገኞች እንደገና መገንባት (ሁሉንም ቀመሮች እንደገና ከማስገባት ጋር እኩል ነው)።
• የስራ ሉሆች("ሪፖርት").Printout - የህትመት ወረቀት ፎቶዎች.
• ወደ MyMacro ይደውሉ - የተሰየመ ማክሮ ያሂዱ ማይ ማክሮ.
• ይህ የሥራ መጽሐፍ. አስቀምጥ - የአሁኑን መጽሐፍ ያስቀምጡ
  
• ThisWorkbooks.SaveAs "D:ArchiveReport" እና ተካ(አሁን፣ ":", "-") እና ".xlsx" - መጽሐፉን ወደ አቃፊ ያስቀምጡ መ: ማህደር ከስሙ ስር ፎቶዎች ከስሙ ጋር ተያይዞ ቀን እና ሰዓት.

ማክሮው እንዲተገበር ከፈለጉ ፋይሉ በ 5:00 am ላይ በፕሮግራሙ ሲከፈት ብቻ እና ተጠቃሚው በስራ ቀን ውስጥ የስራ ደብተሩን በሚከፍትበት ጊዜ ሁሉ አይደለም ፣ ከዚያ የጊዜ ማረጋገጫ ማከል ጠቃሚ ነው ፣ ለምሳሌ-

ቅርጸት ከሆነ (አሁን፣ "hh:mm") = "05:00" ከዚያ ይህ የሥራ መጽሐፍ። ሁሉንም አድስ  

ይኼው ነው. የስራ ደብተርዎን በማክሮ የነቃ ቅርጸት (xlsm ወይም xlsb) ማስቀመጥዎን አይርሱ እና ኤክሴልን በደህና ዘግተው ኮምፒውተሮዎን በመተው ወደ ቤትዎ መሄድ ይችላሉ። በተወሰነ ቅጽበት (ፒሲው ተቆልፎ ቢሆንም) መርሐግብር አስኪያጁ ኤክሴልን ያስነሳና የተገለጸውን ፋይል በውስጡ ይከፍታል፣ እና የእኛ ማክሮ ፕሮግራም የተደረገባቸውን ተግባራት ያከናውናል። እና ከባድ ዘገባዎ በራስ-ሰር እንደገና ሲሰላ በአልጋ ላይ ያዝናናዎታል - ውበት! 🙂

• ማክሮዎች ምንድን ናቸው ፣ እንዴት እንደሚጠቀሙባቸው ፣ ቪዥዋል ቤዚክ ኮድ በ Excel ውስጥ የት እንደሚያስገባ
• ለኤክሴል የራስዎን ማክሮ ማከያ እንዴት መፍጠር እንደሚችሉ
• በኤክሴል ውስጥ ለማክሮዎችዎ የግል ማክሮ ደብተርን እንደ ቤተ-መጽሐፍት እንዴት እንደሚጠቀሙበት