| | Post: 6 | Registrato il: 11/02/2015
| Utente Junior | 2013 | | OFFLINE | |
|
12/11/2018 18:03 | |
Ciao a tutti, avrei bisogno del vostro aiuto.
Come potere vedere dal file che vi ho allegato, avrei bisogno di un foglio excel che mi listi tutte le possibili combinazioni tra due squadre mostrandomene la quota. I parametri variabili ovviamente sono il nome delle squadre e le varie quote.
Vi ringrazio anticipatamente per l'aiuto |
|
| | Post: 1.993 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
13/11/2018 18:12 | |
Ciao
su un foglio vuoto (excel da 2007 in poi), esegui questa macro e dicci se è questo il risultato delle partite che vuoi.
Nel caso si penserà alle quote.
saluti
Sub bho()
mArr = Array(1, "X", 2)
squadre = 6
risultati = UBound(mArr) + 1
i = 0
contatore = 0
righe = risultati ^ squadre
ReDim mMatrix(righe - 1, squadre - 1)
For mcol = UBound(mMatrix, 2) To 0 Step -1
w = risultati ^ ((squadre - 1) - mcol)
For riga = 0 To UBound(mMatrix)
contatore = contatore + 1
mMatrix(riga, mcol) = mArr(i)
If contatore = w Then
contatore = 0
i = i + 1
If i > risultati - 1 Then i = 0
End If
Next
Next
r = 1
c = 1
For i = 0 To UBound(mMatrix)
For j = 0 To UBound(mMatrix, 2)
Cells(r, c) = (mMatrix(i, j))
r = r + 1
Next
r = 1
c = c + 1
Next
End Sub [Modificato da dodo47 13/11/2018 18:13] Domenico
Win 10 - Excel 2016 |
| | Post: 6 | Registrato il: 11/02/2015
| Utente Junior | 2013 | | OFFLINE | |
|
13/11/2018 18:28 | |
Ti ringrazio.
Ho inserito la macro su un nuovo foglio, ma all'esecuzione mi da un errore di sintassi evidenziandomi di giallo la riga "For riga = 0 To UBound(mMatrix)" |
| | Post: 1.994 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
14/11/2018 11:33 | |
Ciao
non so quello che fai....il codice funziona per quanto ho capito, vedi allegato
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 7 | Registrato il: 11/02/2015
| Utente Junior | 2013 | | OFFLINE | |
|
14/11/2018 19:10 | |
Si esatto, quelle sono tutte le possibili combinazioni, ora vorrei che in base a quelle vada a calcolarmi il valore della quota totale,
Io non ho mai lavorato con le macro, con le celle avrei una vaga idea di come fare, ma così non saprei da dove partire |
| | Post: 1.999 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
14/11/2018 19:52 | |
ciao
ti allego il file, ma a mio avviso mai inizi ad utilizzare il vb e mai sarai autonomo.
Lato formule: lo sviluppo viene effettuato tramite codice, altrimenti con ca. 800 formule "complesse" da gestire, il foglio diventerebbe alquanto pesante....
saluti
[Modificato da dodo47 14/11/2018 19:53] Domenico
Win 10 - Excel 2016 |
|
|