Novità

Per favore Aiuto per scrip che mi dà un errore

Paki144

Super member
P.s. in spaziometria mi dà errore in questa riga:
nRit =(aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) - 1)


Attendibilità con La Formula By Luigi-50
Option Explicit

Sub Main

Dim Ini,Fin

Dim r,k,e,n,nRit,nSfald,bMostraSoloRigheConNumeri,cMaxRigo,sNum,bValida,qNum

ReDim aRt(1)

ReDim aNumRuota(5)

Dim aBNumRuota

Dim t

Dim cIdRit,cIdRitMax,cIdFreq

Dim nFatte

Dim Parz

If MsgBox("Mostrare solo le righe alla cui posizione nel tab analitico sono effettivamente presenti dei numeri ?",vbQuestion + vbYesNo) = vbYes Then

bMostraSoloRigheConNumeri = True

End If

cMaxRigo = 250

cIdRit = 0

cIdRitMax = 1

cIdFreq = 2

t = Timer

ReDim aRitPerRigo(cMaxRigo,12,2)

Ini = EstrazioneIni

Fin = EstrazioneFin

nFatte = Fin -(Ini)

For r = 1 To 12

If r <> 11 Then

ReDim aN(90)

aRt(1) = r

Call GetRitardoEstratti(aRt,Ini,aN)

For k = Ini + 1 To Fin

'ReDim aTa(cMaxRigo,5)

Call GetArrayNumeriRuota(k,r,aNumRuota)

If aNumRuota(1) > 0 Then

For nRit = 0 To cMaxRigo

aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1

Next

For e = 1 To 5

nRit =(aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) - 1)

If nRit > aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) Then

aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) = nRit

End If

aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) = 0

aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) = aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) + 1

Next

aBNumRuota = ArrayNumeriToBool(aNumRuota)

For n = 1 To 90

If aBNumRuota(n) Then

aN(n) = 0

Else

aN(n) = aN(n) + 1

End If

'If aN(n) <= cMaxRigo Then

' If aTa(aN(n),0) < 5 Then

' aTa(aN(n),0) = aTa(aN(n),0) + 1

' aTa(aN(n),aTa(aN(n),0)) = n

' End If

' End If

Next

'For nRit = 0 To cMaxRigo

' If aTa(nRit,0) > 0 Then

' nSfald = 0

' Call GetArrayNumeriRuota(k + 1,r,aNumRuota)

' aBNumRuota = ArrayNumeriToBool(aNumRuota)

' For e = 1 To aTa(nRit,0)

' If aBNumRuota(aTa(nRit,e)) Then

' nSfald = nSfald + 1

' Exit For

' End If

' Next

' If nSfald > 0 Then

' If aRitPerRigo(nRit,r,cIdRit) > aRitPerRigo(nRit,r,cIdRitMax) Then

' aRitPerRigo(nRit,r,cIdRitMax) = aRitPerRigo(nRit,r,cIdRit)

' End If

' aRitPerRigo(nRit,r,cIdRit) = 0

' aRitPerRigo(nRit,r,cIdFreq) = aRitPerRigo(nRit,r,cIdFreq) + 1

' Else

' aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1

' End If

' Else

' aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1

' End If

' Next

End If

Next

End If

Call AvanzamentoElab(1,12,r)

Next

ReDim aV(10)

aV(1) = "Rigo"

aV(2) = "Ritardo"

aV(3) = "RitardoMax"

aV(4) = "Frequenza"

aV(5) = "Ruota"

aV(6) = "NumPresRigoAttuale"

aV(7) = "IndiceConv"

aV(8) = "QTeorica"

aV(9) = "QReale"

aV(10) = "Attendibilita"

Call GeneraAnaliticoTurbo(Fin)

Messaggio "Creazione tabella"


DoEventsEx

Call InitTabella(aV)

For r = 1 To 12

If r <> 11 Then

For k = 0 To cMaxRigo

aV(1) = k

aV(2) = aRitPerRigo(k,r,cIdRit)

aV(3) = aRitPerRigo(k,r,cIdRitMax)

aV(4) = aRitPerRigo(k,r,cIdFreq)

aV(5) = NomeRuota(r)

sNum = ""

qNum = 0

For e = 1 To 5

n = TabelloneAnaliticoTurbo(k,r,e)

If n > 0 Then

qNum = qNum + 1

sNum = sNum & n & "."

End If

Next

sNum = RimuoviLastChr(sNum,".")

bValida = False

If bMostraSoloRigheConNumeri Then

If sNum <> "" Then bValida = True

Else

bValida = True

End If

If bValida Then

aV(6) = sNum

aV(7) = Round(Dividi(aRitPerRigo(k,r,cIdRit),Dividi(nFatte,aRitPerRigo(k,r,cIdFreq))),3)

aV(8) = Round(QuantitaTeoricaCombAlRitX(k),3)

aV(9) = qNum

aV(10) = Round(Dividi(qNum,(qNum + CDbl(aV(8)))),3)

Call AddRigaTabella(aV)

End If

Next

End If

Next

Call Scrivi("Inizio : " & GetInfoEstrazione(Ini))

Call Scrivi("Fine : " & GetInfoEstrazione(Fin))

Call CreaTabella(2,,,100)

Scrivi Timer - t

End Sub
Grazie al Forum e agli esperti Programmatori per l'aiuto che ci date sempre e per il vostro tempo che ci dedicate che non è da dare per scontato.
Grazie
 
Ciao a Tutti.

Metti 300 a questa riga -


riga 15

cMaxRigo = 250

così

cMaxRigo = 300


Non è farina del mio sacco, la risposta è di LuigiB ad un altro utente
 

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 28 aprile 2025
    Bari
    62
    48
    68
    64
    35
    Cagliari
    50
    54
    70
    90
    64
    Firenze
    56
    43
    77
    70
    22
    Genova
    56
    80
    78
    87
    10
    Milano
    80
    77
    60
    22
    79
    Napoli
    40
    16
    28
    64
    18
    Palermo
    05
    41
    90
    06
    68
    Roma
    54
    22
    82
    89
    80
    Torino
    72
    21
    25
    16
    70
    Venezia
    35
    68
    75
    03
    30
    Nazionale
    76
    44
    20
    70
    67
    Estrazione Simbolotto
    Genova
    10
    13
    20
    18
    34

Ultimi Messaggi

Indietro
Alto