';
pc-facile
Valutazione 4.87/ 5 (100.00%) 5838 voti




Login
Iscriviti
Cerca
Topic senza risposta
Topic attivi
Indice
Assistenza Software
Applicazioni Office Windows

Trovare Le Ruote Corrispondenti Ai Valori

Rispondi al post

Pagina 1 di 1


Trovare Le Ruote Corrispondenti Ai Valori
ikwae @ 29/06/18 18:54

Ciao a tutti, sono ancora qui a chiedere il vostro prezioso e gradito aiuto.
Ho una notevole mole di dati che, oltre alle vincite, riportano anche su quale ruota è stata effettuata la vincita(a saperlo prima!). Quindi vorrei provare a trovare delle soluzioni alle tante idee che mi passano per la testa e, una di questa la propongo, su questo Forum, come richiesta di aiuto.
Ricapitolando ho le cinquine, le vincite e la ruota. Vorrei passare una a una le cinquine(più di 8.000) e confrontarle a vari livelli di scelta. Questo serve a dare non dico una certezza, altrimenti si va sul ridicolo, ma una semplice e misera indicazione che forse quella ruota può essere indicativamente la possibile “candidata”. Questa possibile “candidata” verrà valutata con altre eventuali elaborazioni e confronti.

Nel dettaglio la procedura di una macro oppure se si possono applicare delle formule per me vanno bene lo stesso...

Leggere il valore in U2 per esempio 4(può essere da 1 a 11) poi legge V2 la scritta SU quindi la macro deve continuare dalla prima all’ultima cinquina e trovare nella riga corrispondente i 4 maggiori numeri e, riportando solo le rispettive ruote, leggendoli in cima alla colonna, scrivendoli a dx di ogni cinquina a partire dalla colonna V.

Esempio pratico il più semplice che vale su tutte le cinquine:
U2=1 ...V2= SU ... 1à cinquina P4:T4 ... in AL4: AV4 legge il numero più alto (su 11) ipotizziamo che sia TO 70 e scriviamo solo la ruota in V4 TO

Altro esempio che vale su tutte le cinquine:
U2=4 ...V2= SU ... 4à cinquina P7:T7 ... in AL7: AV7 legge i 4 maggiori numeri (su 11) ipotizziamo che sono NA 70, FI 57, TO 48, BA 23 ... riportiamo rigorosamente in ordine decrescente ossia dal più alto al più basso (è il cuore dell’idea) solo le ruote in V7 NA in W7 FI in X7 TO e in Y7 BA

Altro esempio che vale su tutte le cinquine volutamente inserite voci doppie e triple ma sono possibili anche più di tre:
U2=6 ...V2= SU ... 8à cinquina P11:T11 ... in AL11: AV11 legge i 6 maggiori numeri (su 11) ipotizziamo che sono RN 88, MI 75, PA 33, RM 33 TO 33, FI 28, NA 28, CA 21, BA 16... riportiamo rigorosamente in ordine decrescente solo le ruote in V11 RN in W11 MI, in X11 PA, in Y11 RM, in Z11 TO, in AA11 FI, in AB11 NA, in AC11 CA, in AD11 BA

Nel caso che in V2= GIU’ si valuta al contrario anziché prendere i maggiori numeri com’è riportato in U2 si prendono i minori numeri mettendoli come gli altri a dx della cinquina interessata scrivendo le ruote in ordine crescente(al contrario di SU) vediamo un esempio:

Esempio pratico che vale su tutte le cinquine:
U2=3 ...V2= GIU’ ... 13à cinquina P16:T16 ... in AL16: AV16 legge i tre numeri più bassi (su 11) ipotizziamo che sia CA 1,TO 1, RM 3, PA 6 e scriviamo solo la ruota in ordine crescente ossia dal più basso verso l’alto in V16 CA, in W16 TO, in X13 RM, in Z16 PA

Inseriti i riferimenti in U2 e V2 tutte le 18 cinquine sono confrontate con l’unico valore impostato.

