{"id":4347,"date":"2023-07-11T20:09:33","date_gmt":"2023-07-11T20:09:33","guid":{"rendered":"https:\/\/statorials.org\/it\/conteggio-vba-unico\/"},"modified":"2023-07-11T20:09:33","modified_gmt":"2023-07-11T20:09:33","slug":"conteggio-vba-unico","status":"publish","type":"post","link":"https:\/\/statorials.org\/it\/conteggio-vba-unico\/","title":{"rendered":"Come contare valori univoci nell'intervallo utilizzando vba"},"content":{"rendered":"

<\/p>\n

\n

\u00c8 possibile utilizzare la seguente sintassi di base per contare il numero di valori univoci in un intervallo utilizzando VBA:<\/span><\/p>\n

 SubCountUnique<\/span> ()\n    Dim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")\n    \n    'count unique values in range A2:A11<\/span>\n    For<\/span> Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n'store unique count\n<\/span>UniqueCount = List.Count\n    \n    ' display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Questo particolare esempio conta il numero di valori univoci nell’intervallo A2:A11<\/strong> e quindi visualizza il conteggio in una finestra di messaggio.<\/span><\/p>\n
 L’esempio seguente mostra come utilizzare questa sintassi nella pratica.<\/span><\/p>\n
 Esempio: contare i valori univoci nell’intervallo utilizzando VBA<\/strong><\/span><\/h2>\n
 Supponiamo di avere il seguente elenco di nomi di squadre di basket in Excel:<\/span> <\/p>\n
\"\"<\/p>\n
 Supponiamo di voler contare il numero di nomi di squadre univoci nell’intervallo A2:A11<\/strong> .<\/span><\/p>\n
 Per fare ci\u00f2 possiamo creare la seguente macro:<\/span><\/p>\n
 SubCountUnique()<\/span>\nDim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")<\/span>\n    \n    'count unique values in range A2:A11<\/span>\nFor Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n    'store unique count<\/span>\n    UniqueCount = List.Count\n    \n    'display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Quando eseguiamo questa macro, riceviamo il seguente output:<\/span> <\/p>\n
\"Numero<\/p>\n
 La finestra di messaggio ci dice che ci sono 5<\/strong> nomi di squadra univoci.<\/span><\/p>\n
 Possiamo verificare che ci\u00f2 sia corretto identificando manualmente ciascuno dei nomi univoci della squadra:<\/span><\/p>\n