كيف يمكن لي اختيار رقم عشوائي من مجموعة ارقام باستخدام زر ؟؟

[هاني مصطفي]

كيف يمكن لي اختيار رقم عشوائي من مجموعة ارقام باستخدام زر ؟؟

 

السلام عليكم

اساتذتي الافاضل

 

احتاج الي مساعدتكم في الملف المرفق

حيث يوجد بالعمود A مجموعة من الارقام اريد عند الضغط علي الزر الموجود بالملف في الشيت 1

ان يتم اختيار رقم عشوائيا من مجموعة الارقام المذكورة في العمود A  ويتم وضع الرقم العشوائي الذي تم اختياره في الخليه b1 مثلا

 

ارجو ان اكون قد وصلت الطلب بالشكل الصحيح

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

 

 

اختيار رقم عشوائي1.rar

تم تعديل أكتوبر 11, 2013 بواسطه هاني مصطفي

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

بارك الله فيك

علي حسب فهمي للطلب ... شاهد المرفق

باستخدام هذا الكود التالي ..

Private Sub CommandButton1_Click()
Randomize
i = Int(Rnd(1) * 30) + 1
[b1] = Range("sama")(i)
End Sub

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

 

 

 

اختيار رقم عشوائي11.rar

[هاني مصطفي]

الله ينور عليك

يا استااااااذي الكبير القدير  / حمادة عمر

هذا هو المطلوب تماما

لك مني افضل تحيه اجلال وتقدير وعرفان بالجميل

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

[هاني مصطفي]

ولكن استاذي هل من الممكن عند اختيار  الرقم وظهوره في الخليه b1  ان يتم تنشيط

الرقم في العمود  a  والوقوف علي هذا الرقم ... اي تحديد الخليه المختاره

[حمادة عمر]

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

اخي الكريم علي كلمات الطيبة

ولتنفيذ طلبك الثاني

استبدل الكود السابق ... بالكود التالي .. وان شاء الله سينفذ المطلوب ...

Private Sub CommandButton1_Click()
Dim ii As Integer
Randomize
i = Int(Rnd(1) * 30) + 1
[b1] = Range("sama")(i)
For ii = 1 To 30
If [b1].Value = Cells(ii, 1) Then Cells(ii, 1).Select
Next
End Sub

[هاني مصطفي]

بارك الله فيك

استاذنا ومعلمنا القدير / حمادة عمر

الف الف مليون شكر علي سرعة الاستجابه وسرعة الحل الرااائع

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