كيفية إيجاد جميع المجاميع الممكنة لرقمين في قائمة باستخدام Excel؟

إذا كنت بحاجة إلى إيجاد جميع المجاميع الممكنة لرقمين في قائمة أو سرد جميع التوليفات الممكنة لقائمتين في Excel، فلا توجد وظائف مضمنة لتحقيق ذلك مباشرة. يقدم هذا الدليل حلاً باستخدام كود VBA لحساب المجاميع وأداة List All Combinations في Kutools لـ Excel للتعامل مع التوليفات بكفاءة.

العثور على جميع المجاميع الممكنة لرقمين في قائمة باستخدام كود VBA

العثور على جميع التوليفات الممكنة لقائمتين باستخدام أداة List All Combinations

العثور على جميع المجاميع الممكنة لرقمين في قائمة باستخدام كود VBA

إذا كنت تريد العثور على جميع المجاميع الممكنة لرقمين في قائمة، يمكنك تطبيق كود VBA أدناه.

1. اضغط على مفتاحي Alt + F11 لعرض نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود أدناه في الوحدة.

VBA: سرد جميع المجاميع الممكنة لرقمين في قائمة

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

3. انقر فوق أدوات > مراجع، وفي النافذة المنبثقة، قم بتحديد خانة اختيار Microsoft Scripting Runtime.

4. انقر موافق لإغلاق النافذة، ثم اضغط F5 لتشغيل الكود. ستظهر نافذة منبثقة، تطلب منك تحديد قائمة لحساب المجاميع الممكنة.

5. انقر موافق، وبعد ذلك سيتم عرض جميع المجاميع الممكنة لرقمين من القائمة في العمود C.

نصيحة: في سلسلة الكود Range("C1").Resize(xDic.Count, 1)، يمكنك تغيير C1 إلى أي خلية أخرى حيث تريد وضع النتائج.

العثور على جميع التوليفات الممكنة لقائمتين باستخدام أداة List All Combinations

إذا كنت تريد سرد جميع التوليفات الممكنة لقائمتين، كما هو موضح في لقطة الشاشة أدناه، فإن سرد الكل التوليفات أداة Kutools لـ Excel يمكن أن تكون مفيدة لك.

1. انقر Kutools > إدراج > سرد جميع التوليفات.

2. في سرد جميع التوليفات النافذة، انقر فوق زر الاختيار لاختيار القائمة الأولى التي تريد دمجها.

3. انقر إضافة لإضافة القائمة إلى قائمة التوليفات القسم.

4. كرر الخطوتين 2 و3 لإضافة القائمة الثانية إلى قائمة التوليفات.

5. بعد ذلك، انقر موافق لتحديد خلية لوضع نتيجة التوليفة.

6. انقر موافق. تم سرد جميع التوليفات الممكنة في الخلايا.

عرض: العثور على جميع التوليفات الممكنة لقائمتين باستخدام Kutools لـ Excel