Condividi:        

[excel]Ancora sul Lotto

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

[excel]Ancora sul Lotto

Postdi Vale79 » 06/09/13 14:37

Ciao a tutti :D
Mi serve una formuletta per ricavare la maggiore presenza dei 5 numeri compresi nelle celle con intervallo B2:E91
I 5 numeri più presenti devono comparire nelle celle C94-C95-C96-C97-C98, naturalmente nella C94 ci va il numero più frequente mentre nella C98, ovvero l'ultima, il 5° più frequente :P

Spero di essere stato chiaro :roll:

Edit. dimenticavo, di fianco al numero vorrei sapere quante volte compare


EDIT Flash30005: Spostato in nuovo topic
Avatar utente
Vale79
Utente Junior
 
Post: 45
Iscritto il: 24/10/11 08:57

Sponsor
 

Re: [excel]Ancora sul Lotto

Postdi Flash30005 » 06/09/13 22:49

Veramente sto ancora aspettando il file
Ma questo quesito è inerente a quanto descritto dal tuo topic?

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: [excel]Ancora sul Lotto

Postdi Vale79 » 06/09/13 23:04

Ciao bello, no questo è inerente il Lotto! :D

Ti serve il file? :roll:
Avatar utente
Vale79
Utente Junior
 
Post: 45
Iscritto il: 24/10/11 08:57

Re: [excel]Ancora sul Lotto

Postdi Vale79 » 09/09/13 11:43

Ciao flash, ti ho mandato il file via mail, novità? :)
Avatar utente
Vale79
Utente Junior
 
Post: 45
Iscritto il: 24/10/11 08:57

Re: [excel]Ancora sul Lotto

Postdi Flash30005 » 09/09/13 22:46

Come formula non saprei ma con questa macro dovresti risolvere
poi l'attivi con comandi scelta rapida.
Codice: Seleziona tutto
Sub ContaMaxFreq()
Mmax = 0
Conta = 0
Worksheets("Foglio1").Range("C94:E190").ClearContents
For NN = 1 To 90
    MyCount = Evaluate("=COUNTIF(Foglio1!B2:E91," & NN & ")")
    If Mmax < MyCount Then Mmax = MyCount
Next NN
For M = Mmax To 0 Step -1
    For NN = 1 To 90
        MyCount = Evaluate("=COUNTIF(Foglio1!B2:E91," & NN & ")")
        If M = MyCount Then
            Conta = Conta + 1
            UR = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row + 1
            Worksheets("Foglio1").Range("C" & UR).Value = NN
            Worksheets("Foglio1").Range("E" & UR).Value = MyCount
            If Conta > 4 Then Exit Sub
        End If
    Next NN
Next M
End Sub


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: [excel]Ancora sul Lotto

Postdi Vale79 » 10/09/13 08:03

Ciao, ti giuro c'ho provato, ma le macro non fanno per me :oops:

Ti invio il file x email, appena puoi inseriscila tu per favore.
Avatar utente
Vale79
Utente Junior
 
Post: 45
Iscritto il: 24/10/11 08:57

Re: [excel]Ancora sul Lotto

Postdi Vale79 » 10/09/13 09:27

OK, tutto a posto ho risolto :lol:

Grazie ;)
Avatar utente
Vale79
Utente Junior
 
Post: 45
Iscritto il: 24/10/11 08:57


Torna a Applicazioni Office Windows


Topic correlati a "[excel]Ancora sul Lotto":


Chi c’è in linea

Visitano il forum: Nessuno e 133 ospiti