أسمى قام بنشر سبتمبر 3, 2003 قام بنشر سبتمبر 3, 2003 الاخوة الكرام ....... السلام عليكم ورحمة الله وبركاته.... اود ان استفسر عن كيفية اختيار 5 ارقام بطريقة عشوائية من خلال 2000 رقم دون اي تدخل من قبل المستخدم ارجوا من حضرتكم الرد على استفساري في اسرع وقت ممكن :HELP: :HELP: :HELP:
امير عاطف قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 اهلاً أسمى : ضعي هذا الكود عند حدث زر الأمر الذي تريدين عند الضغط عليه يتم الاختيار عشوائياً من بين الارقام Dim MyRondomValue As Long Dim a As Long Dim b As Long Let a = Me.Range("b20").Value Let b = Me.Range("b2").Value MyRondomValue = Int((a * Rnd) + b) MsgBox "الرقم هو" & " " & MyRondomValue, vbOKOnly, "فريق أوفيسنا" مع ملاحظة تغيير نطاق الخلايا التي تريدين الانتقاء من بينها في الكود ... ولتغيير نطاق الخلايا التي تريدي الاختيار من بينها عشوائياً ما عليك الاً تغيير عنوان الخلية بالكود مرفق مثال للترى النتيجه بنفسك Rondom_Choise.zip
محمد طاهر عرفه قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 حل آخر بدون كود باستخدام الدالتين rnd vlookup Random.zip
أسمى قام بنشر سبتمبر 7, 2003 الكاتب قام بنشر سبتمبر 7, 2003 السلام عليكم ....... اتقدم اليكم الاخ امير عاطف والى الاخ محمد الطاهر بالشكر على مساعدتي وجزاكم الله خيرا :b1:
محمد حجازي قام بنشر فبراير 20, 2005 قام بنشر فبراير 20, 2005 السلام عليكم ... هذا تعديل لكود الأخ أمير عاطف بحيث لاتتكرر النتائج أكثر من مرة: RondonChoise.zip
الردود الموصى بها