Spero di aver spiegato a sufficienza la mia idea ma si sa che c’è sempre qualche cosa che “scappa” e di conseguenza allego un file con dentro due fogli uno “Sviluppo” dove si può valutare la struttura o altri accorgimenti oppure effettuare prove. Un’altro foglio “Pippo” dove ho cercato di chiarire, anche visivamente, ulteriormente quanto descritto sopra.

Le prime prove che effettuerò, che ci tengo molto, saranno U2=11; V2= SU e con U2=11; V2= GIU’ anche se apparentemente insignificanti xé scriveranno tutte le ruote ma c’è il fatto che saranno scritte le prime in ordine decrescente e le seconde in ordine crescente quindi si capirà se il “mirino del cannone” è tarato bene.

Ringraziando anticipatamente tutti coloro che mi aiuteranno ... ikwae

http://www.filedropper.com/trovareleruo ... tiaivalori

Re: Trovare Le Ruote Corrispondenti Ai Valori
Anthony47 @ 30/06/18 02:16

Ho capito che le "cinquine" sono in colonna P:T, ma non ho capito che uso va fatto di quei numeri.
E dove sono le vincite?

Ciao

Re: Trovare Le Ruote Corrispondenti Ai Valori
ikwae @ 30/06/18 08:29

Ciao Anthony47 grazie per la celere risposta ... rispondo alla tua domanda le vincite sono un’indicazione di info ma non sono da considerare ... sono da considerare i numeri che stanno sulla stessa riga di ogni cinquina che sono 11 per ogni cinquina. Su questi 11 numeri si devono individuare i maggiori o minori numeri come riportato in U2 V2 e una volta individuati i numeri leggere le ruote che stanno in alto(scritte blu) e scriverli alla dx di ogni cinquina iniziando dalla colonna V. Scrivere solo le ruote in ordine Decrescente o Crescente in funzione di cosa è riportato in V2. Sul foglio “Pippo” che ho allegato ci sono delle indicazioni inerenti alla descrizione appena scritta spero che si possano “leggere” meglio.

Cordialmente ikwae

Re: Trovare Le Ruote Corrispondenti Ai Valori
Anthony47 @ 01/07/18 23:14

Con qualche dubbio legato all'interpretazione dei dati, propongo questa macro:
Codice: Seleziona tutto
Sub UpnDown()
Dim myN As String, myUD As String, myDCol As String
Dim mySD As String, myDrum As String, I As Long, J As Long
Dim myOL, myAll, LastR As Long, ccVal As Long, cOp As String
Dim cDr As String, cHO As Long
'
myN = "U2"      '<<< Il num di elementi
myUD = "V2"     '<<< Il Verso
myDCol = "V4"   '<<< L'inizio dei risultati
mySD = "P4"     '<<< L'inizio dei dati
myDrum = "AL3"  '<<< L'inizio delle intestazioni e delle estrazioni
'
If Range(myN).Value > 11 Then Range(myN).Value = 11
LastR = Range(myDrum).Cells(1, 1).End(xlDown).Row
myAll = Range(Range(myDrum), Range(myDrum).End(xlDown)).Resize(, 11).Value
cOp = UCase(Range(myUD))
Range(myDCol).Resize(UBound(myAll, 1), 11).ClearContents
For I = 1 To UBound(myAll, 1) - 1
    myOL = Application.WorksheetFunction.Index(myAll, I + 1, 0)
    cHO = 0
    For J = 1 To Range(myN).Value
        If cOp = "H" Then
            ccVal = Application.WorksheetFunction.Large(myOL, 1)
            Range(myDCol).Offset(I - 1, cHO) = myAll(1, Application.Match(ccVal, myOL, 0))
            myOL(Application.Match(ccVal, myOL, 0)) = 0
        Else
            ccVal = Application.WorksheetFunction.Small(myOL, 1)
            Range(myDCol).Offset(I - 1, cHO) = myAll(1, Application.Match(ccVal, myOL, 0))
            myOL(Application.Match(ccVal, myOL, 0)) = 999
        End If
        cHO = cHO + 1
    Next J
Next I
End Sub

