القنوع قام بنشر يونيو 14, 2011 مشاركة قام بنشر يونيو 14, 2011 السلام عليكم هذا برنامج بسيط من إعدادي يقوم بإجراء القرعة على مجموعة من الأشخاص (من قائمة) ثم يقوم بإظهار ثلاثة فائزين عشوائياً كتبت هذا البرنامج بمناسبة اقتراب عملية القرعة لإجراء عمرة رمضان عمرة مباركة للجميع وتليها حجة إن شاء الله فالمرجو من الأساتذة الكرام إن كان هناك خلل أو عيب في هذا البريمج أن يصوبوه وجزاكم الله خيرا رقم عشوائي عملية القرعة.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 14, 2011 مشاركة قام بنشر يونيو 14, 2011 اخي الفاضل alouma عمل رائع وجهد ممتاز تشكر عليه ابواحمد رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يونيو 14, 2011 مشاركة قام بنشر يونيو 14, 2011 جزاك الله خيرا أخى الكريم رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 14, 2011 مشاركة قام بنشر يونيو 14, 2011 احسنت و الله اخي alouma عمل رائع بارك الله فيك رابط هذا التعليق شارك More sharing options...
ابوالزوز قام بنشر يونيو 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 تقبل تحياتي .. رابط هذا التعليق شارك More sharing options...
القنوع قام بنشر يونيو 15, 2011 الكاتب مشاركة قام بنشر يونيو 15, 2011 (معدل) بارك الله في أساتذتنا جميعا على مرورهم وتشجيعهم جزاكم الله خيراً أما بالنسبة للكود الذي اقترح علي الأستاذ abuzzouz والمتمثل في الكود التالي: Application.ScreenUpdating = False فقد قمت بالتجربة ولكن لاحظت أن عمله أن يخفي عملية تحديث الخلايا بحيث يعطي النتيجة مباشرة إلا أني تركت ظهور تلك التحديثات في الخلايا حتى يتيقن مشاهد القرعة بأن هناك حركة على الأسماء المشاركة فالهدف من ترك محتويات الخلايا تتغير هو مصداقية عملية القرعة مشكورين جميعاً وبارك الله فيكم كما أني قد قمت بتعديل طفيف على البريمج وذلك بإضافة رسالة msgbox تظهر الأرقام الفائزة رقم عشوائي مع صندوق حوار.rar تم تعديل يونيو 15, 2011 بواسطه alouma رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 16, 2011 مشاركة قام بنشر يونيو 16, 2011 الاخ الكريم جزاك الله الخير وفقك الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان