abueyas2 قام بنشر ديسمبر 9, 2012 مشاركة قام بنشر ديسمبر 9, 2012 السلام عليكم اخواني لدي طلب كالتالي لدينا ملف به ورقة خاصة بالاسئلة مثلا 50 سؤال في العمود B في الورقة 2 اريد عرضها بشكل عشوائي عشوائي دون ترتيب عند الضغط على رز ابداء و و يقف العرض عند الضغط عليه مرة لتم عرض سؤال واحد فقط اي اخر سؤال تم الوقوف عليه كما هو موضح بالمثال ارجو منكم مساعدتي بالكود الخاص بالزر as01.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 9, 2012 مشاركة قام بنشر ديسمبر 9, 2012 هذا ملف كنت قد عملته سابقا و قمت بتعديله ليتناسب مع طلبك سؤال جواب.rar رابط هذا التعليق شارك More sharing options...
abueyas2 قام بنشر ديسمبر 9, 2012 الكاتب مشاركة قام بنشر ديسمبر 9, 2012 (معدل) الف شكر اخي الكريم لكن طلبي مختلف اريد الاسئلة تعرض بدون اجابات و بشكل مستمر عند الضغط على الزر و عند التوقف يظهر فقط سؤال ولا يتم الاختيار من منسدلة لانه في هذه الحالة راح يتم اختيار سؤال بعينة تم تعديل ديسمبر 9, 2012 بواسطه abueyas2 رابط هذا التعليق شارك More sharing options...
abueyas2 قام بنشر ديسمبر 12, 2012 الكاتب مشاركة قام بنشر ديسمبر 12, 2012 السؤال يكون عشوائي رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر ديسمبر 12, 2012 مشاركة قام بنشر ديسمبر 12, 2012 السلام عليكم بعد إذن الغالي / أبوحنين تفضل أخي/أبوأياس المرفق as01.rar رابط هذا التعليق شارك More sharing options...
abueyas2 قام بنشر ديسمبر 12, 2012 الكاتب مشاركة قام بنشر ديسمبر 12, 2012 الف شكر وبارك الله فيكم جميعا هذا هو المطلوب استاذ طارق معليش استفسار هل يمكن ان يكون العرض مستمر ويتقف عند الضغط رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 11, 2013 مشاركة قام بنشر يناير 11, 2013 السلام عليكم الاساتذة الكرام لي طلب بسيط في هذا الكود الرائع والذي احتاج للتعديل فيه المطلوب موجود بالملف المرفق سؤال عشوائي.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يناير 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 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 11, 2013 مشاركة قام بنشر يناير 11, 2013 السلام عليكم الاستاذ القدير الحبيب / ابوحنين يا لسرعة ردك وحلاوته ... احسنت استاذي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يناير 11, 2013 مشاركة قام بنشر يناير 11, 2013 CTRL + Q to Enable/Disable GoPhoto.it العفو اخي رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 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 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 12, 2013 مشاركة قام بنشر يناير 12, 2013 السلام عليكم الاستاذ القدير الغائب الحاضر / الخالدي لا اطال الله غيبتك عنا وحشتنا كتيييييييييييييييير اوي ايها الاستاذ القدير لعله خيرا ان شاء الله غيابك عنا الكود رائع ويعمل بكفاءة ... كعادتك دائما جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر يناير 12, 2013 مشاركة قام بنشر يناير 12, 2013 وعليكم السلام ورحمة الله الاخ الفاضل العزيز حمادة عمر شكرا لمرورك وكلماتك الطيبة الغياب بسبب الظروف ومشاغل الحياة الا من بعض المشاركات النادرة بدافع الحنين للاكسل والمنتدى البركة فيك وفي اخوة المنتدى تمنياتي لك بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان