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

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

قام بنشر

السلام عليكم

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

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

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

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

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

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

رقم عشوائي عملية القرعة.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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information