كيف تجد كل المبالغ الممكنة لرقمين في قائمة في إكسيل؟
لنفترض أن هذه قائمة بالأرقام ، فهل يمكنك الآن العثور على جميع المبالغ الممكنة لرقمين في هذه القائمة كما هو موضح أدناه؟ في Excel ، لا توجد وظيفة مضمنة يمكنها حل هذه الوظيفة. الآن أقدم لك رمز VBA للتعامل معه.
Find all possible sums of two numbers in a list with VBA code
Find all possible combinations of two lists with List All Combinations
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
3. انقر Tools > References، في مربع الحوار المنبثق ، تحقق Microsoft Scripting Runtime مربع.
4. انقر OK لإغلاق مربع الحوار ، ثم اضغط على F5 لتشغيل الشفرة ، ينبثق مربع حوار لتذكيرك بتحديد قائمة للعثور على المبالغ الممكنة.
5. انقر OK، ثم يتم سرد جميع المجاميع المحتملة لرقمين في القائمة في العمود C.
Tip: في سلسلة الكود ، Range ("C1"). تغيير الحجم (xDic.Count ، 1) ، يمكنك تغيير C1 إلى خلية أخرى كما تريد لوضع النتيجة.
Find all possible combinations of two lists with List All Combinations
إذا كنت ترغب في العثور على جميع المجموعات الممكنة من قائمتين أو سردها كما هو موضح أدناه ، فإن ملف List All Combinations فائدة Kutools for Excel يمكن أن تفعل لك صالح.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
1. انقر Kutools > Insert > List All Combinations.
2. في ال List All Combinations مربع الحوار ، انقر فوق الزر تحديد لتحديد القائمة الأولى التي ستقوم بدمجها.
3. انقر Add لإضافة القائمة إلى Combinations list والقسم الخاص به.
4. كرر الخطوتين 2 و 3 لإضافة القائمة الثانية إلى ملف Combinations list.
5. ثم اضغط Ok لتحديد خلية لوضع نتيجة المجموعة.
6. انقر OK. تم سرد جميع المجموعات الممكنة في الخلايا.