Di seguito vedremo un programma in Excel VBA che mostra un’anteprima di stampa di tutte le possibili partite di calcio da un elenco di squadre.

Situazione:

Possible Football Matches in Excel VBA

  1. In primo luogo, si dichiara un oggetto Range e quattro variabili. Chiamiamo l’oggetto RNG Range. Una variabile String che chiamiamo matchname, e tre variabili intere che noi chiamiamo contatore, i e j.

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

  1. inizializziamo RNG con i nomi delle squadre. Usiamo link: / VBA-esempi-CurrentRegion [CurrentRegion] perché non conosciamo le esatte confini della gamma di anticipo (vogliamo a programmi di lavoro per 3 squadre, ma anche per 12 squadre). Inizializziamo contatore con il valore 0.

Set rng = Range("A1").CurrentRegion

counter = 0

  1. scrivere tutti i possibili partite di calcio a colonna C. In primo luogo, abbiamo vuota colonna C.

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

  1. Iniziamo un Double Loop.

For i = 1 To rng.Count

For j = i + 1 To rng.Count

  1. Noi scrivere la matchname al matchname variabile.

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

Ad esempio, per i = 1 e j = 2, Excel VBA scrive il Kickers matchname vs Shooters. Per i = 1 e j = 3, Excel VBA scrive i Kickers matchname vs piccoli giganti, ecc

  1. scriviamo il matchname per la colonna C.

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

  1. Il contatore tiene traccia del numero di matchnames scritti contatore di colonna C. Excel VBA con incrementi di 1 ogni volta che scrive una matchname per la colonna C. Per ottenere questo, aggiungere la seguente riga di codice:

counter = counter + 1

  1. Non dimenticare di chiudere i due anelli.

Next j

Next i

  1. mostriamo un’anteprima di stampa di tutte le possibili partite di calcio.

ActiveSheet.Columns(3).PrintPreview

  1. Test del programma.

Parte del risultato:

Possible Football Matches Result

Nota: la colonna C è centrata manualmente per ottenere questo risultato.