كيف يمكن تكرار ماكرو أو تشغيله تلقائيًا كل X دقيقة في Excel؟
أثناء عملك مع Microsoft Excel، قد تحتاج إلى إنشاء ماكروات لأتمتة مهام معيّنة. على سبيل المثال، قد ترغب في إنشاء ماكرو ينسخ نطاقًا من البيانات تلقائيًا إلى موقع جديد. وبما أن هذه البيانات تتغيّر باستمرار، فستحتاج إلى تشغيل الماكرو تلقائيًا كل 5 دقائق لضمان مزامنة النطاقين دون الحاجة إلى التدخل اليدوي. كيف يمكنك تحقيق ذلك؟ تُظهر لك الطريقة الموضحة في هذه المقالة الحل الأمثل.
تكرار ماكرو أو تشغيله بشكل متكرر كل X دقيقة في Excel
تكرار ماكرو أو تشغيله بشكل متكرر كل X دقيقة في Excel
يمكن لرمز VBA التالي مساعدتك في تشغيل ماكرو تلقائيًا كل X دقيقة في Excel. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيحAlt + F11 في نفس الوقت لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module. بعد ذلك، انسخ والصق كود VBA أدناه في نافذةCode. راجع لقطة الشاشة:
كود VBA: تكرار ماكرو أو تشغيله بشكل متكرر كل X دقيقة في Excel
Sub ReRunMacro()
Dim xMin As String
'Insert your code here
xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
If xMin = "Exit" Then
SaveSetting "Kutools", "Macro", "min", "False"
Exit Sub
End If
If (xMin = "") Or (xMin = "False") Then
xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
SaveSetting "Kutools", "Macro", "min", xMin
End If
If (xMin <> "") And (xMin <> "False") Then
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Else
Exit Sub
End If
End Subملاحظة: في الكود، يُرجى استبدال هذا السطر‘Insert your code here’ بالكود الذي تريد تشغيله كل X دقيقة.
3. اضغط على مفتاحF5 لتشغيل الكود. في مربع الحوار الظاهرKutools لـ Excel، أدخل فترة التكرار التي ترغب في استخدامها لتكرار الماكرو، ثم انقر على زرOK. راجع لقطة الشاشة:
من الآن فصاعدًا، سيُشغَّل الماكرو المحدد تلقائيًا كل 5 دقائق في ملفك.
ملاحظة: إذا كنت بحاجة إلى إيقاف تنفيذ الماكرو أو تغيير فترة التكرار، يُرجى نسخ كود VBA التالي ولصقه في نفس نافذةModule، ثم اضغط على مفتاحF5 لتشغيل الكود. بعد ذلك، سيتم إيقاف الماكرو. ويُرجى إعادة تشغيل الكود أعلاه لتحديد فترة تكرار جديدة.
كود VBA: إيقاف تنفيذ الماكرو
Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن تكرار الصفوف تلقائيًا عند التمرير في ورقة العمل في Excel؟
- كيف يمكن تكرار آخر إجراء أو الإجراء السابق في Excel؟
- كيف يمكن طباعة الصفوف بشكل متكرر في أسفل كل صفحة مطبوعة في Excel؟
- كيف يمكن تكرار قيمة خلية في Excel حتى تظهر أو يتم الوصول إلى قيمة جديدة؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل