По -долу ще разгледаме програма в Excel VBA която показва визуализация на печат на всички възможни футболни мачове от списък с отбори.
Ситуация:
1. Първо, декларираме един Range обект и четири променливи. Ние наричаме Range обект rng. Една String променлива, която наричаме 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.
Задайте rng = Обхват ("A1"). CurrentRegion
брояч = 0
3. Пишем всички възможни футболни мачове в колона C. Първо изпразваме колона C.
Работни листове (1). Колони (3) = ""
4. Стартираме Double Loop.
За i = 1 За rng.Count
За j = i + 1 За rng.Count
5. Пишем име на съвпадение към променливата 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.
Клетки (брояч + 1, 3). Стойност = име на съвпадение
7. Броячът следи броя на имената на съвпадения, записани в колона C. Excel VBA увеличава брояча с 1 всеки път, когато записва име на съвпадение в колона C. За да постигнете това, добавете следния код:
брояч = брояч + 1
8. Не забравяйте да затворите двата контура.
Следващ j
Следва i
9. Показваме печатна визуализация на всички възможни футболни мачове.
ActiveSheet.Columns (3) .PrintPreview
10. Тествайте програмата.
Част от резултата:
Забележка: колоната C се центрира ръчно, за да се получи този резултат.