abueyas2 قام بنشر ديسمبر 9, 2012 قام بنشر ديسمبر 9, 2012 السلام عليكم اخواني لدي طلب كالتالي لدينا ملف به ورقة خاصة بالاسئلة مثلا 50 سؤال في العمود B في الورقة 2 اريد عرضها بشكل عشوائي عشوائي دون ترتيب عند الضغط على رز ابداء و و يقف العرض عند الضغط عليه مرة لتم عرض سؤال واحد فقط اي اخر سؤال تم الوقوف عليه كما هو موضح بالمثال ارجو منكم مساعدتي بالكود الخاص بالزر as01.rar
أبو حنــــين قام بنشر ديسمبر 9, 2012 قام بنشر ديسمبر 9, 2012 هذا ملف كنت قد عملته سابقا و قمت بتعديله ليتناسب مع طلبك سؤال جواب.rar
abueyas2 قام بنشر ديسمبر 9, 2012 الكاتب قام بنشر ديسمبر 9, 2012 (معدل) الف شكر اخي الكريم لكن طلبي مختلف اريد الاسئلة تعرض بدون اجابات و بشكل مستمر عند الضغط على الزر و عند التوقف يظهر فقط سؤال ولا يتم الاختيار من منسدلة لانه في هذه الحالة راح يتم اختيار سؤال بعينة تم تعديل ديسمبر 9, 2012 بواسطه abueyas2
طارق محمود قام بنشر ديسمبر 12, 2012 قام بنشر ديسمبر 12, 2012 السلام عليكم بعد إذن الغالي / أبوحنين تفضل أخي/أبوأياس المرفق as01.rar
abueyas2 قام بنشر ديسمبر 12, 2012 الكاتب قام بنشر ديسمبر 12, 2012 الف شكر وبارك الله فيكم جميعا هذا هو المطلوب استاذ طارق معليش استفسار هل يمكن ان يكون العرض مستمر ويتقف عند الضغط
حمادة عمر قام بنشر يناير 11, 2013 قام بنشر يناير 11, 2013 السلام عليكم الاساتذة الكرام لي طلب بسيط في هذا الكود الرائع والذي احتاج للتعديل فيه المطلوب موجود بالملف المرفق سؤال عشوائي.rar
أبو حنــــين قام بنشر يناير 11, 2013 قام بنشر يناير 11, 2013 السلام عليكم اخي الحبيب :/ حمادة عمر غير الكود السابق بهذا الكود Sub qst() Randomize i = Int(Rnd(1) * 50) + 1 [b5] = Range("Quest")(i) [j5] = Sheet1.Cells(i + 1, 3) [k5] = Sheet1.Cells(i + 1, 4) [l5] = Sheet1.Cells(i + 1, 5) [m5] = Sheet1.Cells(i + 1, 6) End Sub
حمادة عمر قام بنشر يناير 11, 2013 قام بنشر يناير 11, 2013 السلام عليكم الاستاذ القدير الحبيب / ابوحنين يا لسرعة ردك وحلاوته ... احسنت استاذي جزاك الله خيرا
أبو حنــــين قام بنشر يناير 11, 2013 قام بنشر يناير 11, 2013 CTRL + Q to Enable/Disable GoPhoto.it العفو اخي
الخالدي قام بنشر يناير 12, 2013 قام بنشر يناير 12, 2013 معليش استفسار هل يمكن ان يكون العرض مستمر ويتقف عند الضغط جرب الكود التالي Sub AL_KHALEDI() Static N N = IIf(N, 0, 1) If N = 0 Then Exit Sub Do While N = 1 Randomize Range("B5") = Range("Quest")(Application.RandBetween(1, 50)) w = 1.4 'محدد سرعة العرض temp = Timer Do While Timer < temp + w DoEvents Loop Loop End Sub عرض عشوائي.rar
حمادة عمر قام بنشر يناير 12, 2013 قام بنشر يناير 12, 2013 السلام عليكم الاستاذ القدير الغائب الحاضر / الخالدي لا اطال الله غيبتك عنا وحشتنا كتيييييييييييييييير اوي ايها الاستاذ القدير لعله خيرا ان شاء الله غيابك عنا الكود رائع ويعمل بكفاءة ... كعادتك دائما جزاك الله خيرا
الخالدي قام بنشر يناير 12, 2013 قام بنشر يناير 12, 2013 وعليكم السلام ورحمة الله الاخ الفاضل العزيز حمادة عمر شكرا لمرورك وكلماتك الطيبة الغياب بسبب الظروف ومشاغل الحياة الا من بعض المشاركات النادرة بدافع الحنين للاكسل والمنتدى البركة فيك وفي اخوة المنتدى تمنياتي لك بالتوفيق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.