Condividi:        

FREQUENZA TERNI

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

FREQUENZA TERNI

Postdi crisros » 12/11/10 18:28

Salve, ho provato adattando qualche macro cercata in alcuni post simili nel forum, ma con tutta la buona volontà non riesco, quindi cerco aiuto a Voi che vivete su un'altro pianeta. Il quesito è questo da un archivio estrazioni ricavare la frequenza dei terni. Allego file campione per spiegarmi meglio.
Un saluto a tutti e ringrazio in anticipo chi vuole interessarsi alla cosa. ;)
http://www.freefilehosting.net/fileesempio
crisros
Utente Junior
 
Post: 14
Iscritto il: 17/05/10 11:21

Sponsor
 

Re: FREQUENZA TERNI

Postdi Anthony47 » 12/11/10 23:39

Io suggerisco questo metodo:
-in H2 metti la formula
Codice: Seleziona tutto
=TESTO(B2;"00")&"-"&TESTO(C2;"00")&"-"&TESTO(D2;"00")&"-"&TESTO(E2;"00")&"-"&TESTO(F2;"00")&"-"&TESTO(G2;"00")&"-"

-in N2
Codice: Seleziona tutto
=TESTO(J2;"00")&"-"&TESTO(K2;"00")&"-"&TESTO(L2;"00")&"-"

-infine in M2 calcoli quante volte quella combinazione e' uscita con la formula
Codice: Seleziona tutto
=SOMMA(--NON(VAL.ERRORE(TROVA(N2;H$2:H$2000))))
che confermerai con Contr-Maiusc-Enter. La formula e' per 2000 righe di estrazione, se pensi di averne di piu' maggiora quel $2000 portandolo a $2500, o quello che ti serve.
Poi copia H2, N2 e M2 verso il basso.

Non so se e' questo che intendi per "frequenza", se NO questo conteggio e' certamente la base su cui callcolarla.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FREQUENZA TERNI

Postdi crisros » 13/11/10 01:11

Grazie Anthony,
ho seguito alla lettera le tue indicazioni, non so se tu lo hai testato sul mio file ma a me non funziona la formula
=SOMMA(--NON(VAL.ERRORE(TROVA(N2;H$2:H$2000)))) da tutti valori = a 0
ciao
crisros
Utente Junior
 
Post: 14
Iscritto il: 17/05/10 11:21

Re: FREQUENZA TERNI

Postdi Anthony47 » 14/11/10 01:14

Usando le formule che ti ho dato sul tuo file leggermente modificato (vedi aree in giallo) ho ottenuto questi risultati:
Immagine

Uploaded with ImageShack.us
Non e' un collaudo esaustivo, ma ho risultati verosimili e non ho gli "0" di cui tu scrivi.
Mi fai vedere il tuo screenshot? (vedi qui: viewtopic.php?f=26&t=80395#p466013)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FREQUENZA TERNI

Postdi crisros » 14/11/10 16:05

Il conteggio delle frequenze avvie solo sui pri tre numeri della sequenza
Immagine
Ciao e grazie
crisros
Utente Junior
 
Post: 14
Iscritto il: 17/05/10 11:21

Re: FREQUENZA TERNI

Postdi Anthony47 » 15/11/10 00:35

Oopsss...
La soluzione che ti ho proposto e' una boiata pazzesca e non puo' proprio funzionare.
Eppure mi era sembrato che avendo ordinati crescente sia i dati sia di estrazione che di ricerca la cosa avrebbe funzionato... Forse dovevo andare a riposare prima.

Non mi vengono in mente formule efficaci, temo che ci vorra' una macro, ma per i giochi del lotto non sono ferratissimo (e l' ho dimostrato); quindi per il momento non mi cimento.

Vediamo se altri possono suggerire qualcosa di buono.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FREQUENZA TERNI

Postdi Flash30005 » 15/11/10 02:04

Ho scaricato il foglio da te inviato e con i dati impostati in quella maniera puoi usare questa macro

Codice: Seleziona tutto
Sub Frequenza()
Application.ScreenUpdating = False
Application.Calculation = xlManual
URF = Worksheets("Foglio1").Range("M" & Rows.Count).End(xlUp).Row
If URF < 2 Then URF = 2
Worksheets("Foglio1").Range("M2:M" & URF).ClearContents
URT = Worksheets("Foglio1").Range("J" & Rows.Count).End(xlUp).Row
URA = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RT = 2 To URT
    TernoI = Format(Worksheets("Foglio1").Range("J" & RT).Value, "00") & Format(Worksheets("Foglio1").Range("K" & RT).Value, "00") & Format(Worksheets("Foglio1").Range("L" & RT).Value, "00")
    For RA = 2 To URA
        For Ca1 = 2 To 5
            For Ca2 = Ca1 + 1 To 6
                For Ca3 = Ca2 + 1 To 7
                TernoA = Format(Worksheets("Foglio1").Cells(RA, Ca1).Value, "00") & Format(Worksheets("Foglio1").Cells(RA, Ca2).Value, "00") & Format(Worksheets("Foglio1").Cells(RA, Ca3).Value, "00")
                If TernoA = TernoI Then
                    Worksheets("Foglio1").Range("M" & RT).Value = Worksheets("Foglio1").Range("M" & RT).Value + 1
                    GoTo SaltaRA
                End If
                Next Ca3
            Next Ca2
        Next Ca1
SaltaRA:
    Next RA
Next RT
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: FREQUENZA TERNI

Postdi crisros » 15/11/10 21:22

Grazie Flash,
la macro funziona perfettamente, sei un grande.
Un ringraziamento anche a Anthony per l'interessamento, siete comunque BRAVISSIMI. :D
crisros
Utente Junior
 
Post: 14
Iscritto il: 17/05/10 11:21


Torna a Applicazioni Office Windows


Topic correlati a "FREQUENZA TERNI":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti