كيفية تكرار أو تكرار ماكرو كل 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:
يجلب Office Tab الواجهة المبوبة كما تظهر في متصفحات الويب مثل Google Chrome والإصدارات الجديدة من Internet Explorer و Firefox إلى Microsoft Excel. ستكون أداة موفرة للوقت ولا يمكن الاستغناء عنها في عملك. انظر أدناه التجريبي:
مقالات ذات صلة:
- كيفية تكرار الصفوف عند تمرير ورقة العمل في 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!





























