Condividi:        

Cerca Combinazione numeri (Ambi-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

Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 26/01/15 20:59

Salve a tutti,

ho una richiesta di aiuto da fare, spero mi potete aiutare.
Ho postato il file perchè senza di quello non credo mi potete venire incontro.
Il dettaglio, dentro il file c'è un archivio con a fianco 3 specchietti.
Di ogni riga degli specchietti occorre cercare dei 3 numeri 2 nell'archivio
e indicare le uscite di 2 numeri.
Lo stesso dicasi del secondo specchietto cioè su 4 numeri 2,(ambo)
mentre nel terzo su 5 numeri trovarne 3 (terno)
la ricerca di ogni riga, specchietti deve partire quando trova
uno o entrambi dei numeri fissi (se trovo il 25 oppure 52 inizia la ricerca)
in un range da stabilire max 15.
http://www.filedropper.com/cerca

Grazie della considerazione ... e aspetto per chiarimenti.
Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 29/01/15 08:49

Salve a tutti,

nell'attesa canto:

"Italia si, Italia no se fammo du spaghi..."

Buona giornata a tutti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 29/01/15 12:35

Non è molto chiaro cosa intendi per "inizia la ricerca in un range da stabilire max 15"
:?:
Dopo 15 estrazioni cosa succede, passa alla coppia successiva?
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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 29/01/15 13:08

Salve e buona giornata,

per "in un range max 15"
cioè rilevare gli ambi che ci sono da quando trova un o due
numeri fissi.
In una cella deve essere indicato il range.
Io ho scritto max 15 indicativamente ma può essere anche meno.

Salve
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 29/01/15 14:01

Continuo a non capire
Fai un esempio pratico inserendo i valori nella tabella, almeno un paio, per capire meglio
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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 29/01/15 14:38

Salve,

hai ragione a non capire;
non c'è nessun range da stabilire.

Deve verificare se e quando trova almeno uno dei numeri
fissi quante volte si è verificato l'ambo dei 3 numeri su tutto l'archivio.
Es 25-52-1: quante volte ha trovato l'ambo?
Es 25-52-2:quante volte ha trovato l'ambo?
ecc
In questo caso della terna è obbligato a trovare almeno un numero dei fissi,
mentre nel caso della quaterna deve comunque trovare un numero fisso.

del secondo e terzo specchietto la ricerca deve essere distinta dalla prima
Cioè la macro 1 rileva per riga le 10 combinazione, mentre la seconda
macro controllerà solo le quaterne del secondo e così della terza.

Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 29/01/15 19:04

Salve Flash,

se è per questioni di tempo no problem,
forse non ti ho chiarito qualcosa?

ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 29/01/15 22:18

Ecco in tutto l'archivio è più chiaro che con un range ma ora sorge un altro dubbio scaturito dalla discordanza delle tue richieste

Prima dici (e si vede anche in tabella) che il 25 è un fisso come il 52 quindi l'ambo da trovare è la combinazione di uno di questi numeri con l'1 (abbinato)
quindi se trova 25-1 (conteggerà) come conteggerà se trova 52-1
ma non conteggerà se trova 25-52 (questo avevo capito nei primi post)

mentre ora dici (ultimi post)
giorgioa ha scritto:Deve verificare se e quando trova almeno uno dei numeri
fissi quante volte si è verificato l'ambo dei 3 numeri su tutto l'archivio.
Es 25-52-1: quante volte ha trovato l'ambo?

Ma in questo caso è ambo anche se trova 25-52

quindi?
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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 29/01/15 22:43

Salve,

mi fai sorgere il dubbio anche a me.
Va bene non lo conteggiare il 25-52,
però se si trova il 25-52-1 ne deve conteggiare 2.
cioè 25-1; 52-1.
Interessa che almeno una fissa aggancia il terzo.
cioè l'1, il 2 ecc.

Va bene così perchè dopo il conteggio dei numeri 1...10
farò altre 2 tornate di 10 numeri sempre abbinati al 25-52.
Ne verranno fuori 3-4-5 cinquine con i numeri più usciti,
sempre abbinati al 25-52.
Praticamente delle 3 decine in ogni cinquina circolerà un solo numero.
Questo è il finale, se quasi quasi vuoi impostare il progetto sempre che mi sono spiegato.

Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 30/01/15 00:07

A questo punto...
giorgioa ha scritto:mi fai sorgere il dubbio anche a me.


Ma tu sei sicuro di sapere cosa vorresti? :D

Considera che una macro del genere non è tanto semplice e dovrei dedicare del tempo
tempo che non vorrei andasse perduto specialmente se si dovranno fare modifiche successive per non aver avuto le idee chiare sin dall'inizio.
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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 30/01/15 00:32

Salve Flash,

colloquiando mi sono convinto che va bene quello detto.
contare uno dei due fissi con gli altri.
Ti ho detto alla fine cosa farò.
Dell' ultima parte del messaggio precedente non so se ti vuoi impegnare
ma è quello l'obiettivo finale.
Non si tratta di essere sicuro o meno si tratta di limare cose che non ho visto.
Per esempio mi sono reso conto che non serviva il range entro il quale controllare
che cosa: niente. Se trovo il 25 o il 52 vedere se il numero aggiunto ha diverse uscite.

Per me puoi continuare.

ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 30/01/15 01:54

Inserisci questa macro in un modulo e avvia la macro "TrovaAmbi23"
Codice: Seleziona tutto
Sub TrovaAmbi23()
Inizio = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual

WS1 = "Foglio1"
Worksheets(WS1).Range("M3:M12").ClearContents
URA = Worksheets(WS1).Range("A" & Rows.Count).End(xlUp).Row
For RRC1 = 3 To 12
    For RRA = 3 To URA
MyC1 = 0
MyC2 = 0
MyCA = 0
        MyC1 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!J" & RRC1 & "))")
        MyC2 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!K" & RRC1 & "))")
        MyCA = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!L" & RRC1 & "))")
        If MyC1 + MyCA = 2 Then Worksheets(WS1).Range("M" & RRC1).Value = Worksheets(WS1).Range("M" & RRC1).Value + 1
        If MyC2 + MyCA = 2 Then Worksheets(WS1).Range("M" & RRC1).Value = Worksheets(WS1).Range("M" & RRC1).Value + 1
        Next RRA
    Next RRC1
TrovaAmbi24
TrovaAmbi35

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Range("R1").Value = Int((Timer - Inizio) * 100) / 100
End Sub

Private Sub TrovaAmbi24()
WS1 = "Foglio1"
Worksheets(WS1).Range("N15:N20").ClearContents
URA = Worksheets(WS1).Range("A" & Rows.Count).End(xlUp).Row
For RRC1 = 15 To 20
    For RRA = 3 To URA
MyC1 = 0
MyC2 = 0
MyCA = 0
MyCA2 = 0
        MyC1 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!J" & RRC1 & "))")
        MyC2 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!K" & RRC1 & "))")
        MyCA = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!L" & RRC1 & "))")
        MyCA2 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!M" & RRC1 & "))")
        If MyC1 + MyCA = 2 Then Worksheets(WS1).Range("N" & RRC1).Value = Worksheets(WS1).Range("N" & RRC1).Value + 1
        If MyC1 + MyCA2 = 2 Then Worksheets(WS1).Range("N" & RRC1).Value = Worksheets(WS1).Range("N" & RRC1).Value + 1
        If MyC2 + MyCA = 2 Then Worksheets(WS1).Range("N" & RRC1).Value = Worksheets(WS1).Range("N" & RRC1).Value + 1
        If MyC2 + MyCA2 = 2 Then Worksheets(WS1).Range("N" & RRC1).Value = Worksheets(WS1).Range("N" & RRC1).Value + 1
        Next RRA
    Next RRC1
End Sub

Private Sub TrovaAmbi35()
WS1 = "Foglio1"
Worksheets(WS1).Range("O23:O26").ClearContents
URA = Worksheets(WS1).Range("A" & Rows.Count).End(xlUp).Row
For RRC1 = 23 To 26
    For RRA = 3 To URA
MyC1 = 0
MyC2 = 0
MyCA = 0
MyCA2 = 0
MyCA3 = 0
        MyC1 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!J" & RRC1 & "))")
        MyC2 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!K" & RRC1 & "))")
        MyCA = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!L" & RRC1 & "))")
        MyCA2 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!M" & RRC1 & "))")
        MyCA3 = Evaluate("=SUM(COUNTIF(" & WS1 & "!C" & RRA & ":G" & RRA & "," & WS1 & "!N" & RRC1 & "))")
        If MyC1 + MyCA + MyCA2 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        If MyC1 + MyCA + MyCA3 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        If MyC1 + MyCA2 + MyCA3 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        If MyC2 + MyCA + MyCA2 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        If MyC2 + MyCA + MyCA3 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        If MyC2 + MyCA2 + MyCA3 = 3 Then Worksheets(WS1).Range("O" & RRC1).Value = Worksheets(WS1).Range("O" & RRC1).Value + 1
        Next RRA
    Next RRC1
End Sub


Ciao

EDIT: modificata macro ore 02:20
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: Cerca Combinazione numeri (Ambi-Terni)

Postdi ninai » 30/01/15 07:33

Ciao a tutti
scusate l'intromissione, do la mia versione con formule:

in M3:
Codice: Seleziona tutto
=SOMMA(--(MATR.PRODOTTO(CONTA.SE(J3:L3;$C$3:$G$5411);RIF.RIGA($A$1:$A$5)^0)=2))-SOMMA(--(MATR.PRODOTTO(CONTA.SE(J3:K3;$C$3:$G$5411);RIF.RIGA($A$1:$A$5)^0)=2))


in N15:
Codice: Seleziona tutto
=SOMMA(--(MATR.PRODOTTO(CONTA.SE(J15:M15;$C$3:$G$5411);RIF.RIGA($A$1:$A$5)^0)=2))-SOMMA(--(MATR.PRODOTTO(CONTA.SE(J15:K15;$C$3:$G$5411);RIF.RIGA($A$1:$A$5)^0)=2))

in O23:
Codice: Seleziona tutto
=SOMMA(--(MATR.PRODOTTO(CONTA.SE(J23:N23;$C$3:$G$5411);RIF.RIGA($A$1:$A$5)^0)=3))


L'unica formula non rispondente al risultato della macro è la seconda ma non riesco a capire quale è il risultato giusto
w8 + Office 2010 Ita
ninai
Utente Senior
 
Post: 271
Iscritto il: 12/06/13 05:23
Località: prov. Messina

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 30/01/15 08:07

La seconda formula dovrebbe essere errata perché, da una verifica, i dati corretti sono quelli forniti dalla macro
e anche la terza formula è errata e ottieni gli stessi valori solo perché non si combinano numeri tipo 25, 52, 1 o 25,52, 2 etc

Per fare una verifica puoi eliminare l'archivio e mettere una con questi numeri
25 52 1 2 3

dovresti avere valore
2 nella prima riga della prima tabella
4 nella prima riga della seconda tabella
6 nella prima riga della terza tabella


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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 30/01/15 11:22

Salve Flash e buona giornata,

Nel file postato non ci sono da fare delle modifiche ma solo aggiunte,
leggo adesso che la macro 24 e 35 ci sarebbero dei problemi,
di queste non ho tanto modo di controllarle nel senso che dovrò inventarmi
le formule e poi controllare mentre la 23 corrisponde ai dati che ho io.
A prescindere la correzione nelle macro 24 e 35 la ricerca la dovresti
estendere fino a 30 così come figura nelle tabelle.
Ho cercato di mettere mano per la 24 e 35 ma non ci ho capito niente
ed in più ora c'è questa modifica da fare.
Anche se i tempi della ricerca saranno un pò lunghi pazienza.
Intanto come noterai dai command button le macro funzionano
per proprio conto perchè la ricerca della 24 dipende dalla 23 eccetera.

http://www.filedropper.com/cerca_1
Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi ninai » 30/01/15 12:49

Grazie flash della verifica

In effetti non le ho ben testate......, scusate la superficialità
w8 + Office 2010 Ita
ninai
Utente Senior
 
Post: 271
Iscritto il: 12/06/13 05:23
Località: prov. Messina

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi Flash30005 » 30/01/15 13:23

Le macro non hanno problemi e funzionano perfettamente
Ti avevo detto questo
Flash30005 ha scritto:tempo che non vorrei andasse perduto specialmente se si dovranno fare modifiche successive per non aver avuto le idee chiare sin dall'inizio.


e mi hai risposto che ormai era tutto stabilito e potevo continuare
invece ora hai stravolto la posizione delle tabelle e aggiunto specifiche.

mi dispiace ma per quanto mi riguarda e come ti avevo detto, non metterò più le mani nella macro perché significa che non dai alcun valore al tempo altrui.

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: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 30/01/15 15:24

Salve Flash,

per me rimani e sei sempre il TOP.

Vorrei dire: chiunque si approccia a chiedere qualche aiuto
poi chiede inesorabilmente una modifica chiamiamolo un
ulteriore aiuto, parlo di tutti i post non sto parlando di me.
Quindi chi è perfetto? pochi, invece quelli come me cercano
sempre di perfezionarsi ma se mi sto perfezionando
vuol dire che non sono perfetto.
Ti prego di non vederla sotto l'aspetto polemico.
Vorrei dire che ho fatto degli accorgimenti.
Se avessi la concezione del programmatore allora
queste cose non mi accadrebbero però appresso a voi
qualche cosina posso dire di averla imparata.

Quel file postato in secondo era come se chiedessi se
andava bene o meno, dare un'occhiata.
Per farla breve a me funziona bene al 100%, così come
l'ho reimpostato, sto verificando i dati
e convalidando con formule, un lavoraccio ma quelle sono le mie forze.
Non intendevo e non intendo sottrarre tempo a chi lavora
quindi mai pensato...
Se non c'è altro un avviso così chiudo l'argomento.
Saluti e cordialità e sempre grazie degli aiuti avuti.
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 31/01/15 07:02

Salve e buona giiornata a tutti,


[RISOLTO]

Grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Cerca Combinazione numeri (Ambi-Terni)

Postdi giorgioa » 02/02/15 08:44

Salve e buona giornata,

se mi è possibile chiedere un ulteriore inserimento nella macro.
Se al posto del timer che conteggia quanto tempo ha impiegato
a fare una ricerca, se si può sostituire con un timer che, anche
se a priori, preveda in anticipo, entro quanto tempo farebbe
la ricerca.

Grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Cerca Combinazione numeri (Ambi-Terni)":


Chi c’è in linea

Visitano il forum: Nessuno e 45 ospiti