توزيع الارقام بصورة عشوائية

[فوزى فوزى]

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

الأستاذ سليم والأستاذ وجيه والأستاذ حسين مامون لهم منا كل تقدير واحترام

فضلا وليس امر عمل كود توزيع الارقامبصورة عشوائية بناء على الخلية  C2  وتضع توزيع الأرقام في عمود المسلسل 

ونتمنى لكم دوام الصحة والعافية والتوفيق

توزيع الارقام.xlsx

[حسين مامون]

اليك هذا الماكرو جربه لعله ما تريد

Sub test3()
Dim rng
Dim c, r, x
Application.ScreenUpdating = False
Set rng = Range("c2")
r = 5
x = 0
For c = 5 To 1000
If rng = 0 Or rng = "" Then Range("c2") = "": Exit Sub

Range("a" & r) = 1 + x
x = Range("a" & r) + 1 - 1
r = r + 1
rng = rng - 1
Next
Application.ScreenUpdating = True

End Sub

 

[فوزى فوزى]

استاذ حسين قمت بتجربة الكود هو يقوم بمسح الخلية C2 ويقوم بتوزيع الارقام ولكن ليس هذا هو المطلوب 

انما المطلوب عدم مسح قيمة الخلية C2 وتوليد ارقام عشوائية كل ما ضغط على زر التوزيع يغير ارقام التسلسل

 

[سليم حاصبيا]

حرب هذا الماكرو

Sub RAND_NUM()
Dim i%, k%, M%, Y
Dim OBJ As Object
Range("A5", Range("A4").End(4)).ClearContents
    Set OBJ = CreateObject("System.Collections.Sortedlist")
        For i = 1 To [c2]
            Randomize
            Y = Rnd()
            OBJ.Add Y, i
        Next
    M = 5
    For k = 0 To OBJ.Count - 1
        Cells(M, 1) = OBJ.IndexOfValue(k + 1) + 1
      M = M + 1
    Next
End Sub

الملف مرفق

Rand_numbers.xlsm

[فوزى فوزى]

من روائع القدر أن يضع الله في دربك من يُنيرون لك الطريق، فهؤلاء وحدهم من يستحقون الشكر والامتنان نعم هو كده تمام شكرا  استاذ سليم  شكرا استاذ حسين