[Excel] Automatizzare una previsione lotto

[cipacci]

Salve a tutti, stavo cercando una soluzione al mio problema finchè non mi sono imbattuto in questo forum e cercando di trovare la soluzione ho letto alcuni post dai quali ho capito di essermi imbattuto in un forum super-professionale! complimenti! (non è una sviolinata, ma lo penso davvero).

Vengo al mio problema:
Dispongo di un archivio con estrazioni e vorrei riuscire ad automatizzare un metodo previsionale.

la previsione si basa su 4 scelte su 7 disponibili da generare in base alle ultime 4 estrazioni; ovvero:
Elenco scelte disponibili:
aria
acqua
fuoco
terra
mare
cielo
vegeta

ultime quattro estrazioni:
acqua
fuoco
terra
vegeta

previsione:
la differenza tra le 7 disponibili e le ultime 4 estrazioni + ultima estrazione, ovvero: aria - mare- cielo - vegeta.

da considerare anche che ad ogni estrazione il tutto deve aggiornarsi con una nuova previsione.
E' fattibile? spero di essere stato chiaro.

P.S: ah, dimenticavo: non conosco nulla di VBA, neanche da dove si inizia a scrivere il codice in Excel; qualche formuletta ogni tanto l'ho fatta, ma nulla più....
Grazie a tutti coloro che vorranno darmi una mano.
ciao

[Flash30005]

Ciao Cipacci e benvenuto nel Forum

Ti ringrazio a nome dello staff e di tutti gli utenti che collaborano in questo Forum per quello che hai scritto a riguardo

Sicuramente troverai qui una soluzione al tuo problema
(intendo: se il programma o formula debba fare certe funzioni di calcolo ma non previsione di uscita dei numeri al Lotto)

Veniamo al tuo quesito e ribadendo che non facciamo previsioni non riesco a capire cosa ti occorre ricavare
Fai un esempio pratico del tipo:
Elenco scelte disponibili:
aria
acqua
fuoco
terra
mare
cielo
vegeta

ultime quattro estrazioni:
acqua
fuoco
terra
vegeta

e dici "vorrei che il programma o formule mi evidenzino":
aria
cielo
mare

Oppure un altro tipo di condizione a tua scelta e vediamo come risolvere

fai sapere
ciao

[cipacci]

Assolutamente, non vi chiedo le previsioni!!

Il programma o codice deve semplicemente evidenziarmi le scelte restanti dopo aver controllato le ultime 4 uscite, caso mai in 4 celle di excel...
avevo fatto l'esempio per cercare di essere quanto più chiaro possibile, ma probabilmente ho complicato le cose...

Diciamo che il possibile risultato di una estrazione ricada in un elenco di 7 risultati (aria - acqua - ...etc.etc.etc.)
Prendendo le ultime 4 estrazioni già avvenute (sono dati conosciuti e presenti nell'archivio di cui parlavo), il file, codice, programma etc..etc.etc... deve indicarmi i probabili risultati restanti (7-4= 3); per essere più preciso la routine deve prevedere che ai 3 che mi deve evidenziare deve aggiungere un 4 risultato che lo va a pescare dall'ultima estrazione nell'archivio.... non so come spiegarlo meglio (rivedete l'esempio che ho fatto prima, forse adesso sarà più chiaro, spero...)
grazie

[Flash30005]

ehm...
Se vogliamo essere chiari evitiamo di fare esempi che non hanno nulla a che fare con i dati che vorremmo avere
Il titolo del topic parla di Lotto e nel Lotto ci sono 90 numeri e non stringhe come acqua, fuoco, cielo etc
Inoltre il lotto è suddiviso in 10 ruote + una ruota extra (Nazionale)
in ogni ruota ci sono 5 estrazioni di numeri

Ora ti chiedo:
cosa ti occorre?
(scusami se ti chiedo questo in questo modo ma, come tu hai detto non hai molta esperienza nel vba e poca nelle formule, non vorrei "imbastire" un lavoro solo su esempi che non sarai in grado di adattarli alla tua esigenza)

fai sapere
Ciao

[cipacci]

hai ragione flash, ma non mi riferisco al lotto italiano...

hai fatto bene a chiarire ma ti assicuro che quello che cerco è quanto ho scritto:
da una parte c'è un elenco fisso di 7 elementi, dall'altra ho l'archivio con le estrazioni;
mi occorre un "qualcosa" che mi evidenzi, dall'elenco dei 7, gli "elementi" NON presenti nelle ultime 4 estrazioni;
questo "qualcosa" deve anche aggiornarsi ogni qualvolta si inserisce nell'archivio la nuova estrazione:

elenco fisso elementi:
aria
acqua
fuoco
terra
mare
cielo
vegeta

archivio estrazioni:
15/06/10 - acqua
16/06/10 - fuoco
17/06/10 - terra
18/06/10 - vegeta

risultato routine:
aria - mare - cielo - vegeta (quest'ultimo elemento che completa la quartina deve corrispondere all'elemento dell'ultima estrazione)

grazie ancora per la disponibilità
ciao

[Flash30005]

Ok,
quindi (avrei voluto che inserissi tu questi dati in excel)

nella colonna A hai la data (ordine crescente)
nella colonna B gli elementi estratti
poi
una tabella degli elementi possibili che sono 7 (posso considerarla in qualsiasi parte dello stesso foglio o su un altro foglio?)
inoltre da considerare
le ultime 5 estrazioni
1) di cui dalla quint'ultima alla penultima ci sono gli elementi da togliere al risultato
mentre
l'ultima da inserire alle stringhe non uscite nel punto 1)
ma se nelle ultime 5 è uscito sempre lo steso valore (caso raro ma non impossibile)
quale deve essere il risultato finale?

Fai sapere
Ciao

[cipacci]

Ok,
quindi (avrei voluto che inserissi tu questi dati in excel)

se vuoi lo posso fare senza problemi, ti invio un esempio ?

nella colonna A hai la data (ordine crescente)
nella colonna B gli elementi estratti
poi
una tabella degli elementi possibili che sono 7 (posso considerarla in qualsiasi parte dello stesso foglio o su un altro foglio?)

perfetto; si come vuoi, sia sullo stesso foglio che in un foglio diverso...

inoltre da considerare
le ultime 5 estrazioni
1) di cui dalla quint'ultima alla penultima ci sono gli elementi da togliere al risultato
mentre
l'ultima da inserire alle stringhe non uscite nel punto 1)
ma se nelle ultime 5 è uscito sempre lo steso valore (caso raro ma non impossibile)
quale deve essere il risultato finale?

errato per quanto riguarda le estrazioni da considerare: bisogna considerare sempre e solo le ultime 4 estrazioni;
il flowchart dovrebbe essere così:
- ultime 4 estrazioni
- riscontro con tabella da 7 elementi
- riportare gli elementi NON estratti (differenza)
nel caso gli ultimi 4 elementi estratti fossero tutti diversi allora la routine riporta gli altri 3 ed aggiunge alla quartina l'ultima estrazione;
nel caso gli ultimi 4 elementi estratti fossero 3 + 1 "ripetuto" (aria - acqua - fuoco - aria) allora bisogna considerare solo i 3 elementi "primi" per cui la routine riporta gli altri 4 e la quartina è completa;
nel caso gli ultimi 4 elementi estratti fossero 2 + 2 "ripetuti" (aria - acqua - aria - acqua) allora bisogna considerare solo i 2 elementi "primi" per cui la routine dovrebbe riportare gli altri 5 elementi, ma andrebbe bene anche un messaggio testuale di avviso;
nel caso gli ultimi 4 elementi estratti fossero 1 + 3 "ripetuti" (aria - acqua - acqua - acqua) allora bisogna considerare 2 soli elementi "primi" per cui la routine dovrebbe riportare gli altri 5 elementi, ma andrebbe bene anche un messaggio testuale di avviso;
in ultimo: nel caso gli ultimi 4 elementi estratti fossero tutti e 4 lo stesso elemento (acqua - acqua - acqua - acqua) allora bisogna considerare 1 solo elemento "primo" per cui la routine dovrebbe riportare gli altri 6 elementi, ma andrebbe bene anche un messaggio testuale di avviso.

al successivo inserimento della nuova estrazione la routine riparte.

Spero di non essere troppo esigente

Possiamo continuare domani? Morfeo mi chiama e io non ho più le forze per difendermi domani mattina la sveglia suona presto.
Non ho parole per ringraziarti.
Buona notte
Ciao

[Flash30005]

Ok,
adesso è molto più chiaro
ho messo tutti i dati su un foglio di excel e realizzato la macro
l'ho fatta girare ma....
ci deve essere una cosa che non funziona perché mi ha dato come risultato
"Sogno"
però malgrado l'errore credo che seguirò il consiglio della macro (la sveglia suona inesorabile anche per me )
e domani vedrai che troverai diverse soluzioni di persone che si adoperano ad aiutare il prossimo risolvendo loro i quesiti posti
(soprattutto così chiari)

Buonanotte a tutti

[cipacci]

Ok,
adesso è molto più chiaro
ho messo tutti i dati su un foglio di excel e realizzato la macro
l'ho fatta girare ma....
ci deve essere una cosa che non funziona perché mi ha dato come risultato
"Sogno"

grande!

a più tardi.
ciao.

[Flash30005]

Apri una cartella di excel
nel foglio1 inserirai una testata nella prima riga es.:
A1 Data,
B1 Estratto,
L1 Elemento
M1 Freq.
N1 Prev. Teorica
Da A2 a Bn le estrazioni (archivio)
Da L2 a L8 i sette elementi (acqua, fuoco etc)

Apri il Vba premendo ALT+F11
una volta nel VBA dal Menu > Inserisci > Modulo
Nel frame di destra incolli questa macro

Codice: Seleziona tutto

Sub TrovaEl()
UR = Sheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
Range("M2:N8").ClearContents
For RR = UR To UR - 3 Step -1
    Elem = Range("B" & RR).Value
    If RR = UR Then UElem = Elem
    If RR <> UR Then
        For RE = 2 To 8
            If Range("L" & RE).Value = Elem Then
                Range("M" & RE).Value = Range("M" & RE).Value + 1
            End If
        Next RE
    End If
Next RR
Conta = 0
For RE = 2 To 8
    If Range("M" & RE).Value = 0 Then
        Range("N" & RE).Value = Range("L" & RE).Value
        Conta = Conta + 1
    End If
Next RE
For RE = 2 To 8
    If Range("L" & RE).Value = UElem Then Range("M" & RE).Value = Range("M" & RE).Value + 1
Next RE
If Conta > 4 Then MsgBox "Attenzione! Ci sono " & Conta & " Elementi"
End Sub


Chiudi il VBA
Salvi il File (senza chiudere la cartella)

Avvii la macro
con ALT+F8 e selezionando "TrovaEl" (nome della macro)
premi Esegui

Comunque...
questo è il file

Fai sapere
Ciao

[cipacci]

ciao flash e grazie per il tuo aiuto, purtroppo la macro non funziona bene; mi spiego:
ho provato ad aggiungere due estrazioni con elementi differenti all'archivio del file che hai inviato, ma l'esito è errato perchè mi dice che ci sono 5 elementi, mentre dovrebbe indicarmi 4 elementi; il problema sta nel fatto che la routine considera sempre l'ultimo elemento dell'ultima estrazione, mentre questa condizione è valida solo in un occasione, ovvero quando si presenta

"nel caso gli ultimi 4 elementi estratti fossero tutti diversi allora la routine riporta gli altri 3 ed aggiunge alla quartina l'ultima estrazione;"

.
in tutti gli altri casi l'ultimo elemento estratto non va considerato.
Poi volevo chiederti se è possibile automatizzare con un qualche tasto l'avvio della routine anzichè usare ALT+F8 e poi "esegui nomemacro".
Grazie
ciao

[Flash30005]

Cosa Intendi quando dici:

ho provato ad aggiungere due estrazioni con elementi differenti all'archivio

Cioè hai inserito due nomi diversi dai 7 previsti?
Invia un'immagine del tuo foglio o il file stesso.

il problema sta nel fatto che la routine considera sempre l'ultimo elemento dell'ultima estrazione

Ehmm
la macro fa quello che hai richiesto, cioè inserisce l'ultima estrazione solo se ne sono rimaste tre, ma se modifichi i dati aggiungendo elementi non previsti nella tabella vai incontro a elaborazioni errate che non dipendono dalla macro ma "dall'elemento" collocato tra la sedia e la tastiera
(ndr. un noto motto informatico dice che il 99% dei problemi di un Pc risiede lì )
Quindi ti consiglio di:
1) riprendere il mio file originale
2) aggiungere righe di estrazione
3) fai la prova con qualsiasi combinazione delle ultime quattro estrazioni
4) se incontri un'anomalia mi dici quali elementi hai messo nelle ultime quattro estrazioni
Io imposterò la tua stessa condizione e verificherò quanto da te rilevato.

Per il pulsante non c'è problema lo metteremo quando il programma sarà a punto ma se ti vuoi divertire
inserisci questa macro nel modulo (sotto alla macro esistente)

Codice: Seleziona tutto

Sub CreaPulsante()
    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 100, 25, 50, 35).Name = "Comando1"
    ActiveSheet.Shapes("Comando1").Select
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65
    Selection.ShapeRange.Fill.BackColor.SchemeColor = 11
    Selection.ShapeRange.Fill.TwoColorGradient msoGradientHorizontal, 2
    Selection.Characters.Text = "Avvio"
    With Selection.Characters(Start:=1, Length:=3).Font
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    ActiveSheet.Shapes("Comando1").Select
    Selection.OnAction = "TrovaEl"
    Range("D10").Select
End Sub

Avvia questa macro una sola volta e avrai il tuo pulsante nel foglio attivo (Foglio1)

Fai sapere
Ciao

[cipacci]

Cosa Intendi quando dici:

ho provato ad aggiungere due estrazioni con elementi differenti all'archivio

Cioè hai inserito due nomi diversi dai 7 previsti?
Invia un'immagine del tuo foglio o il file stesso.

il problema sta nel fatto che la routine considera sempre l'ultimo elemento dell'ultima estrazione

Ehmm
la macro fa quello che hai richiesto, cioè inserisce l'ultima estrazione solo se ne sono rimaste tre, ma se modifichi i dati aggiungendo elementi non previsti nella tabella vai incontro a elaborazioni errate che non dipendono dalla macro ma "dall'elemento" collocato tra la sedia e la tastiera
(ndr. un noto motto informatico dice che il 99% dei problemi di un Pc risiede lì )

