/ / Възможни футболни срещи в Excel VBA

Възможни футболни срещи в Excel VBA

По - долу ще разгледаме програма в Excel VBA който показва предварителен преглед на всички възможни футболни срещи от списък от отбори.

Ситуация:

Възможни футболни срещи в Excel VBA

1. Първо, декларираме един обект и четири променливи. Ние наричаме Range object rng. Променлива от една струнна, която наричаме 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 отбора). Инициализираме брояч с стойност 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 пише matchname Kickers vs Shooters. За i = 1 и j = 3, Excel VBA пише matchname Kickers срещу Little Giants и др.

6. Написваме matchname в колона C.

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

7. Броячът следи броя на имената на мачове, написани в колона C. Excel VBA увеличава брояча с 1 всеки път, когато пише matchname в колона C. За да постигнете това, добавете следния ред:

counter = counter + 1

8. Не забравяйте да затворите двата цикъла.

    Next j
Next i

9. Показваме визуализация на всички възможни футболни мачове.

ActiveSheet.Columns(3).PrintPreview

10. Тествайте програмата.

Част от резултата:

Възможни резултати от футболни мачове

Забележка: Колона C е ръчно центрирана, за да получите този резултат.

Също така се чете: