طلب مساعدة - فرز وعدم تكرار الارقام

[محمود الحربي]

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

 

اتمني مساعدتي في توزيع ارقام على 3 مجموعات بدون تكرار

 

وشاكر لكم وغفر الله لكم ولوالدينكم

ahmed.rar

[ياسر خليل أبو البراء]

وعليكم السلام

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

جرب الكود التالي لعله يفي بالغرض

Sub GenerateUniqueRandom()
    Dim b() As Boolean, e As Range, k&, x&
    
    Const r As Long = 14
    ReDim b(1 To r)
    
    For Each e In Range("A2:C5")
        Do
            x = Int(Rnd() * r) + 1
            If b(x) = False Then
                e.Value = x
                b(x) = True
                Exit Do
            End If
            
            k = k + 1: If k > 1000 Then Exit Sub
        Loop
    Next e
End Sub

 

[محمود الحربي]

شكرا عزيز ياسر على اهتمامك لموضوعي وسوالي

 

نعم سيتم اختيار 3 ارقام من القائمة بشكل يدوي

 

ومن ثم يتم توزيع باقي الأرقام بشكل عشوائي تحتها

 

 

[محمود الحربي]

هذا الملف كامل ممكن توصل لك الفكره الصحيحة

 

مشكلتي تكرار الأرقام فقط هذا اخر ما توصلت اليه

المصنف1.rar

[ياسر خليل أبو البراء]

الموضوع مكرر

يرجى التأكيد لحذف هذا الموضوع والإبقاء على موضوع واحد فقط

تقبل تحياتي