Va messo in un modulo standard del vba; le istruzioni marcate <<< andranno personalizzate, se il layout dati fosse diverso da quanto pubblicato.
Ti avverto che, non piacendomi le scelte SU-GIU' in V2, il mio codice si aspetta H per "i valori piu' alti", e qualsiasi cosa diversa sara' interpretata come "i valori piu' bassi"

Ciao

Re: Trovare Le Ruote Corrispondenti Ai Valori
ikwae @ 02/07/18 00:09

Ciao Anthony47 ho provato a vari livelli il tuo lavoro e riporta quello che mi aspettavo che scrivesse tutto chiaro tutto ok ... Grazie per il tuo gradito e prezioso tempo che mi hai dedicato. Quando ti deciderai a dire di si alla spaghettata sui Navigli a Milano con il tuo Team a me farebbe molto piacere. Cordialmente ikwae

Re: Trovare Le Ruote Corrispondenti Ai Valori
ikwae @ 12/07/18 21:45

Ciao a tutti del Forum compresi ospiti e visitatori...
@ Antyony47 mi dispiace di riaprire questo post ma, mettendo a posto, una oceanica mole di dati, mi sono accorto che i conti non tornano e “spulciando” a ritroso ho capito che la macro lavora all’90% di come dovrebbe lavorare e mi spiego meglio se io metto in U2 il numero 4 mi aspetto che la macro trova le 4 ruote maggiori o minori in funzione di V2 e nella stragrande maggioranza lo fa ma, alcune volte, segna 4 ruote ma una o due ruote hanno gli stessi numeri quindi non legge 4 valori maggiori o minori ma solo 4 ruote diverse con i numeri una o due volte ripetuti. Quindi ricapitolando se io metto in U2 il numero 5(o altro numero rammento che possono essere da 1 a 11) deve trovare le 5 ruote maggiori o minori e poi in ultimo dopo le 5 ruote e, di seguito sulla stessa riga, tutte le altre ruote con numeri doppi o tripli se c’è ne sono altrimenti solo le 5 ruote. Questo particolare è descritto nella richiesta di aiuto del primo post e riportato sul foglio Pippo che avevo allegato... Comunque una svista o sicuramente non ho spiegato bene e me ne scuso. Quindi, gentilissimo Anthony47, se riesci a trovare del tempo, con calma, io attendo con pazienza fiducioso per modificare la macro ne sarei molto felice... Intanto che modifichi la macro ti pregherei di portare un’altra modifica, eventualmente apro un post di aiuto se non si può fare nulla. La modifica consiste di fare una seconda scansione partendo da U4:U21 e leggendo le voci riportate e le confronta con le ruote appena scritte e se c’è la colora(la ruota) altrimenti passa alla voce successiva come è specificato(anche visivamente) sul foglio Colori dell’allegato.
In allegato un file con dentro tre fogli uno Sviluppo che aggiunge visivamente quanto scritto sia per la macro sia per i colori e poi un foglio Org dove io prendo i dati da confrontare il foglio Org è solo per info. Anche stasera un doppio ambo ma se manca la ruota è una miseria di rimborso su una misera giocata due settimane fa una bella quaterna ma se si puntano 5 centesimi su tutte le ruote e 5 numeri ecco che la quaterna diventa poco più che una pizza tra amici... Come ho trovato da 2 a 4 numeri su 90 che escono di tanto in tanto vorrei trovare anche una ruota che esca di tanto in tanto e spero che con il tuo aiuto e di tutto il Forum possa sperare di arrivare a qualche cosa di concreto. Cordialmente ikwae

http://www.filedropper.com/z2017pescaruotaperrete

Re: Trovare Le Ruote Corrispondenti Ai Valori
Anthony47 @ 16/07/18 01:24

Il quesito riformulato richiede un algoritmo diverso da quanto fu usato, devo pensarci su ma il tempo e' latitante in questi giorni; se hai pazienza hai anche una speranza.

Ciao

Re: Trovare Le Ruote Corrispondenti Ai Valori
ikwae @ 16/07/18 08:34

Gentilissimo Anthony47 a tuo buon cuore.... Cordialmente ikwae


Rispondi al post

Pagina 1 di 1

Torna a Applicazioni Office Windows


Glossario | Blog | Cerca
© 2000-2018 pc-facile.com