/ / Possíveis partidas de futebol no Excel VBA

Possíveis partidas de futebol no Excel VBA

Abaixo, vamos olhar para um programa em Excel VBA que mostra uma pré-visualização de todos possíveis jogos de futebol de uma lista de equipes.

Situação:

Possíveis partidas de futebol no Excel VBA

1. Primeiro, declaramos um objeto Range e quatro variáveis. Nós chamamos o objeto Range rng. Uma variável String chamamos matchname e três variáveis ​​Integer chamamos counter, i e j.

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

2. Inicializamos o rng com os nomes das equipes. Usamos CurrentRegion porque não conhecemos os limites exatos do intervalo com antecedência (queremos que este programa funcione para 3 equipes, mas também para 12 equipes) .Inicializamos o contador com valor 0.

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

3. Escrevemos todos os jogos de futebol possíveis para a coluna C. Primeiro, esvaziamos a coluna C.

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

4. Começamos um loop duplo.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. Escrevemos um matchname para a variável matchname.

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

Por exemplo, para i = 1 e j = 2, o Excel VBA escreve o matchname Kickers vs Shooters. Para i = 1 e j = 3, o Excel VBA escreve o matchname Kickers vs Little Giants, etc.

6. Escrevemos o matchname para a coluna C.

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

7. O contador controla o número de matchnames gravados na coluna C. O Excel VBA incrementa o contador em 1 sempre que grava um matchname na coluna C. Para conseguir isso, adicione a seguinte linha de código:

counter = counter + 1

8. Não se esqueça de fechar os dois loops.

    Next j
Next i

9. Mostramos uma pré-visualização de todos os possíveis jogos de futebol.

ActiveSheet.Columns(3).PrintPreview

10. Teste o programa.

Parte do resultado:

Resultados possíveis de partidas de futebol

Nota: a coluna C é centralizada manualmente para obter este resultado.

Leia também: