يعطيكم العافيه
بعطيكم شرح لطلبي علي ارقام بسيطه وبعدها احتاج اطبق نفس الشرح علي ارقام اكثر ولكن بالمعادلات

عندي الارقام التاليه
1
2
3

احتاج معرفة جميع الاحتمالات التي ممكن يجتمع فيها الارقام الثلاثه مع بعض
لتوضيح الحل

1
2
3
12
123
13
23

مع العلم 12 هي نفسها 21 يعني طريقة الترتيب ماتهم اهم شي ان الارقام تتكرر مع بعض بجميع الاحتمالات

طيب انا احتاج تطبيق الطريقه علي الارقم
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
وشكرا لكم

السلام عليكم
قم بوضع القيم 1 و 2 و 3 في النطاق من الخلية A1 حتى الخلية A3 ثم جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim b
    b = Convert2DArrayTo1DArray(Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value)
    Call GrayCode(b)
End Sub

Function Convert2DArrayTo1DArray(arr As Variant)
    Dim b(), i As Long
    ReDim b(1 To UBound(arr, 1))
    For i = 1 To UBound(arr, 1)
        b(i) = arr(i, 1)
    Next i
    Convert2DArrayTo1DArray = b
End Function

Function GrayCode(Items) As String
    Dim v() As Integer, f As Boolean, b As Boolean, subList As String, newSub As String, i As Integer, k As Integer, lower As Integer, upper As Integer
    k = 0: b = True
    lower = LBound(Items): upper = UBound(Items)
    ReDim v(lower To upper)
    Do Until f
        newSub = ""
        For i = lower To upper
            If v(i) = 1 Then
                If newSub = "" Then newSub = "," & Items(i) Else newSub = newSub & Items(i)
            End If
        Next i
        subList = subList & vbCrLf & newSub
        If newSub <> "" Then
            k = k + 1
            Cells(k, 3) = Mid(newSub, 2)
        End If
        If b Then
            v(lower) = 1 - v(lower)
        Else
            i = lower
            Do While v(i) <> 1
                i = i + 1
            Loop
            If i = upper Then f = True Else i = i + 1: v(i) = 1 - v(i)
        End If
        b = Not b
    Loop
    GrayCode = subList
End Function

هل جربت الكود في المشاركه السابقه للاستاذ الكبير ابو البراء
طبق الكود ثم أبدأ بالتعليق على الجزئيه التى تريدها

نعم جربته لكن هذا حل لطلبي الاول
طلبي الاخير الكود يقبل الي 15 رقم احتاجه الي 50 رقم فضلا لا امرا





[quote = hassona229] Have you tried the code in the previous post of the great professor Abu Al-Baraa?

بعد إذن الاستاذ الكبير ابو البراء
عدل
Dim k as integer
إلى
Dim k as long

أخي العزيز حسونة
الفكرة ليست في تغيير نوع المتغير فقط إلى Long
عدد الاحتمالات لـ 50 رقم سيكون ضخم للغاية ولن يتمكن الإكسيل من احتواء النتائج ..
إذا أردت معرفة عدد الاحتمالات اتبع القاعدة التالية: 2^ن - 1
لذا لو كانت الأرقام 20 رقم فهذا يعني 2^ 20 -1 = 1048575 وهو تقريباً عدد صفوف الإكسيل جميعها

سؤال للأخ السائل
لما تحتاج لمثل هذه العمليات الحسابية؟ لربما لو شاركتنا الفكرة ، ربما تجد أفكار اخرى من الاخوة الأعضاء بالمنتدى.

الفكره لان عندي قيم معينه كلما اجتمعت قيم مع بعض تكون اقوي
مثلا
123
افوي من
12
و
123456
اقوي من
12345
لكي اعرف اقوي القسم مجتمعه فارتبها لاري افضلها
هذه الفكرة هل لها حل غير فكرتي في التكرار