كيفية إيجاد جميع المجاميع الممكنة لرقمين في قائمة باستخدام 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 - قم بتعزيز 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد