القنوع قام بنشر يونيو 14, 2011 قام بنشر يونيو 14, 2011 السلام عليكم هذا برنامج بسيط من إعدادي يقوم بإجراء القرعة على مجموعة من الأشخاص (من قائمة) ثم يقوم بإظهار ثلاثة فائزين عشوائياً كتبت هذا البرنامج بمناسبة اقتراب عملية القرعة لإجراء عمرة رمضان عمرة مباركة للجميع وتليها حجة إن شاء الله فالمرجو من الأساتذة الكرام إن كان هناك خلل أو عيب في هذا البريمج أن يصوبوه وجزاكم الله خيرا رقم عشوائي عملية القرعة.rar
عبدالله المجرب قام بنشر يونيو 14, 2011 قام بنشر يونيو 14, 2011 اخي الفاضل alouma عمل رائع وجهد ممتاز تشكر عليه ابواحمد
محمد يحياوي قام بنشر يونيو 14, 2011 قام بنشر يونيو 14, 2011 احسنت و الله اخي alouma عمل رائع بارك الله فيك
ابوالزوز قام بنشر يونيو 15, 2011 قام بنشر يونيو 15, 2011 عمل رائع أخي 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 تقبل تحياتي ..
القنوع قام بنشر يونيو 15, 2011 الكاتب قام بنشر يونيو 15, 2011 (معدل) بارك الله في أساتذتنا جميعا على مرورهم وتشجيعهم جزاكم الله خيراً أما بالنسبة للكود الذي اقترح علي الأستاذ abuzzouz والمتمثل في الكود التالي: Application.ScreenUpdating = False فقد قمت بالتجربة ولكن لاحظت أن عمله أن يخفي عملية تحديث الخلايا بحيث يعطي النتيجة مباشرة إلا أني تركت ظهور تلك التحديثات في الخلايا حتى يتيقن مشاهد القرعة بأن هناك حركة على الأسماء المشاركة فالهدف من ترك محتويات الخلايا تتغير هو مصداقية عملية القرعة مشكورين جميعاً وبارك الله فيكم كما أني قد قمت بتعديل طفيف على البريمج وذلك بإضافة رسالة msgbox تظهر الأرقام الفائزة رقم عشوائي مع صندوق حوار.rar تم تعديل يونيو 15, 2011 بواسطه alouma
ياسر الحافظ قام بنشر يونيو 16, 2011 قام بنشر يونيو 16, 2011 الاخ الكريم جزاك الله الخير وفقك الله ياسر الحافظ
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.