Riscrivere codice jscript in macro VBA Excel

[scossa]

edit

[eparisi65]

Messaggio ricevuto.
Grazie l' ho modificato.....da non crederci lo modificato.......
Ciao da eparisi

[scossa]

edit

Come stavo dicendo (avevo sospeso per verificare), errore mio.

La function PoK deve restituire un Double, ma avendo dichiarato m As Long .....
Quindi il codice corretto è:

Codice: Seleziona tutto

Function PoK(ByVal n As Long, p As Long, g As Long, u As Long) As Double
  Dim i As Long, m As Double
  For i = g To u
    m = m + Pov(p, i) * Pov(n - p, u - i)
  Next
  PoK = m
End Function

[eparisi65]

Ciao Scossa funziona perfettamente..........ma si potrebbero sviluppare le colonne ?

[scossa]

Mi spiace ma non mi occupo di lotto e altri giochi ....