Нижче ми розглянемо програму в Excel VBA що показує попередній перегляд друку всіх можливі футбольні матчі зі списку команд.
Ситуація:
1. Спочатку ми оголошуємо один об’єкт Range і чотири змінні. Ми називаємо об'єкт Range rng. Одну змінну String ми називаємо matchname, а три цілочисельні змінні - counter, i та j.
Dim rng як діапазон, ім'я відповідності як рядок, лічильник As Integer, i As Integer, j As Integer
2. Ми ініціалізуємо rng з іменами команд. Ми використовуємо CurrentRegion, оскільки заздалегідь не знаємо точних меж діапазону (ми хочемо, щоб ця програма працювала для 3 команд, а також для 12 команд). Ми ініціалізуємо лічильник зі значенням 0.
Встановіть rng = Діапазон ("A1"). CurrentRegion
лічильник = 0
3. Ми записуємо всі можливі футбольні матчі до стовпця C. Спочатку ми спорожняємо стовпець C.
Робочі листи (1). Стовпці (3) = ""
4. Запускаємо подвійну петлю.
Для i = 1 До rng.Count
Для j = i + 1 До rng.Count
5. Ми записуємо ім'я відповідності до змінної matchname.
matchname = rng.Cells (i). Значення & "vs" & rng.Cells (j).
Наприклад, для i = 1 та j = 2 Excel VBA записує відповідну назву Kickers vs Shooters. Для i = 1 та j = 3 Excel VBA записує відповідну назву Kickers vs Little Giants тощо.
6. Ми записуємо назву сірника у стовпець C.
Клітинки (лічильник + 1, 3). Значення = назва збігу
7. Лічильник відстежує кількість назв відповідності, записаних у стовпець C. Excel VBA збільшує лічильник на 1 кожного разу, коли він записує ім’я відповідності у стовпець C. Для цього додайте наступний кодовий рядок:
лічильник = лічильник + 1
8. Не забудьте закрити дві петлі.
Далі j
Далі i
9. Ми показуємо попередній перегляд усіх можливих футбольних матчів.
ActiveSheet.Columns (3) .PrintPreview
10. Перевірте програму.
Частина результату:
Примітка: для отримання цього результату стовпець С центрується вручну.