| | 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. |
|
|