كيفية تكرار أو تكرار ماكرو كل X دقيقة في إكسيل؟

أثناء العمل مع Microsoft Excel ، قد تحتاج إلى إنشاء وحدات ماكرو لتحقيق بعض العمليات. على سبيل المثال ، تريد إنشاء ماكرو لنسخ نطاق من البيانات تلقائيًا إلى مكان جديد. نظرًا لأنه سيتم تغيير البيانات بشكل متكرر ، فأنت بحاجة إلى تشغيل هذا الماكرو تلقائيًا كل 5 دقائق دون تشغيله يدويًا من أجل مزامنة هذين النطاقين من البيانات. كيف تحقق ذلك؟ الطريقة في هذه المقالة يمكن أن تساعدك.

كرر أو قم بتكرار ماكرو كل X دقيقة في Excel

كرر أو قم بتكرار ماكرو كل X دقيقة في Excel

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على تكرار ماكرو كل X دقيقة في Excel. الرجاء القيام بما يلي.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق رمز VBA أدناه في ملف رمز نافذة او شباك. انظر لقطة الشاشة:

رمز فبا: كرر أو قم بتكرار ماكرو كل X دقيقة في إكسيل

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

ملاحظة: في الكود ، يرجى استبدال هذا السطر أدخل الرمز الخاص بك هنا باستخدام الكود ، ستعمل كل X دقيقة.

3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار ، يرجى إدخال الفاصل الزمني الذي ستكرر فيه الماكرو بناءً على ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

من الآن فصاعدًا ، سيتم تشغيل الماكرو المحدد بشكل متكرر كل 5 دقائق في المصنف الخاص بك.

ملاحظة: إذا كنت بحاجة إلى إيقاف تنفيذ الماكرو وتغيير الفاصل الزمني للدورة ، فيرجى نسخ رمز VBA أدناه إلى نفسه وحدة نافذة واضغط على F5 مفتاح لتشغيل الكود. ثم سيتم إيقاف الماكرو ، يرجى إعادة تشغيل الكود أعلاه لتحديد فترة زمنية جديدة.

كود فبا: وقف تنفيذ الماكرو

Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub

مقالات ذات صلة:

• كيفية تكرار الصفوف عند تمرير ورقة العمل في Excel؟
• كيفية تكرار الإجراء الأخير أو السابق في إكسيل؟
• كيف تطبع الصفوف بشكل متكرر أسفل كل صفحة مطبوعة في إكسيل؟
• كيفية تكرار قيمة الخلية حتى يتم رؤية قيمة جديدة أو الوصول إليها في Excel؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...