الرجاء المساعده فى توليد ارقام عشوائيه

[احمدعطيه]

السلام عليكم ورحمة الله وبركاته

الاخوه الكرام ارجو من سيادتكم المساعده فى توليد ارقام عشوائيه فى الاكسل

علما بأنى اريد لكل طالب كود خاص به "لا يمكن تخمينه"

حيث اننى اعرض هذه النتائج على الانترنت (وهذا الرقم العشوائي هو مفتاح الادخال)

ولدي صوره توضح ذالك

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

[يوسف عطا]

جرب هذا الكود

ولا تنسى تغيير المدى للمدى الذى تريده

Sub Random()

Dim myRange As Range

Set myRange = Worksheets("ورقة1").Range("A1:A100")

myRange.Formula = "=int(RAND()*101)"

myRange.Font.Bold = True

End Sub

ضع الكود فى موديول وأربطه بزر

تتغير الأرقام العشوائية كل مرة تضغط الزر

تم تعديل أكتوبر 3, 2012 بواسطه يوسف عطا

[خالد الشاعر]

استاذ يوسف

تسلم ايدك

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

[احمدعطيه]

جزاكم الله خيرا على الرد

ولكن لا استطيع فعل ذالك إذ اننى لست مبرمجا!

فهل (لو تكرمت مشكورا وقمت بصنع ذالك ولك جزيل الشكر والتقدير)

تم تعديل أكتوبر 9, 2012 بواسطه دغيدى

[يوسف عطا]

قم بإرفاق الملف الذى تريد وضع الكود فيه

[أبو حنــــين]

اخي بعد اذن الاستاذ يوسف

هذا مثال على توليد ارقام عشوائية

رقم عشوائي.rar

[منياوى]

الف الف شكر

[أبو حنــــين]

العفو أخي

[احمدعطيه]

اخي بعد اذن الاستاذ يوسف هذا مثال على توليد ارقام عشوائية

جزاكم الله خيرا وزادكم الله علما ورفع الله قدركم

[أبو حنــــين]

مشكور اخي الكريم : / الاستاذ أحمد عطيه على مروركم الطيب

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

[منير لبيب]

وهناك طريقة اخرى لتوليد ارقام عشوائية لمجموعة ثم تثبيت الارقام فى عمود اخر

Book1.rar