Novità

Estrazioni per Indice mensile

Xeroxs

Advanced Member >PLATINUM<
Buongiorno a Tutti
Se Possibile creare un script che mi mostri le estrazioni per Ruota scelta ( se più di una meglio)
in base all'indice scelto

Esempio se scelgo indice mensile 1 e Ruota Bari
elencare con data le estrazioni con la stringa degli estratti a ritroso ad esempio le ultime 20 o su range deciso.

Grazie come sempre
 
Buongiorno a Tutti

Allora ho cercato di sviluppare il listato che crea quanto io volevo, leggendo vari input di spaziometria,
Vorrei sapere ora se è possibile avere un aiuto negli input se possibile indicando l'anno ad esempio il 2019
e creare di conseguenza l'elenco delle estrazioni della 1 del mese di Bari solo dell'anno 2019 così da avere quello già dal range impostato.

Questo è il listato

Sub Main
N = InputBox("Quante estrazioni visuallizzare",,100)
r = InputBox("Quale Ruota vuoi analizzare","1=BA , 12=NZ",1)
Ini = EstrazioneFin - N
fin = EstrazioneFin
For es = Ini To Fin
If IndiceMensile(es) = 1 Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Call Scrivi(GetInfoEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
End If
Next
End Sub


Grazie come sempre
 
Buongiorno a Tutti

Allora ho cercato di sviluppare il listato che crea quanto io volevo, leggendo vari input di spaziometria,
Vorrei sapere ora se è possibile avere un aiuto negli input se possibile indicando l'anno ad esempio il 2019
e creare di conseguenza l'elenco delle estrazioni della 1 del mese di Bari solo dell'anno 2019 così da avere quello già dal range impostato.

Questo è il listato

Sub Main
N = InputBox("Quante estrazioni visuallizzare",,100)
r = InputBox("Quale Ruota vuoi analizzare","1=BA , 12=NZ",1)
Ini = EstrazioneFin - N
fin = EstrazioneFin
For es = Ini To Fin
If IndiceMensile(es) = 1 Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Call Scrivi(GetInfoEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
End If
Next
End Sub


Grazie come sempre

Ciao Xeroxs,
l'istruzione per la selezione dell' anno e' Anno, basta aggiungere una if tra il ciclo For e indice mensile e ti seleziona l' anno: es:
if Anno(es) = 2018 then
....

Naturalmente devi eliminare o dimensionare correttamente l'istruzione contenente "quante estrazioni vuoi visualizzare".

Ciao

P.s: nella sezione script c'e' un pulsante di colore azzurro con un "?"; e' l' help con le istruzioni disponibili in SPMT e VBscript, divise per macro aree. E' fondamentale dargli un' occhiata......

Buon studio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31

Ultimi Messaggi

Indietro
Alto