أسمى قام بنشر سبتمبر 3, 2003 مشاركة قام بنشر سبتمبر 3, 2003 الاخوة الكرام ....... السلام عليكم ورحمة الله وبركاته.... اود ان استفسر عن كيفية اختيار 5 ارقام بطريقة عشوائية من خلال 2000 رقم دون اي تدخل من قبل المستخدم ارجوا من حضرتكم الرد على استفساري في اسرع وقت ممكن :HELP: :HELP: :HELP: رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 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 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 4, 2003 مشاركة قام بنشر سبتمبر 4, 2003 حل آخر بدون كود باستخدام الدالتين rnd vlookup Random.zip رابط هذا التعليق شارك More sharing options...
أسمى قام بنشر سبتمبر 7, 2003 الكاتب مشاركة قام بنشر سبتمبر 7, 2003 السلام عليكم ....... اتقدم اليكم الاخ امير عاطف والى الاخ محمد الطاهر بالشكر على مساعدتي وجزاكم الله خيرا :b1: رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر فبراير 20, 2005 مشاركة قام بنشر فبراير 20, 2005 السلام عليكم ... هذا تعديل لكود الأخ أمير عاطف بحيث لاتتكرر النتائج أكثر من مرة: RondonChoise.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها