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

Ситуация:

Possible Football Matches in Excel VBA

  1. Во-первых, мы объявляем один объект Range и четыре переменные. Мы называем объект ГСЧ Range. Одна переменная строка, которую мы называем matchname, и три переменные Integer мы называем счетчик, я и J.

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

  1. Мы инициализируем ГСЧ с именами команд. Мы используем ссылке: / VBA-примеры-CurrentRegion [CurrentRegion], потому что мы не знаем точных границ диапазона заранее (мы хотим эту программу для работы на 3 команды, но и для 12 команд). Мы инициализируем счетчик со значением 0.

Set rng = Range("A1").CurrentRegion

counter = 0

  1. Запишем все возможные футбольные матчи в колонке C. Во-первых, пустой столбец С.

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

  1. Мы начинаем двойную петлю.

For i = 1 To rng.Count

For j = i + 1 To rng.Count

  1. Пишет matchname к переменной matchname.

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

Например, при г = 1 и у = 2, Excel VBA записывает matchname Kickers против шутеров. Для я = 1 и J = 3, Excel VBA пишет matchname Kickers против Литтл гигантов и т.д.

  1. Запишем matchname в столбце C.

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

  1. Счетчик отслеживает числа matchnames, записанных в столбце C. Excel VBA значение счетчика на 1 каждый раз, когда она записывает matchname в столбце C. Для достижения этой цели, добавьте следующую строку кода:

counter = counter + 1

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

Next j

Next i

  1. Мы показываем предварительный просмотр печати всех возможных футбольных матчей.

ActiveSheet.Columns(3).PrintPreview

  1. Тест программы.

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

Possible Football Matches Result

Примечание: колонка C вручную по центру, чтобы получить этот результат.