كيفية تكرار أو تكرار ماكرو كل 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 Magic باستخدام Kutools AI

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

عزز قدرات Excel لديك باستخدام الأدوات التي تعمل بالذكاء الاصطناعي. حمل التطبيق الآن وتجربة الكفاءة كما لم يحدث من قبل!

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

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