Buon Pomeriggio a Tutti,
Purtroppo in questo periodo non riesco a frequentare il Forum come Vorrei, qualche problema prende la priorità e non mi concede lo spazio che vorrei, a volte penso he basta imporsi di fare altro per distrarsi così ci provo come in questo caso con le cose che comunque mi piacciono.
Volevo creare uno script per una mia amica sulle frequenze dei Numeri con i dati esposti in orizzontale per ogni ruota e se lo faccio per una sola tutto ok ma poi non riesco a "ciclare"
la ricerca per ogni Ruota e non capisco dove sbaglio, spostando e rispostando parte del codice, mi sono chiesto forse non è possibile, pero non credo sia così.
Cosi Chiedo se qualcuno mi aiuta a correggere lo script che riporto, e se mi aiuta a capire dove in fin dei conti dove sto sbagliando.
Approfitto Per Ringraziare Tutti Quelli che in qualche modo mi hanno aiutato in questo mio progetto di crescita e che in fin dei conti mi hanno aiutato a distrarmi nel modo giusto, spero di portare a termine una ricerca che mi premeva tanto ma che ho dovuto accantonare per i miei problemi...
se avrò modo riprenderò la discussione.... tante altre cose le ho davvero comprese grazie a Voi.
Purtroppo in questo periodo non riesco a frequentare il Forum come Vorrei, qualche problema prende la priorità e non mi concede lo spazio che vorrei, a volte penso he basta imporsi di fare altro per distrarsi così ci provo come in questo caso con le cose che comunque mi piacciono.
Volevo creare uno script per una mia amica sulle frequenze dei Numeri con i dati esposti in orizzontale per ogni ruota e se lo faccio per una sola tutto ok ma poi non riesco a "ciclare"
la ricerca per ogni Ruota e non capisco dove sbaglio, spostando e rispostando parte del codice, mi sono chiesto forse non è possibile, pero non credo sia così.
Cosi Chiedo se qualcuno mi aiuta a correggere lo script che riporto, e se mi aiuta a capire dove in fin dei conti dove sto sbagliando.
Codice:
Option Explicit
Sub Main
Dim Ini,Fin,es
Dim Ruota
Dim Numeri,FreqNum
Dim RigaNumeri,RigaFreqNum
'----------------------------- Range Estrazioni
Ini = 10024
Fin = EstrazioneFin
'-----------------------------
For Ruota = 1 To 2
'For Ruota = 1 To 12 : If Ruota = 11 Then Ruota = 12
Scrivi NomeRuota(Ruota),1,,,0
Scrivi "-----------",1
'------------------------------------------------------------------------------------------------ Ricerco i Numeri con la Frequenza Voluta
For Numeri = 1 To 90
FreqNum = EstrattoFrequenzaTurbo(Ruota,Numeri,Ini,Fin)
If FreqNum > 10 Then ' Quì Scelgo la Frquenza Voluta
RigaNumeri = RigaNumeri & FormatSpace(Numeri,2) & " "
RigaFreqNum = RigaFreqNum & FormatSpace(FreqNum,3) & " "
End If
Next ' Chiude Numeri
'------------------------------------------------------------------------------------------------- Scrivo i Risultati della Ricerca
Scrivi RigaNumeri,1,,,1
Scrivi RigaFreqNum,1,0,,2
Scrivi
Scrivi
Next ' Chiude uota
End SubApprofitto Per Ringraziare Tutti Quelli che in qualche modo mi hanno aiutato in questo mio progetto di crescita e che in fin dei conti mi hanno aiutato a distrarmi nel modo giusto, spero di portare a termine una ricerca che mi premeva tanto ma che ho dovuto accantonare per i miei problemi...
se avrò modo riprenderò la discussione.... tante altre cose le ho davvero comprese grazie a Voi.
