FREQUENZA TERNI

[crisros]

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

[Anthony47]

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

[crisros]

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

[Anthony47]

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


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

[crisros]

Il conteggio delle frequenze avvie solo sui pri tre numeri della sequenza

Ciao e grazie

[Anthony47]

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

[Flash30005]

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

[crisros]

Grazie Flash,
la macro funziona perfettamente, sei un grande.
Un ringraziamento anche a Anthony per l'interessamento, siete comunque BRAVISSIMI.