Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Confronto tra numeri.

Ultimo Aggiornamento: 30/09/2019 14:02
Post: 32
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
21/09/2019 18:19

Salve a tutti mi servirebbe una funzione che mi confronti due serie di numeri e mi dica quanti numeri uguali ci sono; Come risultato non vorrei l'elenco dei numeri uguali ma quanti sono i numeri uguali.
Spero di aver reso l'idea.
Grazie mille
[Modificato da cico777 21/09/2019 18:20]
Post: 413
Registrato il: 15/01/2016
Città: ROMA
Età: 51
Utente Senior
2016
OFFLINE
21/09/2019 19:04

Buonasera
in K3

=MATR.SOMMA.PRODOTTO(CONTA.SE(L3:U3;A3:J3))
Post: 32
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
23/09/2019 10:15

La ringrazio, mi chiedevo se c'e' una funzione che mi fa l'elenco dei numeri uguali anzicche' mostrarmi quanti numeri uguali ci sono.
Grazie mille.
Post: 2.171
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
23/09/2019 12:41

ciao

una UDF da inserire in un Modulo


Option Explicit
Function ContaUguali(AJ As Range, LU As Range) As Long
Dim Vaj As Variant
Dim TotU As Long
For Each Vaj In AJ
If Application.CountIf(LU, Vaj) > 0 Then TotU = TotU + 1
Next
ContaUguali = TotU
End Function



utilizzo nel tuo caso in K3
=ContaUguali(A3:J3;L3:U3)


Ciao da locate
excel 2007 / 13
Post: 33
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
23/09/2019 12:57

La ringrazio ancora, ho messo il codice in un modulo vba poi ho inserito la funzione nella cella K3 e come risultato mi da ugualmente 6 ma non mi indica i numeri uguali. Mi dica dove ho sbagliato. Grazie.
Post: 415
Registrato il: 15/01/2016
Città: ROMA
Età: 51
Utente Senior
2016
OFFLINE
23/09/2019 14:13

Buonasera
in riferimento al file di esempio

in una cella da trascinare in basso

=SE.ERRORE(INDICE($L$3:$U$3;AGGREGA(15;6;RIF.COLONNA($L$3:$U$3)/(CONTA.SE($A$3:$J$3;$L$3:$U$3)>0)-RIF.COLONNA($L$3)+1;RIF.RIGA($A1)));"")

per averli in colonna
se li vuoi in riga in una cella da trascinare a destra

=SE.ERRORE(INDICE($L$3:$U$3;AGGREGA(15;6;RIF.COLONNA($L$3:$U$3)/(CONTA.SE($A$3:$J$3;$L$3:$U$3)>0)-RIF.COLONNA($L$3)+1;RIF.COLONNA(A$1)));"")
[Modificato da DANILOFIORINI 23/09/2019 14:14]
Post: 2.172
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
23/09/2019 15:01

ciao

la UDF ti da quello che tu avevi richiesto trovare quanti erano i numeri uguali e non lo specifico

comunque una modifica a questa con tre opzioni
1 ti da quanti sono i numeri uguali
2 ti da l'elenco dei numeri uguali
3 ti da il numero e l'elenco dei numeri uguali


Option Explicit
Function ContaUguali(AJ As Range, LU As Range, scelta As Long) As Variant
Dim Vaj As Variant
Dim TotU As Long
Dim Snum As String
For Each Vaj In AJ
If Application.CountIf(LU, Vaj) > 0 Then
TotU = TotU + 1
Snum = Snum & Vaj & " "
End If
Next
Select Case scelta
Case 1
ContaUguali = TotU
Case 2
ContaUguali = Snum
Case 3
ContaUguali = TotU & " <> " & Snum
Case Else
ContaUguali = "Scelta valida ( 1 2 3 ) no " & scelta
End Select
End Function



utilizzo
=ContaUguali(A3:J3;L3:U3;2)

Ciao da locate
excel 2007 / 13
Post: 34
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
23/09/2019 18:19

Di nuovo grazie ora funziona.
Post: 35
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
23/09/2019 20:04

Vorrei chiedervi un altro aiuto; se avessi numeri doppi come nel file allegato ora c'e' il modo per evitare di contarlo 2 volte?
Grazie.
Post: 307
Registrato il: 11/07/2015
Età: 33
Utente Senior
office 2013-2016
OFFLINE
23/09/2019 21:20


Buona Sera


K13=SOMMA(SE(FREQUENZA(SE(A13:J13<>"";SE(VAL.NUMERO(CONFRONTA(A13:J13;L13:U13;0));A13:J13));A13:J13);1))

Control+shift+enter


[Modificato da Ulisse1990 23/09/2019 21:27]
Post: 2.173
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
24/09/2019 09:10

ciao cico

basta aggiungere un altro controllo

If InStr(1, Snum, Vaj) = 0 Then
ti posto la UDF con l'aggiunta di questo, i parametri rimangono sempre come prima


Option Explicit
Function ContaUguali(AJ As Range, LU As Range, scelta As Long) As Variant
Dim Vaj As Variant
Dim TotU As Long
Dim Snum As String
Dim unico As Range
For Each Vaj In AJ
If Application.CountIf(LU, Vaj) > 0 Then
If InStr(1, Snum, Vaj) = 0 Then ''<-- controllo doppi
TotU = TotU + 1
Snum = Snum & Vaj & " "
End If
End If
Next
Select Case scelta
Case 1
ContaUguali = TotU
Case 2
ContaUguali = Snum
Case 3
ContaUguali = TotU & " <> " & Snum
Case Else
ContaUguali = "Scelta valida ( 1 2 3 ) no " & scelta
End Select
End Function





Ciao da locate
excel 2007 / 13
Post: 36
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
24/09/2019 12:11

Di nuovo grazie tante.
Post: 37
Registrato il: 27/05/2019
Città: MILANO
Età: 56
Utente Junior
2016
OFFLINE
30/09/2019 14:02

Salve a tutti, avrei un altro quesito da sottoporre; come nel file allegato mi servirebbe una funzione per ridurre i tempi di verifica delle cinquine; con la funzioine CONTAUGUALI posso verificare le cinquine tra di loro, come nell'esempio devo verificarle una per una, la prima cinquina con tutte quelle che son sotto, poi la seconda cinquina con tutte quelle che sono sotto, poi la terza cinquina con tutte quelle che sono sotto, ma se da controllare fossero davvero tante non ci sarebbe una funzione che velocizza il controllo per evitare di scrivere la funzione per ogni cinquina?
Grazie tante.
Vota: 15MediaObject5,00113 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 13:27. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com