Note: The other languages of the website are Google-translated. Back to English

كيفية تكرار أو تكرار ماكرو كل 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. ستكون أداة موفرة للوقت ولا يمكن الاستغناء عنها في عملك. انظر أدناه التجريبي:

انقر للحصول على نسخة تجريبية مجانية من Office Tab!

تبويب Office لبرنامج Excel


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (29)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واحد عظيم! من فضلك كيف أوقف الحلقة بعد أن أقول 10 مرات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يمكنك الدخول إلى نافذة الكود لكسر الكود (انقر على زر فاصل) يدويًا لإيقاف الحلقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد! لم أفهم كيفية كسر كود الماكرو لتعيين وقت تنفيذ الحلقة مرة أخرى ، هل يمكنك أن تصف بمزيد من التفصيل كيفية القيام بذلك؟ أين يتم تسجيل قيمة وقت دورة التشغيل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جاك،
غلطتي.
تمت إضافة رمز VBA جديد يمكنه إيقاف الماكرو في نهاية المقالة. يرجى المحاولة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا ، يعمل علاجًا. أنا مبتدئ في البرمجة ، لذا يرجى أن تسامحني إذا كان هذا بسيطًا ...

كيف يمكنني إظهار مربع الحوار مرة أخرى؟ لقد علقت في حلقة 1 دقيقة. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
فقط قم بكسر الكود وتشغيله مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا!
هذا رائع ، ولكن هل هناك طريقة لجعله يتكرر مرة أخرى إلى الصف الأول من جدول البيانات قبل البدء مرة أخرى؟


شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قل لي المزيد عن كيفية ايقاف تنفيذ الماكرو وتغيير الفاصل الزمني للدورة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قل لي المزيد عن كيفية ايقاف تنفيذ الماكرو وتغيير الفاصل الزمني للدورة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بيانات جيدة ،
تمت إضافة رمز VBA جديد يمكنه إيقاف الماكرو في نهاية المقالة. يرجى المحاولة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرجاء تقديم رمز لـ:


"كيفية تكرار أو تكرار ماكرو كل X ثانية في Excel"


شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
الرجاء تغيير السطر "Application.OnTime Now () + TimeValue (" 0: "+ xMin +": 0 ") ،" ReRunMacro "" إلى
Application.OnTime Now () + TimeValue ("0:" + "0:" + xMin) ، "ReRunMacro"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا
لدي استعلام ، تعمل أكوادك بشكل جيد تمامًا وتقوم بنسخ البيانات في أعمدتي التالية كل 5 دقائق ولكن بعد 3 ساعات تمتلئ جميع أعمدتي كما هو الحال في 2003 Excel. هل يمكنك مساعدتي برمز للتحقق مما إذا لم يكن هناك عمود آخر شاغرًا ، ثم قم بإنشاء ورقة جديدة ونسخ بيانات اللصق في تلك الورقة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، فقط ساعدني في "أدخل رمزك هنا". أنا مبتدئ وأحتاج إلى مساعدة بشأن ما يجب ملؤه وكيف! شكرا ، أنا لا أفهمها بشكل صحيح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بادما ،
تشير "أدخل الرمز الخاص بك هنا" إلى رمز VBA الذي تستخدمه لتحقيق بعض العمليات في Excel. لنفترض أنك بحاجة إلى تطبيق VBA لنقل صف إلى ورقة أخرى بناءً على قيمة محددة ، وتريد تشغيل الكود كل X دقيقة تلقائيًا ، فأنت بحاجة إلى وضع رمز VBA هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد أخطأت وقمت بتعيين الوقت على 0.5 والآن لا يمكنني تغييره ، أي أفكار حول كيفية تغيير إعداد xMin؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفيد.

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



Sub ExitReRunMacro ()

إعداد "كوتولس" ، "ماكرو" ، "دقيقة" ، "خروج"

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا! لكنني أخشى أن marco doenst حتى تشغيل ، عندما أضغط على F5 يرسل Excel لي رسالة الخطأ هذه: خطأ وقت التشغيل 13 'اكتب Missmatch ".



