Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Contare Celle di Attilio data: 05/10/2012 20:32:02
Ciao, mi servirebbe contare in una cella in questo caso Cella(c1) le celle numerate in colonna A, vi ringrazio anticipatamente per la risposta
di Vecchio Frac data: 05/10/2012 20:52:41
In C1: =CONTA.NUMERI(A:A)
di Vecchio Frac data: 05/10/2012 20:54:55
E se lo vuoi in VBA:
conta_numeri = WorksheetFunction.Count([A:A])
oppure più semplicemente:
conta_numeri = [COUNT(A:A)]
di Attilio (utente non iscritto) data: 05/10/2012 23:16:39
io ho scritto così, ed ancje in altri modi, non viene segnalato nessun errore, ma il conteggio non avviene
Private Sub conta()
Sheets("Foglio2").Select
[d1] = WorksheetFunction.Count([A:A])
End Sub
di Vecchio Frac data: 06/10/2012 08:07:01
L'errore è sottile ma subdolo :)
Anche se hai selezionato il foglio2 (con .Select) o attivato (con .Activate), i riferimenti ai Range avvengono sempre soltanto all'interno del foglio in cui lanci la Sub, se non diversamente (espressamente) specificato.
Poichè lanci la Sub in Foglio1, verrà valorizzata sempre comunque la cella D1 del Foglio1 al totale dei numeri presenti nella sua colonna A.
Cambia l'istruzione di conteggio come segue:
Sheets("Foglio2").[D1] = WorksheetFunction.Count([A:A])
Questo produrrà l'effetto desiderato di scrivere, nella cella D1 del Foglio2, il numero di celle contenenti numeri della colonna A del Foglio1.
di Attilio (utente non iscritto) data: 06/10/2012 09:54:05
Grazie mille, ancora colpito nel segno
di Vecchio Frac data: 06/10/2012 10:33:30
Eri tu con il programma del "tiro al bersaglio"?
come procede? non ricordo se eravamo fermi su qualche punto o d'accordo in qualche modo.