/ / Могуће фудбалске утакмице у Екцелу ВБА

Могуће фудбалске утакмице у Екцелу ВБА

У наставку ћемо погледати програм Екцел ВБА који приказује преглед штампе за све могуће фудбалске утакмице са листе тимова.

Ситуација:

Могуће фудбалске утакмице у Екцелу ВБА

1. Прво, објављујемо један објект Ранге и четири варијабле. Ми зовемо објекат Ранге рнг. Једна варијабла Стринг коју зовемо име за подударање, и три интегер варијабле које зовемо цоунтер, и и ј.

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

2. Иницијализирамо рнг са именима тима. Користимо ЦуррентРегион зато што унапред не познајемо тачне границе распона (желимо да овај програм ради за 3 екипе, али и за 12 тимова). Иницијализирамо бројач са вриједношћу 0.

Set rng = Range("A1").CurrentRegion
counter = 0

3. Пишемо сва могућа фудбалска утакмица у колону Ц. Прво, испразнимо колону Ц.

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

На пример, за и = 1 и ј = 2, Екцел ВБА пише подударање Кицкерс вс Схоотерс. За и = 1 и ј = 3, Екцел ВБА пише име матрице Кицкерс вс Литтле Гиантс, итд.

6. Пишемо име матрице у колону Ц.

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

7. Бројач прати број подударних имена уписаних у колону Ц. Екцел ВБА увећава бројач за 1 сваки пут када пише име за подударање у колону Ц. Да би се постигло ово, додајте следећу линију кода:

counter = counter + 1

8. Не заборавите да затворите две петље.

    Next j
Next i

9. Показаћемо преглед штампања свих могућих фудбалских утакмица.

ActiveSheet.Columns(3).PrintPreview

10. Тестирајте програм.

Дио резултата:

Могући резултат фудбалских утакмица

Напомена: колона Ц се ручно центрира како би се добио овај резултат.

Такође прочитајте: