مساعدة لتوزيع بيانات أعمدة لجميع الأحتمالات

[zizo747]

السلام عليكم 

أرجو مساعدتي في الملف المرفق حيث أريد توزيع بيانات الأعمدة الثلاثة الأولى على بعضها بعدد الإحتمالات الممكنة كما ذكر في الملف

 

ولكم جزيل الشكر

معتز

Book2.xlsx

تم تعديل يناير 28, 2018 بواسطه zizo747

[محمد طاهر عرفه]

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

Sub GetCombinations()
    Dim i As Long, j As Long, k As Long
    
    Dim mymatrix(3, 3) As String
    

    
    mymatrix(1, 1) = "A"
    mymatrix(1, 2) = "B"
    mymatrix(1, 3) = "C"
    mymatrix(2, 1) = "1"
    mymatrix(2, 2) = "2"
    mymatrix(2, 3) = "3"
    mymatrix(3, 1) = "ZZ"
    mymatrix(3, 2) = "XX"
    mymatrix(3, 3) = "VV"
    



    For i = 1 To 3
        For j = 1 To 3
          For k = 1 To 3
                ActiveCell.Value = mymatrix(1, i) & mymatrix(2, j) & mymatrix(3, k)
                ActiveCell.Offset(1, 0).Select
          Next k
                
        Next j
    Next i
    
    
End Sub

 

 

[محمد طاهر عرفه]

و لتسجيل القيم فى خلايا مستقلة

نستبدل الجزء الاخير من الكود بالتالي

    For i = 1 To 3
        For j = 1 To 3
          For k = 1 To 3
                ActiveCell.Value = mymatrix(1, i)
                ActiveCell.Offset(0, 1).Value = mymatrix(2, j)
                ActiveCell.Offset(0, 2).Value = mymatrix(3, k)
                ActiveCell.Offset(1, 0).Activate
          Next k
                
        Next j
    Next i

 

مرفق الملف به الكودان

Conmbinations.xlsm

[بن علية حاجي]

هذا حل آخر بالمعادلات أرجو أن يفي الغرض المطلوب...

توزيع بالمعادلات.xlsx

[zizo747]

ألف شكر لكم أساتذتي على المساعدة الرائعة في الماكرو و المعادلات 

زادكم الله علما 

معتز