Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ricerca valori

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ricerca valori

Postdi victor49 » 29/07/10 08:59

Ciao mi sono appena iscritto a questo forum, ho bisogno di una cortesia, non riesco a calcolare le frequenze dei numeri usciti successivi al numero spia, passo alla spiegazione dettagliata.

Nel foglio allegato vedi foto sottoImmagine inserendo nel campo H3(dove c'e' il numero 8 )con la formattazione evidenzia il numero selezionato, qual'e' il primo numero/i della decina che si e' presentato successivamente?( 31-01-2006 esce il numero 8 il numero/i della decina (k4:t4 nel foglio allegato) e successivamente il numero 3 come da foto.
La rotine di ricerca dovrebbe scivere nel foglio solo i numeri usciti x primi dopo l'uscita del numero selezionato e raggupparli x frequenza in (K5:T5).
Manualmente con le formule di excel non ci sono riuscito, l'unico medoto è il VBA che non conosco.
C'e' qualcuno che mi puo' aiutare?
Grazie anticipatamente

vittorio
Qui il foglio esempio
http://www.megaupload.com/?d=ZQ8QG67H
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Sponsor
 

Re: Ricerca valori

Postdi Flash30005 » 29/07/10 14:47

Ciao Victor49 e benvenuto nel Forum

Malgrado tu abbia inviato immagine e file è poco chiara la definizione del numero "spia"
è un numero ricavato da un'analisi oppure è inserito manualmente (nel tuo caso il numero 8 )?

Poi...i numeri da prendere in considerazione si riferiscono solo alla prima decina?

Inoltre hai riportato degli esempi per evidenziare quali numeri dovevano essere presi in considerazione nelle estrazioni successive al "numero spia" es. il "3" del 2/02/2006 e il "7" del 21/02/2006 e perché non il "7" del 7/02/2006 o il "2" e il numero "1" rispettivamente del 2 e 4 marzo 2006?

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 29/07/10 23:29

Grazie Flash30005!

Si e vero la foto no era una grande foto, vedi questa e' piu chiara.

http://img821.imageshack.us/img821/1702/provaspia2.gif
Qui il file esempio in excel
http://www.megaupload.com/?d=BJ08LGXM
Il numero Spia e’ inserito a mano, mediante la formattazione condizionale e’ evidenziato con il numero 8.
I numeri da prendere in considerazione sono quelli che si trovano nel range (K2:T2) con il nome decina 01-10.
L’analisi e’ la seguente: dopo l’uscita del numero 8, qual’e’ stato il solo numero della decina che si trova nel range K2:T2 che e’uscito?
-----------------------------------------------------------------------------------------------------------------------------------------------
Inoltre hai riportato degli esempi per evidenziare quali numeri dovevano essere presi in considerazione nelle estrazioni successive al "numero spia" es. il "3" del 2/02/2006 e il "7" del 21/02/2006 e perché non il "7" del 7/02/2006 o il "2" e il numero "1" rispettivamente del 2 e 4 marzo 2006?
Si a me interessa solo il primo numero uscito dopo il numero 8 e nessun altro, il 07 e il 02 no.
Altro esempio:il 31/01/2006 esce il numero 08 il numero che a me interessa e’solo il primo della decina che e’ il numero 03 uscito successivamente il 02/02/2006, poi il 18/02/2008 esce il numero 08 e nell’estrazione succesiva esce il numero 07 il 21/02/2006, ancora l’11/03/2006 esce l’8 e all’estrazione del
14/03/2006 escono due numeri 06 e il 07.
La routine dovrebbe raggruppare le uscite del numero 8 e scrivere a fianco il numero uscito Es. in K20 come da foto il numero 03 in k28 il num.07- in k37 i numeri 06-07
Le volte che deve contare il numero 08 dal’ ultima estrazione in su sono circa 30 modificabili dall’utente .
Ultima estrazione s’intende il 27/07/2010 andando a ritroso sino a trovare 30 volte( modificabile dall’utente) il numero 08.
Grazie
victror49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi victor49 » 01/08/10 08:19

Immagine

Non mi aiuta nessuno?

Grazie
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Flash30005 » 01/08/10 08:45

Inserisci nel tuo foglio "Data Ultima" cella I2 il numero di volte che vuoi incontrare il numero spia (es. 30) e avvia questa macro
Codice: Seleziona tutto
Sub Analizza()
UR = Sheets("Data Ultima").Range("A" & Rows.Count).End(xlUp).Row
If UR < 5 Then UR = 5
Range("H5:I" & UR).Clear
Range("K3:T" & UR).ClearContents
For TT = 1 To 10
If TT <> [H2] Then
Cells(3, TT + 10).Value = TT
Cells(4, TT + 10).Value = 0
Else
Cells(3, TT + 10).Value = "x"
End If
Next TT
Conta = 0
MConta = 0
MaxC = [I2]
For RR = 5 To UR
If Conta >= MaxC Then GoTo esci
    For CC = 3 To 7
        If Cells(RR, CC).Value = [H2] Then
            Range("H" & RR).Value = [H2]
            Range("I" & RR).Value = 1
            Range("I" & RR).Interior.ColorIndex = 6
            Range("I" & RR).Font.ColorIndex = 3
            Conta = Conta + 1
            Range("H3").Value = Conta
        End If
        If MConta <> Conta Then
            For CCn = 11 To 20
                ValN = Cells(3, CCn).Value
                If ValN <> "x" Then
                    If Cells(RR, CC).Value = ValN Then
                    UC = Range("IV" & RR).End(xlToLeft).Column + 1
                    If UC < 11 Then UC = 11
                        Cells(RR, UC).Value = ValN
                        Cells(4, ValN + 10).Value = Cells(4, ValN + 10).Value + 1
                        MConta = Conta
                    End If
                End If
            Next CCn
        End If
    Next CC
Next RR
esci:
End Sub


In caso di problemi scarica questo file

Ciao

Nota: modificata macro e file ore 11:20 (la macro ora sostituisce le formule) - Flash30005

P.s. Mi domando: se i numeri spia sono considerati come numeri che dovrebbero "anticipare" un evento, come mai l'ordine delle estrazioni, nel tuo progetto, è decrescente e l'analisi ricava i numeri usciti precedentemente al numero spia?
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 01/08/10 11:19

Grazie Flash30005!

P.s. Mi domando: se i numeri spia sono considerati come numeri che dovrebbero "anticipare" un evento, come mai l'ordine delle estrazioni, nel tuo progetto, è decrescente e l'analisi ricava i numeri usciti precedentemente al numero spia?
R:
Hai perfettamnte ragione, e' stata una mia svista nell'ordinare l'archivio,comunque il foflio giusto e' il foglio 1.

La macro sembra che funzioni quasi bene, tranne alcune cosette vedi foto:
Immagine

25/05/2010 11.57.58.08.10 ---> esce il numero 08
22/05/2010 30.18.78.09.12 ---> dopo il 09 mentre la macro scrive il numero 10

06/05/2010 55.74.39.08.65 ---> qui esce il numero 08
04/05/2010 05.41.86.06.66 ---> 05 e 06 mentre la macro scrive solo il numero 05

PS:Nel foglio "data Ultima" su H3(30) Come posso fare x fargli leggere ad esempio 35 volte il numero 08.(nel nostro caso)

Grazie
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi victor49 » 01/08/10 11:43

X Flash30005!

Allego il file con le mofichehttp://rapidshare.com/files/410342752/ProvaLotto5.rar

Grazie di nuovo

victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Flash30005 » 01/08/10 16:41

victor49 ha scritto:06/05/2010 55.74.39.08.65 ---> qui esce il numero 08
04/05/2010 05.41.86.06.66 ---> 05 e 06 mentre la macro scrive solo il numero 05


perchè qui avevi detto
victor49 ha scritto:Si a me interessa solo il primo numero uscito dopo il numero 8 e nessun altro, il 07 e il 02 no


Stesso dicasi per il 10 nella stessa estrazione del 25/05/2010
victor49 ha scritto:25/05/2010 11.57.58.08.10 ---> esce il numero 08
22/05/2010 30.18.78.09.12 ---> dopo il 09 mentre la macro scrive il numero 10

(uscito l'8 come 4° numero e 10 come 5° numero, il 9 si trova nell'estrazione successiva, quindi escluso)


Comunque ho aggiustato la macro secondo le ultime specifiche

Codice: Seleziona tutto
Sub Analizza()
UR = Sheets("Data Ultima").Range("A" & Rows.Count).End(xlUp).Row
If UR < 5 Then UR = 5
Range("H5:I" & UR).Clear
Range("K3:T" & UR).ClearContents
For TT = 1 To 10
If TT <> [H2] Then
Cells(3, TT + 10).Value = TT
Cells(4, TT + 10).Value = 0
Else
Cells(3, TT + 10).Value = "x"
'Cells(4, TT + 10).Value = 0   '<<<< togli il commento se vuoi lo zero anche in corrispondenza del numero spia
End If
Next TT
Conta = 0
MConta = 0
MRR = 0
MaxC = [I2]
For RR = 5 To UR
If Conta >= MaxC Then GoTo esci
    For CC = 3 To 7
            If MConta <> Conta Then
            For CCn = 11 To 20
            For CC2 = 3 To 7
                ValN = Cells(3, CCn).Value
                If ValN <> "x" Then
                    If Cells(RR, CC2).Value = ValN Then
                    UC = Range("IV" & RR).End(xlToLeft).Column + 1
                    If UC < 11 Then UC = 11
                        Cells(RR, UC).Value = ValN
                        Cells(4, ValN + 10).Value = Cells(4, ValN + 10).Value + 1
                        MConta = Conta
                    End If
                End If
                Next CC2
            Next CCn
        End If
        If Cells(RR, CC).Value = [H2] Then
            Range("H" & RR).Value = [H2]
            Range("I" & RR).Value = 1
            Range("I" & RR).Interior.ColorIndex = 6
            Range("I" & RR).Font.ColorIndex = 3
            Conta = Conta + 1
            Range("H3").Value = Conta
            GoTo salta
        End If
    Next CC
salta:
Next RR
esci:
End Sub


Per avere un numero di ricerca maggiore o minore del "numero spia" devi modificare in I2 il valore che attualmente è 30
(in H3 hai il conteggio effettivo dei numeri spia incontrati. Questo valore viene inserito dalla macro quindi non è modificabile)

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 01/08/10 23:25

X Flash30005

Sei veramente un mago! funziona come volevo io grazie !

Ora x cambiare la decina come devo fare? Che mi devo buttare al fiume o la mare?

http://img832.imageshack.us/img832/7000/decina.gif

Ad esempio: 11.12.13.14.15.16.17.18.19.20-//- 21.22.23.24.25.26.27.28.29.30--> sino a 90

Grazie mago!

victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Flash30005 » 01/08/10 23:51

é sufficiente che sostituisci i valori in questa riga
Codice: Seleziona tutto
For TT = 1 To 10

con
Codice: Seleziona tutto
For TT = 11 To 20

o
Codice: Seleziona tutto
For TT = 21 To 30


etc

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 02/08/10 09:08

Ciao flash30005

"Non mandarmi a quel paese"

Ho fatto la modifica sostituendo i valori di
For TT = 1 To 10 - con For TT = 11 To 20 x la
decina 11-20, ma sorge un problema la macro non
scrive più negli appositi spazi e non calcola +
le varie frequenze vedi foto sotto,
forse ho sbagliato a scrivere'?
Immagine
Ciao

Victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Flash30005 » 02/08/10 10:23

Ho scaricato il file "provaLotto5.rar" da te inviato ma oltre a non contenere la macro, ha le righe spostate e non secondo lo schema iniziale (in queste condizioni la macro non può funzionare)
inoltre, mi sono accorto che, la modifica del codice per incremento delle decine non poteva funzionare senza intervenire su altre righe, quindi, per evitare errori, invio questo file modificato

Fai sapere
Ciao

P.s. nella cella unita K2:T2 dovrai mettere la decina che vuoi analizzare (10 per 1->10; 20 per 11->20; 90 per 81->90)
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 02/08/10 21:17

x Flash30005


Dopo quest'ultimo tuo intervento sembra che funziona tutto, ora la testo, poi ti faccio sapere.


Grazie Flash30005
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi victor49 » 03/08/10 08:13

Ciao Flash30005!

Ho trovato un piccolissimo errore vedi foto sotto:
Immagine

Le frequenze dell'ultimo numero di qualsiasi decina, nella foto il numero 90, non vengono scritte nella casella esatta,nel nostro caso in T4 ma in AD4 e non vengono calcolate in somma, puoi intervenire?

X il resto funziona tutto

Grazie

victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi victor49 » 04/08/10 11:07

Ciao Flash30005!

Puoi fare la mofica?


Grazie


victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Flash30005 » 04/08/10 12:15

Si,
è un piccolo bug dovuto a modifica solo parziale di una riga codice
quindi fai tu stesso questa variazione nella macro prendendo come riferimento le righe esistenti

Codice: Seleziona tutto
                        VC = ValN Mod 10 + 10    '<<<< esistente (lasciare così)
                        If VC = 10 Then VC = VC + 10   '<<<<<<< da modificare così (mettere 10 al posto di 20)
                        Cells(4, VC).Value = Cells(4, VC).Value + 1  '<<<< esistente (lasciare così)


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca valori

Postdi victor49 » 04/08/10 12:29

x Flash3005


Funge funge funge ---->>> tutto ora


Grazie
Ciao

victor49
victor49
Utente Junior
 
Post: 21
Iscritto il: 29/07/10 08:28

Re: Ricerca valori

Postdi Statix » 05/08/10 22:09

Ciao victor49,
Nonostante la macro funge ,hai ancora un errore di valutazione,
cosa succede se dopo un 8 c'è ancora un 8 ? :o
Viene contato? :o :o
e dopo da dove riparte?
voglio darti un aiuto, 8) 8)
se dopo un 8 c'è un 8 , 8 deve essere contato,
e dopo deve ripartire da questo 8 contato. ;) ;)
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Ricerca valori

Postdi Statix » 05/08/10 22:20

Ciao victor49,
ti dò un'altra dritta
mi ero dimenticato di dirti che la ricerca da te effettuata per essere precisa, devi invertire l'archivio,
l'ultima estrazione in alto o modificare la macro in modo che cominci la ricerca dall'ultima in basso a salire
visto che devi andare a ritroso,cosi come è nell'esempio è sbagliato. ;)
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Ricerca valori

Postdi Statix » 05/08/10 22:37

Ti allego una foto di come devono essere contati,
nell'esempio da te postato ,i numeri contati sono sbagliati.
Immagine
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Ricerca valori":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti

cron