طلب حلقة تكرارية

[العمري2]

السلام عليكم ورحمة الله وبركاته

مساء الخير لجميع اعضاء منتدى اوفيسنا الرائعين 

لوتكرمتوا اخوتي اريد الحلقة التكرارية للكود التالي

Sub awad()

    

    "((Application.Wait (Now + TimeValue("0:00:10

    Sheets(3).Select

    "((Application.Wait (Now + TimeValue("0:00:15

    Sheets(4).Select

    "((Application.Wait (Now + TimeValue("0:00:20

    Sheets(5).Select

    "((Application.Wait (Now + TimeValue("0:00:10

    Sheets(3).Select

    "((Application.Wait (Now + TimeValue("0:00:15

    Sheets(4).Select

    "((Application.Wait (Now + TimeValue("0:00:20

    Sheets(5).Select

وهذا الكود للانتقال بين اوراق العمل (الشيتات) تلقائيا انا اريدها تكون مستمرة وتتكرر 

وشكرا لكم جميعا

تم تعديل أبريل 20, 2015 بواسطه العمري2

[سليم حاصبيا]

اليك هذا النموذج 

لعله المطلوب

تحديد حسب الوقت.rar

[ياسر خليل أبو البراء]

الأخ الحبيب سليم بارك الله فيك

بعد إذنك جرب الكود التالي ..

Sub LoopThroughSheets()
    Dim rNumber As Long, I As Long, X As Long
    'عدد مرات التكرار
    rNumber = 2
    'بداية الثواني
    X = 10
        For I = 1 To rNumber
            'حلقة تكرارية لأوراق العمل
            For II = 3 To 5
                Application.Wait (Now + TimeValue("0:00:" & X))
                X = X + 5
                Sheets(II).Select
            Next II
            X = 10
        Next
    Sheet1.Activate
End Sub

[سليم حاصبيا]

رائع اخي ياسر 

لكن هناك مشكلة عند الاخ السائل انه لا توجد فترة زمنية محددة بين تحديد احدى الصفحات و التي تليها

فانا فكرت في نفسي   (سيبه يحدد الامربنفسه يا راجل)

[ياسر خليل أبو البراء]

أخي الحبيب سليم

إزاي أسيبه مقدرش !!

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

تقبل تحياتي

[سليم حاصبيا]

أخي ياسر لو لاحظت ماذا يوجد في مشاركة السائل الاولى(رقم 1) هنا فترات زمنية مختلفة 10 ثواني 5 ثواني  الخ....

[ياسر خليل أبو البراء]

أخي سليم أيوا .. بس الفترات ما بين الثلاثة ورقات عمل 10  -  15  - 20 على أوراق العمل ورقة العمل 3 - 4 - 5 وبيتكرر مرة تانية !! يعني عدد مرات التكرار مرتين .. والفترات ثابتة ..

[العمري2]

اشكر اخوي ياسر واخوي سليم على تشريفهم موضوعي وعلى مساعدتهم لي 

اخوي ياسر الكود اللي ارسلته هو الحل الذي كنت ابحث عنه الف شكر لك اخي بس صارت عندي مشكلة انه في خطأ في الصيغة وبالتحديد في 

Sub LoopThroughSheets()

Dim rNumber As Long, I As Long, X As Long
'عدد مرات التكرار
rNumber = 2
'بداية الثواني
X = 10
For I = 1 To rNumber
'حلقة تكرارية لأوراق العمل
For II = 3 To 5
Application.Wait (Now + TimeValue("0:00:" & X))
X = X + 5
Sheets(II).Select
Next II
X = 10
Next
Sheet1.Activate هنا الخطأ لما حذفت هذا السطر ضبط معي الكود
End Sub

يعطيك العافية اخي ياسر اتمنى لك التوفيق اخي 

كما لا انسى ان اشكر اخي سليم على مساعدته لي واتمنى لك التوفيق 

[ياسر خليل أبو البراء]

أخي الفاضل العمري

الحمد لله أن تم المطلوب على خير

...

بالنسبة للخطأ في السطر المذكور يرجع إلى عدم وجود ورقة عمل اسمها البرمجي Sheet1 قد تكون باسم ورقة1 أو Feuil1 ..حسب الملف لديك ..

عموماً هذا السطر لن يؤثر في شيء لأنه يحدد فقط ورقة العمل بعد الانتهاء من تنفيذ الكود

والشكر موصول لصاحب القبول الأخ الكبير سليم حاصبيا الذي أثرى الموضوع بشكل رائع

 

تقبلوا تحياتي

[العمري2]

الله يسعدك اخي ياسر ويوفقك في الدنيا والاخرة  وكذلك اخي سليم صراحة اخجلتوني بتواضعكم  وبحسن اخلاقكم ما اقدر اوفيكم حقكم لكن لكم دعوات بظهر الغيب