لقد حذفته ، ولكن إذا حاولت إنشائه مرة أخرى ، تظهر رسالة الخطأ نفسها ، فإن تخميني الوحيد هو أنني قمت بتعيين الوقت على 0.5 وفي الكود ، لذلك لا توجد فكرة عن كيفية تعديله الآن.



شكرا مرة أخرى لمساعدتكم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، مفيد جدًا ، ولكن أعتقد أنني أخطأت وقمت بتعيين الوقت على 0.5 والآن لا يمكنني تغييره ، أي أفكار حول كيفية تغيير إعداد xMin؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية إنشاء ماكرو في Excel مع حلقة مستمرة ومفتاح مضغوط سيكون فقط pg لأعلى و pg لأسفل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جاك ، أدخلت عن طريق الخطأ 0.5 دقيقة ويظهر خطأ ،
أعني أن xMin تؤخذ على أنها 0.5 دقيقة.
كيف تتخلص منه وتغيره لدقيقة واحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا LIMCA ،
نأسف للإزعاج. لا يدعم الكود إدخال الكسور العشرية.

يرجى إيقاف التكرار عن طريق تشغيل رمز VBA أدناه ، ثم إعادة تشغيل رمز التكرار وإدخال 1 في مربع الحوار المنبثق.

Sub ExitReRunMacro ()

إعداد "كوتولس" ، "ماكرو" ، "دقيقة" ، "خروج"

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

Sub ReRunMacro ()
خافت x دقيقة كسلسلة
تحديث فرعي ()
'
"تحديث ماكرو
'

'
الأوراق ("الورقة 1"). حدد
ActiveWorkbook.RefreshAll
الأوراق ("Pivot-Dash"). حدد
نهاية الفرعية


xMin = GetSetting (AppName: = "Kutools" ، المقطع: = "Macro" ، المفتاح: = "min" ، الافتراضي: = "")
إذا كان xMin = "خروج" ثم
SaveSetting "Kutools" ، "Macro" ، "min" ، "False"
خروج الفرعية
إنهاء حالة
إذا (xMin = "") أو (xMin = "خطأ") ثم
xMin = Application.InputBox (موجه: = "الرجاء إدخال الفاصل الزمني الذي تحتاجه لتكرار الماكرو" ، العنوان: = "Kutools for Excel" ، النوع: = 2)
SaveSetting "Kutools" ، "Macro" ، "min" ، xMin
إنهاء حالة
إذا (xMin <> "") و (xMin <> "خطأ") ثم
Application.OnTime Now () + TimeValue ("0:" + xMin + ": 0")، "ReRunMacro"
آخر
خروج الفرعية
إنهاء حالة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد ، تحتاج إلى إزالة السطر الفرعي وسطر End Sub من التعليمات البرمجية الخاصة بك. تحديث فرعي ()
'
"تحديث ماكرو
'

'
الأوراق ("الورقة 1"). حدد
ActiveWorkbook.RefreshAll
الأوراق ("Pivot-Dash"). حدد
End SubChange إلى: "
"تحديث ماكرو
'

'
الأوراق ("الورقة 1"). حدد
ActiveWorkbook.RefreshAll
الأوراق ("Pivot-Dash"). حدد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
có cách nào dừng macro khi tắt file và macro tự khởi động lại khi mở lại file không add
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في Excel 365 ، أتلقى خطأ وقت التشغيل '13' اكتب عدم تطابق في السطر التالي: Application.OnTime Now () + TimeValue ("0:" + "0:" + xMin) ، "ReRunMacro"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا رون فرانكلين ، لقد جربته في Excel 365 ، لكن لا يمكن تكرار هذه المشكلة. 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تجميع خطأ:

نهاية متوقعة Sub

Mam przekopiowane dokładnie jak jest napisane wyzej i nie moge odnaleźć problemu
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا باويد ،
هل يمكنك تقديم لقطة شاشة للخطأ والصف المميز في كود vba؟ لا يمكن تكرار المشكلة في حالتي. أعتذر على الإزعاج.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL