هل بالإمكان إضافة ارقام عشوائية عن طريقة ماكرو ؟

[zoom10]

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

كل ما أريده في الملف المرفق هو دالة تعطيني ارقام عشوائية من خلية إلى خلية بضغطة واحدة وتكون هذه الأرقام غير مكررة ولكم الشكر والتقدير .

aaa.rar

[رجب جاويش]

تفضل أخى

Sub ragab()

For i = 13 To 34

1 x = Int((99 - 10 + 1) * Rnd + 10)

Cells(i, 5) = x

y = Application.WorksheetFunction.CountIf(Range("E13:E34"), Cells(i, 5))

If y > 1 Then GoTo 1

Next

End Sub

aaa1.rar

[جمال عبد السميع]

بعد إذن أستاذى ومعلمى الرائع ( رجب جاويش ) إللى وحشنى العمل فى مشاركاتة

هذا عمل بسيط لعله ينفع وإن كان ليس لى باع طويل فى الأكواد

RandomNumbers.rar

[منياوى]

رائع والف الف شكر

[zoom10]

بارك الله فيكم ياأخ رجب ويا أخ محمود وكثر الله من أمثالكم بصراحة انتم رائعيين

هناك مشكلة وهي لا أريد عند إضافة اشخاص ان أذهب للماكروا وأقوم بتعديل وزيادة الخلايا أريدها تلقائيا بحيث أذا أضفت شخص ينضاف له رقم .

في مثال الاخ محمود كان الحل ممكنا ولكن اريد الدالة في زر ماكروا إذا أمكن .

الله لا يحرمكم الاجر

[جمال عبد السميع]

اأخى المعادلة لاتحتاج لزر أمر ولا حاجة إكتبها مرة واحدة فقط وأسحبها ثم عن طريق ( f9 ) سيتم تغيير الأرقام تلقائيا

[zoom10]

نسخت المعادلة في مستندي وطلع لي في الخلية

#NAME?

ياترى ماالمشكلة . علما بأن الأوفس عندي اصدار 2007

[الـعيدروس]

بعد اذن اخي رجب جاويش

هذا تعديل على الكود

انسخ الكود في حدث الورقة

بحيث عند اضافة اسم في عمود D دايركت يقوم بعمل رقم عشوائي للاسم وتحديث للسابق

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then

For Each Rn In Range("D13:D" & Cells(Rows.Count, "D").End(xlUp).Row)

1 x = Int((99 - 10 + 1) * Rnd + 10): Rn.Offset(0, 1) = x

y = Application.WorksheetFunction.CountIf(Rn.Offset(0, 1), Cells(Rn.Row, 5))

If y > 1 Then GoTo 1

Next

End If

End Sub

[رجب جاويش]

أخى العزيز / عباد

لمساتك دائما سحرية على الأكواد

بارك الله فيك

[zoom10]

بارك الله فيك أخي الكريم عباد . ولكن هناك ارقام مكررة وهذا بالنسبة لي مشكلة كبيرة لأنها ارقام سرية ولا تقبل التكرار فهل هناك تعديل في الكود ليمنع التكرار ؟؟؟

[zoom10]

=========up=============