Ниже мы рассмотрим программу на Excel VBA который показывает предварительный просмотр всех возможные футбольные матчи из списка команд.
Ситуация:
1. Сначала мы объявляем один объект Range и четыре переменные. Мы называем объект Range rng. Одну переменную String мы называем 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.
Установите rng = Range ("A1"). CurrentRegion
counter = 0
3. Записываем все возможные футбольные матчи в столбец C. Сначала очищаем столбец C.
Рабочие листы (1) .Columns (3) = ""
4. Начинаем двойную петлю.
Для i = 1 To rng.Count
Для 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 записывает совпадение Kickers vs Little Giants и т. Д.
6. Записываем совпадение в столбец C.
Ячейки (counter + 1, 3) .Value = matchname
7. Счетчик отслеживает количество совпадений, записанных в столбец C. Excel VBA увеличивает счетчик на 1 каждый раз, когда записывает совпадение в столбец C. Для этого добавьте следующую строку кода:
counter = counter + 1
8. Не забудьте закрыть две петли.
Следующий j
Далее я
9. Показываем предварительный просмотр всех возможных футбольных матчей.
ActiveSheet.Columns (3) .PrintPreview
10. Протестируйте программу.
Часть результата:
Примечание: столбец C центрируется вручную, чтобы получить этот результат.