Flash, ti ringrazio per la stima e fiducia che riponi in me....
Naturalmente ho inserito "altre righe di estrazione" CON GLI STESSI ELEMENTI DEI 7 PREVISTI!!! (forse mi sarò espresso male, intendevo differenti dagli ultimi 4 che avevi lasciato nell'archivio di prova; non sono proprio a questi livelli; credimi questa volta non faccio parte del 99%)
Ti allego l'immagine del caso di un elemento aggiunto e di due elementi aggiunti, consecutivi al tuo archivio di prova:



come noterai in questo caso la routine riporta nella colonna "Prev Teorica" anche l'elemento aggiunto "cielo" mentre non dovrebbe esserci;




Lo stesso come sopra, ovvero nella colonna "Prev Teorica" viene riportato ancora l'ultimo elemento aggiunto che non dovrebbe esserci;

Però ho notato che continuando ad inserire righe di estrazione all'archivio, anche con elementi ripetuti, sembra, invece, funzionare correttamente; il problema potrebbe risiedere solo in quelle due righe successive ai quattro elementi "vegeta" che tu avevi lasciato nel file... boh...

grazie, come sempre, anche per il tasto, l'ho provato, tutto ok, ma concordo con te:

Per il pulsante non c'è problema lo metteremo quando il programma sarà a punto...

A più tardi, spero, lavoro e famiglia permettendo....
Grazie Grazie Grazie!

[Flash30005]

Per quante combinazioni avessi provato nessuna forniva quel risultato "anomalo" che in effetti tanto anomalo non era.
Quindi sono intervenuto nell'ultima parte della macro e la pubblico interamente (sostituisce la precedente)

Codice: Seleziona tutto

Sub TrovaEl()
UR = Sheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
Range("M2:N8").ClearContents
For RR = UR To UR - 3 Step -1
    Elem = Range("B" & RR).Value
    If RR = UR Then UElem = Elem
    If RR <> UR Then
        For RE = 2 To 8
            If Range("L" & RE).Value = Elem Then
                Range("M" & RE).Value = Range("M" & RE).Value + 1
            End If
        Next RE
    End If
Next RR
Conta = 0
For RE = 2 To 8
    If Range("M" & RE).Value = 0 Then
        Range("N" & RE).Value = Range("L" & RE).Value
        Conta = Conta + 1
    End If
Next RE
For RE = 2 To 8
    If Range("L" & RE).Value = UElem Then
        Range("M" & RE).Value = Range("M" & RE).Value + 1
        If Conta > 4 And Range("N" & RE).Value <> "" Then
            Range("N" & RE).Value = ""
            Conta = Conta - 1
        End If
    End If
Next RE
If Conta > 4 Then MsgBox "Attenzione! Ci sono " & Conta & " Elementi"
End Sub

Adesso fai tutte le prove (ma proprio tutte eh!?)
Nel caso fai sapere
Ciao

[cipacci]

Perfetto Flash! Grande! e Grazie naturalmente.
Adesso Funziona tutto alla perfezione.
Non so se posso ancora approfittare per chiedere delle piccole finezze stilistiche, se così posso dire...
Ho notato che così come adesso, l'archivio e la prev teorica sullo stesso foglio comporterebbe, con il continuo inserimento delle estrazioni, che la prev teorica non si veda più e alla linga bisogna salire e scendere parecchio(con la barra laterale di excel); a questo punto avevo pensato, se non è troppo una rottura, di mettere l'archivio su un foglio e la prev teorica su un altro foglio; oppure lasciare tutto com'è e su un secondo foglio impostare una specie di maschera tipo questa:



Uploaded with ImageShack.us

Sulla maschera ci sono due tasti:
-Tasto "Inserisci Estrazione": porta sul foglio archivio e fa inserire l'estrazione avvenuta;
-Tasto "Genera Previsione": è il tasto che hai creato ieri che fa girare la routine;

Poi c'è la maschera finale dove viene riportato il risultato della routine, ma credo che per questo basti un semplice "=Archivio!N2" etc.etc....

Spero di non rompere troppo con le mie richieste.
Grazie
ciao

[cipacci]

... ho rotto troppo...

Va bene lo stesso, Grazie davvero tanto per tutto l'aiuto che mi hai fornito, Flash; cercherò di capire come adattare la routine alle mie idee.

Spero di poter ricambiare un giorno
Grazie
Ciao

[Flash30005]

Ma figurati!
Non c'è alcun problema tranne il tempo...
Se il tuo problema è quello di voler visualizzare sempre i "pronostici" non è necessario utilizzare un altro foglio che comporterebbe "l'andirivieni" da un foglio all'altro ma è molto più pratico bloccare i riquadri
Quindi (mi riferisco allo schema iniziale dove i risultati li hai da L1 a N8)
seleziona l'intera riga 9
sul Menu > Finestra > Blocca riquadri
Avrai lo scorrimento delle sole righe dell'archivio dalla riga 9 in poi mentre rimarrà sempre in vista la tabella dei "pronostici".
Per quanto riguarda la maschera di inserimento estrazioni, invece, è una richiesta "strana" perché normalmente questi dati vengono prelevati dal web, non sempre l'utente aggiorna il dato singolarmente ma, accade spesso, che inserisca
giorni o settimane/mesi di estrazioni copiando e incollando sul foglio (o anche attraverso una query web) tutte le estrazioni in una unica operazione.
L'inserimento attraverso la maschera obbligherebbe l'utente alla digitazione di un'estrazione alla volta con tempi sicuramente maggiori.

Ciao

[cipacci]

Sempre gentilissimo flash; la "query web" sarebbe fantastico, anche se scrivere un estrazione al giorno non dovrebbe essere una fatica (partendo dal presupposto che io già ho un archivio di circa 6000 righe....) Cercherò di trovare qualche informazione sulla query web e vedere se riesco a combinare qualcosa....
Cmq qualche adattamento grafico lo voglio fare: ti chiedo: se volessi bloccare tutto il foglio (e/o l'intero file) ma mantere "editabili" solo alcune celle (questo per evitare di andare a modificare celle che NON devono essere modificate), come/cosa posso fare?
Grazie
Ciao

[cipacci]

Scusa Flash, ancora una cosa, sempre se possibile:

Il Tasto che hai creato di cui hai postato il codice poco più sopra, vorrei spostarlo verso destra dopo la colonna N; ho provato a cambiare qualche parametro nella routine ma non ci sono riuscito... non è che mi daresti qualche dritta?
Ancora Grazie
Ciao

[Anthony47]

Con tutto il rispetto per il vba, Flash e cipacci, non ha senso (in questo contesto) fare un pulsante con la macro; si fa con la forma disponibile tra gli strumenti "Modulo" (o Strumenti di controllo, per i piu' esperti) e gli si associa la macro che fa il vero lavoro. Cosi' ognuno fa il pulsante che vuole, grosso come vuole, con la scritta che vuole, nella posizione che vuole, etc etc.

Ciao