vba excel errore run-time 6 - overflow

[Francesco53]

Un saluto a tutti, una macro mi restituisce l'errore in oggetto, pur avendo dichiarato long le variabili, mi potete aiutare a superare l'errore?
Questo è il codice utilizzato:

Codice: Seleziona tutto

Dim r As Long
Dim t As Long
r = 10 * 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2
t = 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1

Ringrazio chi può aiutarmi a risolvere l'errore,
Francesco

[wallace&gromit]

Anthony ci dirà perché succede questo, ma non puoi fare tutte quelle moltiplicazioni, così funziona:

Codice: Seleziona tutto

Dim r As Long
Dim t As Long
r = 10 * 9 * 8 * 7 * 6
r = r * 5 * 4 * 3 * 2
t = 9 * 8 * 7 * 6 * 5
t = t * 4 * 3 * 2 * 1


[wallace&gromit]

Oppure, più lungo ma esteticamente più bello:

Codice: Seleziona tutto

r = 1
For i = 10 To 2 Step -1
r = r * i
Next i

[Anthony47]

L'errore non capita quando si carica il risultato nella variabile, ma mentre il vba fa i calcoli.

In quella fase, vba utilizza un "tipo dati" compatibile con i fattori in uso; essendo il primo fattore pari a 9, viene usato il tipo Integer (contenuto max: 32767), che andra' in overflow su 9*8*7*6*5*4

Per evitare questa strana situazione puoi costringere il vba a usare un tipo dati Long dichiarando il primo fattore come Long; esempio:

Codice: Seleziona tutto

t = 9& * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1    '9&=tipo Long; risultato Ok
t = 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1     'risultato Overflow

Per il significato di 9& vedi: https://docs.microsoft.com/it-it/office ... -data-type

Questo spiega anche perche' questo esempio funziona (vedi esempio di W&G)

Codice: Seleziona tutto

r = 10 * 9 * 8 * 7 * 6
r = r * 5 * 4 * 3 * 2

Quanto al modo migliore per fare quel calcolo, premesso che penso sia stato usato solo per esempio, forse potrebbe essere piu' utile:

Codice: Seleziona tutto

r = Application.WorksheetFunction.Fact(10)

Ciao

[Francesco53]

Ringrazio entrambi per gli esempi e le spiegazioni,
Francesco