/ / Можливі футбольні матчі в Excel VBA

Можливі футбольні матчі в Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA що показує попередній перегляд друку для всіх можливі футбольні матчі з списку команд.

Ситуація:

Можливі футбольні матчі в Excel VBA

1. По-перше, ми оголошуємо один об'єкт Діапазону та чотири змінні. Ми називаємо об'єкт діапазону rng. Одна змінна String, яку ми називаємо співпадаючою назвою, і три змінні цілого числа, які ми називаємо лічильником 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 = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

Наприклад, для i = 1 і j = 2, Excel VBA записує назву Kickers vs Shooters. Для i = 1 і j = 3 Excel VBA пише ім'я збігу Kickers vs. Little Giants і т. Д.

6. Ми називаємо ім'я збігу у стовпець C.

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

7. Лічильник відстежує кількість зіставних імен, написаних у стовпчику C. Лічильник приросту Excel VBA на 1, кожен раз, коли він записує збігову назву до стовпчика C. Для цього додайте наступну кодову рядок:

counter = counter + 1

8. Не забудьте закрити два петлі.

    Next j
Next i

9. Ми показуємо попередній перегляд всіх можливих футбольних матчів.

ActiveSheet.Columns(3).PrintPreview

10. Перевірте програму.

Частина результату:

Можливі результати футбольних матчів

Примітка: стовпець C в центрі уваги рухається, щоб отримати цей результат.

Також читайте: