excel lotto ,rilevare i numeri che non sono stati estratti

[gianluchissimo]

Buongiorno,avrei bisogno di una macro per il gioco del lotto.
È molto semplice :
Devo inserire tot . concorsi,supponiamo fino a 100 ,relativi alle prime 5 ruote (colonna A =data dell' Estraz.,tutte le restanti dalla b alla z sono relative alle ruote di Bari,Cagliari ,Firenze ,Genova ,Milano .
Vorrei che la macro rilevasse i numeri che non sono stati ancora estratti.
Spero che mi possiate aiutare.

[Flash30005]

Ciao Gialuchissimo e benvenuto nel Forum
il tuo quesito apparentemente sembra di facile soluzione ma in che senso vorresti rilevassi i numeri non usciti?
nell'ultimo concorso?
nei (supponiamo) 100 concorsi?
in una singola ruota?
o tra i numeri di tutte e 5 le ruote, (come mi sembra capire)?

ciao

N.B. non si possono fare delle macro su dei "supponiamo"
ed è bene che pubblichi il tuo file con archivio incorporato specificando l'esigenza sul foglio stesso

[ninai]

Ciao
una proposta con formule potrebbe essere:
esempio
estrazioni da B2:Z14

in una cella:
=SE.ERRORE(INDICE(RIF.RIGA($A$1:$A$90);PICCOLO(SE(CONTA.SE($B$2:$Z$14;RIF.COLONNA(A1:CL1))<1;RIF.COLONNA($A$1:$CL$1));RIF.RIGA(A1)));"")
Matriciale (da inviare con CTRL+Maisc+invio)

allego esempio
https://www.dropbox.com/s/yf5mrzfd6ojf6 ... ratti.xlsx

[gianluchissimo]

Ninai ,che testa che hai ! il tuo foglio è eccellente ,è esattamente quello che sto cercando.
Domanda :dichiarando come punto finale z 14 si possono inserire solo 14 concorsi ,e per analizzarne di più ?
In pratica ,chiedo ,dichiarando invece come punto finale z 100 ed inserendone solo 14 di concorsi ,funzionerebbe lo stesso? (Meglio abbondare anziché efficere )
P.s. dove la devo scrivere la formula che hai creato?

[ninai]

Ciao
Sulla testa.... che ho, non commento... .

Se cambi il 14 con 100, Sì, funziona lo stesso, ma ho visto che aumentando le righe (estrazioni) diventa meno probabile che vi siano numeri non estratti (in nessuna ruota), per questo ho limitato le righe .
La formula la puoi mettere dove vuoi, l'importante è dove metti i dati e che la invii correttamente, le matriciali si manipolano con attenzione.
Puoi anche trasformare il range dei dati in tabella (elenco), così la formula adatta le matrici in automatico, man mano che aggiungi le estrazioni.
attieniti al file di esempio, se hai dubbi vedrò di chiarirteli, nel limite delle mie possibilità

[gianluchissimo]

Va bene ,la proverò !
sulla questione della testa ,ne vorrei avere un millesimo della tua ....e adesso a parte gli scherzi ,prova ad immaginarti la mia di testa.ah ah

[ninai]

ti allego un file con la tabella predisposta (al momento solo la riga 3), si amplia in automatico man mano che aggiungi righe alla tabella.
e la formula leggermente diversa.
=SE.ERRORE(INDICE(RIF.COLONNA($A$1:$CL$1);PICCOLO(SE(CONTA.SE($B$3:$Z$3;RIF.COLONNA(A1:CL1))<1;RIF.COLONNA($A$1:$CL$1));RIF.RIGA(A1)));"")
Provalo se va bene.
https://www.dropbox.com/s/xum3gn88rs3uz ... atti2.xlsx

[gianluchissimo]

Premetto che io utilizzo excel 97, ebbene non sono riuscito neanche a caricare il tuo file dimostrativo....che viene convertito in una pagina di scarabocchi.
Preciso che invece sono riuscito ad aprirlo precedentemente con un tablet android ,e ho notato che i numeri venivano rilevati.
Venendo al dunque , ho caricato sul mio excel 97 ,13 estrazioni ,poi ho copiato la riga compilata da te e l'ho incollata nella cella Ac....poi ho cliccato: ctrl, tasto maiuscolo e invio, ma non e' successo niente.
Perdonami,ma sto sbagliando sicuramente qualcosa.

[ninai]

Non riconosce il se.errore(), lo puoi anche togliere compreso gli ultimi 4 caratteri finali . L alternativa al momento non riesco a d'arte la ( non sono al PC)

[gianluchissimo]

Ho provato a toglierlo ...ma non ho capito che cosa siano gli ultimi caratteri finali.
Non riesco a farlo girare .

[Anthony47]

La funzione Se.Errore e' stata introdotta su XL2007, quindi non e' presente sul tuo Pc.
Con Se.Errore puoi realizzare formule del tipo =Se.Errore(LaFormula;IlValoreNelCasoLaFormulaRestituiscaErrore)
Si tratta di una semplificazione rispetto alla precedente =Se(val.Errore(LaFormula);IlValoreNelCasoLaFormulaRestituiscaErrore;LaFormula)
Ninai ti ha suggerito di semplificare ulteriormente in =LaFormula ma in questo caso in caso di errore (cosa che succede quando i numeri da visualizzare sono finiti) ti tieni l' indicazione del tipo #NUM!

"LaFormula" suggerita da ninai e'

Codice: Seleziona tutto

=INDICE(RIF.COLONNA($A$1:$CL$1);PICCOLO(SE(CONTA.SE($B$3:$Z$17;RIF.COLONNA(A1:CL1))<1;RIF.COLONNA($A$1:$CL$1));RIF.RIGA(A1)))

(o forse stai usando la seconda??)

Ninai mi correggera' se ho sbagliato a interpretare, ma passavo e ho provato a essere utile.

Ciao

[ninai]

Grazie Anthony, come sempre preciso, pertinente e prezioso. Dal telefono non sarei mai riuscito a spiegarmi.

[gianluchissimo]

Mi accontenterei di usarne una qualsiasi,ma non ci riesco.
Ho fatto copia e incolla di questa formula :
=INDICE(RIF.COLONNA($A$1:$CL$1);PICCOLO(SE(CONTA.SE($B$3:$Z$17;RIF.COLONNA(A1:CL1))<1;RIF.COLONNA($A$1:$CL$1));RIF.RIGA(A1)))
L'ho incollata nella cella AB2 ,e ho dato l'invio con il ctrl ,maiusc ....nulla da fare.
Ho provato tante combinazioni ,come ad esempio a togliere l'=, ho provato a incollarla nella "riga delle funzioni ",ho provato a selezionare la matrice numerica ....nulla da fare.

Come posso risolvere il problema?

[Anthony47]

Prova ad allegare il file su cui testi le formule; per come fare guarda qui: viewtopic.php?f=26&t=80395

Ciao

[gianluchissimo]

Provo ad allegare il software office 97,ed il file
Nel file ci sono troppi concorsi ,magari eliminane fino a tenerne solo 20.
https://www.dropbox.com/sh/vjpribs59krw7bw/4Wx_GprfGp
https://www.dropbox.com/s/nndwaoqg2vg4g ... 2007.xls?m

[ninai]

che dire, a me, in AB2, la formula:
=INDICE(RIF.COLONNA($A$1:$CL$1);PICCOLO(SE(CONTA.SE($B$2:$Z$17;RIF.COLONNA(A1:CL1))<1;RIF.COLONNA($A$1:$CL$1));RIF.RIGA(A1)))
mi funziona e restituisce solo: 51

https://www.dropbox.com/s/mt71da6ftjdxz ... 281%29.xls

[gianluchissimo]

Ci sono riuscito.
Grazie per il prezioso aiuto.

[gianluchissimo]

A dire il vero ....
https://www.dropbox.com/s/wpkij1lzo6vv9 ... 0funz..xls

[gianluchissimo]

stavo riguardando meglio anchela tua prova :
esce soltanto il 51.
riga 20 col j
riga 21 col g

non ho approfondito ulteriormente.

comunque a me esce sempre e solo 1

[Anthony47]

1) Nel file allegato la formula non e' stata introdotta con Contr-Maiusc-Enter
2) Introducendola con Contr-Maiusc-Enter restituisce subito #NUM!, perche' non c' e' nessun numero che non sia gia' stato estratto

Comunque la formula puo' essere semplificata in

Codice: Seleziona tutto

=PICCOLO(SE(CONTA.SE(B$3:Z$31;RIF.COLONNA(A1:CL1))=0;RIF.COLONNA(A1:CL1);"");RIF.RIGA(A1))

Se vuoi evitare l' indicazione di Errore, inserisci detta formula (privata dell' Uguale iniziale) in un Se:
=Se(Val.Errore(LaFormula);"";LaFormula)

Ciao