انتقل إلى المحتوى الرئيسي

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

لنفترض أن هذه قائمة بالأرقام ، فهل يمكنك الآن العثور على جميع المبالغ الممكنة لرقمين في هذه القائمة كما هو موضح أدناه؟ في Excel ، لا توجد وظيفة مضمنة يمكنها حل هذه الوظيفة. الآن أقدم لك رمز VBA للتعامل معه.
doc جميع المجاميع الممكنة المكونة من رقمين 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsgood idea3


Find all possible sums of two numbers in a list with VBA code

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

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

2. انقر Insert > Module، نسخ ولصق الكود أدناه إلى الوحدة.

VBA: List all possible sums of two numbers in a list

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

doc جميع المجاميع الممكنة المكونة من رقمين 2

3. انقر Tools > References، في مربع الحوار المنبثق ، تحقق Microsoft Scripting Runtime مربع.

doc جميع المجاميع الممكنة المكونة من رقمين 3 دوك السهم الأيمن doc جميع المجاميع الممكنة المكونة من رقمين 4

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

5. انقر OK، ثم يتم سرد جميع المجاميع المحتملة لرقمين في القائمة في العمود C.
doc جميع المجاميع الممكنة المكونة من رقمين 6

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


Find all possible combinations of two lists with List All Combinations

إذا كنت ترغب في العثور على جميع المجموعات الممكنة من قائمتين أو سردها كما هو موضح أدناه ، فإن ملف List All Combinations فائدة Kutools for Excel يمكن أن تفعل لك صالح.
doc جميع المجاميع الممكنة المكونة من رقمين 7

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

1. انقر Kutools > Insert > List All Combinations.
doc جميع المجاميع الممكنة المكونة من رقمين 8

2. في ال List All Combinations مربع الحوار ، انقر فوق الزر تحديد لتحديد القائمة الأولى التي ستقوم بدمجها.
doc جميع المجاميع الممكنة المكونة من رقمين 9

3. انقر Add لإضافة القائمة إلى Combinations list والقسم الخاص به.
doc جميع المجاميع الممكنة المكونة من رقمين 10

4. كرر الخطوتين 2 و 3 لإضافة القائمة الثانية إلى ملف Combinations list.
doc جميع المجاميع الممكنة المكونة من رقمين 11

5. ثم اضغط Ok لتحديد خلية لوضع نتيجة المجموعة.
doc جميع المجاميع الممكنة المكونة من رقمين 12

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

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations