برنامج القرعة

[القنوع]

السلام عليكم

هذا برنامج بسيط من إعدادي يقوم بإجراء القرعة على مجموعة من الأشخاص (من قائمة)

ثم يقوم بإظهار ثلاثة فائزين عشوائياً

كتبت هذا البرنامج بمناسبة اقتراب عملية القرعة لإجراء عمرة رمضان

عمرة مباركة للجميع وتليها حجة إن شاء الله

فالمرجو من الأساتذة الكرام إن كان هناك خلل أو عيب في هذا البريمج أن يصوبوه

وجزاكم الله خيرا

رقم عشوائي عملية القرعة.rar

[عبدالله المجرب]

اخي الفاضل alouma

عمل رائع وجهد ممتاز تشكر عليه

ابواحمد

[عبد الفتاح كيرة]

جزاك الله خيرا أخى الكريم

[محمد يحياوي]

احسنت و الله اخي alouma عمل رائع بارك الله فيك

[ابوالزوز]

عمل رائع أخي alouma جزاك الله خيراً وننتظر المزيد

إلا أني أقترح عليك إضافة كود Application.ScreenUpdating إلى الماكرو

Sub Macro2()

Dim i As Integer


Application.ScreenUpdating = False


   For i = 1 To 300

    Range("e3").Select

    ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1"


     Range("e10").Select

    ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1"


     Range("e13").Select

    ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1"


   Next i

Application.ScreenUpdating = True


End Sub

تقبل تحياتي ..

[القنوع]

بارك الله في أساتذتنا جميعا على مرورهم وتشجيعهم

جزاكم الله خيراً

أما بالنسبة للكود الذي اقترح علي الأستاذ abuzzouz

والمتمثل في الكود التالي:

Application.ScreenUpdating = False

فقد قمت بالتجربة ولكن لاحظت أن عمله أن يخفي عملية تحديث الخلايا بحيث يعطي النتيجة مباشرة

إلا أني تركت ظهور تلك التحديثات في الخلايا حتى يتيقن مشاهد القرعة بأن هناك حركة على الأسماء المشاركة

فالهدف من ترك محتويات الخلايا تتغير هو مصداقية عملية القرعة

مشكورين جميعاً وبارك الله فيكم

كما أني قد قمت بتعديل طفيف على البريمج وذلك بإضافة رسالة msgbox تظهر الأرقام الفائزة

رقم عشوائي مع صندوق حوار.rar

تم تعديل يونيو 15, 2011 بواسطه alouma

[ياسر الحافظ]

الاخ الكريم

جزاك الله الخير

وفقك الله

ياسر الحافظ