كيف يمكنك العثور على جميع المجاميع الممكنة لعددين من قائمة في Excel؟
إذا كنت بحاجة إلى إيجاد جميع المجاميع الممكنة لعددين من قائمة، أو سرد جميع التركيبات الممكنة من قائمتين في Excel، فلن تجد وظائف مدمجة تقوم بذلك مباشرةً. يقدم هذا الدليل حلاً عمليًا باستخدام كود VBA لحساب المجاميع، وأداة «قائمة جميع التركيبات» في Kutools for Excel للتعامل مع التركيبات بكفاءة وسهولة.
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.
نصيحة: في سلسلة الكودRange("C1").Resize(xDic.Count, 1)، يمكنك تغيير C1 إلى أي خلية أخرى ترغب في وضع النتائج فيها.
Find all possible combinations of two lists with List All Combinations
إذا أردت سرد جميع التركيبات الممكنة من قائمتين، كما هو موضح في لقطة الشاشة أدناه، فإن أداةList All Combinations منKutools for Excel يمكنها مساعدتك.
1. انقرKutools > Insert > List All Combinations.
2. في مربع الحوارList All Combinations، انقر على زر التحديد لاختيار القائمة الأولى التي تريد دمجها.
3. انقرAdd لإضافة القائمة إلى قسمCombinations list.
4. كرّر الخطوتين 2 و3 لإضافة القائمة الثانية إلى Combinations list.
5. بعد ذلك، انقرOk لتحديد خلية لوضع نتيجة التركيبات.
6. انقرOK. وقد تم سرد جميع التركيبات الممكنة في الخلايا.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: إيجاد جميع التركيبات الممكنة من قائمتين باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل