/ / مباريات كرة القدم المحتملة في Excel VBA

ممكن مباريات كرة القدم في اكسل VBA

أدناه سننظر في برنامج في Excel VBA يعرض معاينة قبل الطباعة لجميع مباريات كرة القدم المحتملة من قائمة الفرق.

موقف:

ممكن مباريات كرة القدم في اكسل VBA

1. أولاً ، نعلن عن كائن نطاق واحد وأربعة متغيرات. نحن نطلق على نطاق الكائن RN. متغير سلسلة واحد نسميه matchname ، وثلاثة متغيرات Integer ندعو counter و i و j.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

2. نقوم بتهيئة rng مع أسماء الفريق. نحن نستخدم CurrentRegion لأننا لا نعرف الحدود الدقيقة للنطاق مقدمًا (نريد أن يعمل هذا البرنامج لـ 3 فرق ولكن أيضًا لـ 12 فريقًا.) نقوم بتهيئة العداد بقيمة 0.

Set rng = Range("A1").CurrentRegion
counter = 0

3. نكتب جميع مباريات كرة القدم الممكنة للعمود C. أولاً ، نحن نفرغ العمود C.

Worksheets(1).Columns(3) = ""

4. نبدأ حلقة مزدوجة.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. نكتب matchname إلى المتغير matchname.

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

على سبيل المثال ، بالنسبة إلى i = 1 و j = 2 ، يكتب Excel VBA اسم المباراة Kickers vs Shooters. بالنسبة إلى i = 1 و j = 3 ، يكتب Excel VBA Matchname Kickers vs Little Giants ، إلخ.

6. نكتب اسم المطابقة على العمود C.

Cells(counter + 1, 3).Value = matchname

7. يحتفظ العداد بتتبع عدد تطابق الأسماء المكتوبة على العمود C. يتدفق العداد VBA Excel بمقدار 1 في كل مرة يكتب فيها اسم التطابق إلى العمود C. لتحقيق ذلك ، أضف سطر التعليمة البرمجية التالية:

counter = counter + 1

8. لا تنس أن تغلق الحلقتين.

    Next j
Next i

9. نعرض معاينة قبل الطباعة لجميع مباريات كرة القدم الممكنة.

ActiveSheet.Columns(3).PrintPreview

10. اختبار البرنامج.

جزء من النتيجة:

ممكن مباريات كرة القدم النتيجة

ملاحظة: تتم توسيط العمود C يدويًا للحصول على هذه النتيجة.

اقرأ أيضًا: