اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

عمل رائع أخي 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

تم تعديل بواسطه alouma
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information