Conteggio valori

Hai un problema con Excel?

Nuova discussione

Conteggio valori
di Benedetta (utente non iscritto) data: 30/01/2010
Ciao...
ho una matrice 14 x 2 con i seguenti valori che su ripetono lungo le colonne a e b :1,2,x.
devo conteggiare quanti valori in colonna a sono diversi da quelli della colonna b.
io ho scritto:

application.countif(range("a1:b14"), cells(i, 1) & "<>" & cells(i, 2))
ma,purtroppo, credo che non sia esatto.
potete aiutarmi?
di Bolmas (utente non iscritto) data: 31/01/2010
Ciao benebetta

"application" non ha la funzione "countif" quindi non può funzinare .
prova con "worksheetfuncion.countif(........
oppure usa la funzione "contase" da excel (forse lo hai già fatto ).
ciao max
di Bolmas (utente non iscritto) data: 31/01/2010
... scusa è

worksheetfunction.countif( ...

!!! inglese maccaronico !!!
di Bolmas (utente non iscritto) data: 31/01/2010
Ciao benedetta , dimentica la prima risposta ho fatto un po di confusione. ho trovato un link dove viene spiegata bene la funzione countif ed è

ennius.altervista.org/vba/vba129.php

ciao ben
di Rp71 (utente non iscritto) data: 31/01/2010
Non credo il problema sia legato a countif ...
dubito che x ottenere il risultato desiderato sia l'approccio giusto. credo sia necessario procedere ad un confronto di ogni valore della colonna a con quelli della colonna b ... quindi o si utilizza un ciclo vba o una colonna di confronto dove si usa il cerca.vert e si conta gli #n/d

di Enzo (utente non iscritto) data: 01/02/2010
Se per valori diversi intendi valori che non siano presenti nella colonna b prova ad utilizzare l'istruzione qui sotto
ti restituisce alla fine il numero dei valori non presenti nella colonna b in un messaggio
p.s. se intendi poi evidenziare i valori della colonna a che non hai trovato togli l'apice dalla riga di istruzione range("a" & i).font.bold = true
fai sapere se ti puo' andar bene

p.s. concordo in ogni caso con la risposta di rp71

conta = Application.WorksheetFunction.CountA(Range("a1:a65000"))
conta2 = Application.WorksheetFunction.CountA(Range("b1:b65000"))
valore = 0
For I = 1 To conta
x = Application.WorksheetFunction.CountIf(Range("b1:b" & conta2), Range("a" & I))
If x = 0 Then
Range("a" & I).Font.Bold = True
valore = valore + 1
End If
Next I
MsgBox "ci sono " & valore & " valori diversi"

di Enzo (utente non iscritto) data: 01/02/2010
Mi sono accorto che l'apice lo avevo gia' tolto quindi fai il contrario
se non vuoi evidenziarli elimina quella riga di istruzione o mettigli un apice all'inizio affinche' lui la veda come un commento
ciao
di Benedetta (utente non iscritto) data: 02/02/2010
Ok...mi trovo!
grazie mille per l'aiuto...

Vuoi Approfondire?