Abaixo, veremos um programa em Excel VBA que mostra uma visualização de impressão de todos os possíveis partidas de futebol de uma lista de equipes.
Situação:
1. Primeiro, declaramos um objeto Range e quatro variáveis. Chamamos o objeto Range de rng. Uma variável String que chamamos matchname e três variáveis inteiras que chamamos de contador, ie j.
Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer
2. Inicializamos rng com os nomes das equipes. Usamos CurrentRegion porque não sabemos 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 o valor 0.
Defina rng = Range ("A1"). CurrentRegion
contador = 0
3. Escrevemos todas as partidas de futebol possíveis na coluna C. Primeiro, esvaziamos a coluna C.
Planilhas (1) .Colunas (3) = ""
4. Iniciamos um loop duplo.
Para i = 1 para rng.Count
Para j = i + 1 para 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 grava o matchname Kickers vs Shooters. Para i = 1 e j = 3, o Excel VBA grava o matchname Kickers vs Little Giants, etc.
6. Escrevemos o matchname na coluna C.
Células (contador + 1, 3) .Value = matchname
7. O contador rastreia o número de matchnames gravados na coluna C. O VBA do Excel incrementa o contador em 1 cada vez que ele grava um matchname na coluna C. Para fazer isso, adicione a seguinte linha de código:
contador = contador + 1
8. Não se esqueça de fechar os dois loops.
Próximo j
Proximo eu
9. Mostramos uma amostra de impressão de todas as partidas de futebol possíveis.
ActiveSheet.Columns (3) .PrintPreview
10. Teste o programa.
Parte do resultado:
Nota: a coluna C é centralizada manualmente para obter este resultado.