/ / אפשרי כדורגל גפרורים ב - VBA של

התאמות כדורגל אפשריות ב - VBA של

להלן נבחן תוכנית ב Excel VBA זה מראה תצוגה מקדימה של כל התאמות כדורגל אפשרי מרשימת הקבוצות.

מצב:

התאמות כדורגל אפשריות ב - VBA של

1. ראשית, אנו מכריזים על אובייקט טווח אחד וארבעה משתנים. אנו קוראים ל- rng של אובייקט Range. משתנה מחרוזת אחד שאנו מכנים matchname, ושלושה משתנים שלמים אנו קוראים counter, i ו- j.

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

2. אנחנו לאתחל rng עם שמות הצוות. אנו משתמשים ב- CurrentRegion מכיוון שאיננו יודעים בדיוק את גבולות הטווח מראש (אנו רוצים שהתוכנית תעבוד עבור 3 קבוצות, אך גם עבור 12 צוותים).

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

3. אנחנו כותבים את כל משחקי הכדורגל האפשריים לעמוד ג '. ראשית, אנחנו מרוקנים עמודה ג.

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

4. אנחנו מתחילים לולאה כפולה.

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

5. אנו כותבים matchname למשתנה משתנה.

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

לדוגמה, עבור i = 1 ו- j = 2, Excel VBA כותב את Matchname Kickers vs Shooters. עבור i = 1 ו- j = 3, Excel VBA כותב את Matchname Kickers לעומת Little Giants, וכו '

6. אנחנו כותבים את המטנאם לעמוד ג.

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

7. מונה עוקב אחר מספר matchnames שנכתב על עמודה C. Excel VBA תוספות מונה 1 בכל פעם שהוא כותב matchname כדי טור ג 'כדי להשיג זאת, להוסיף את השורה הבאה קוד:

counter = counter + 1

8. אל תשכח לסגור את שתי לולאות.

    Next j
Next i

9. אנו מציגים תצוגה מקדימה של כל משחקי הכדורגל האפשריים.

ActiveSheet.Columns(3).PrintPreview

10. בדוק את התוכנית.

חלק מהתוצאה:

תוצאות כדורגל אפשריות

הערה: עמודה C מתמקדת באופן ידני כדי לקבל תוצאה זו.

קרא גם: