conta addendi della formula

[marcoc]

ciao, nella cella A1 ho scritto una somma di valori "=2+3+4+5+6"; essendo una formula, mi visualizza ovviamente il risultato ("20").
è possibile tramite un'altra formula, che nella cella A2 ci sia il conteggio del numero dei valori contenuti nella formula della cella A1 (cioé restituisca "5") e si aggiorni ogni volta aggiungo un numero?

[Caffey]

La formula che ti metto sotto, conta il numero di celle che contangono un valore nell'intervallo che gli dici tu, purtroppo non conosco una formula che te lo faccia estraendo gli addendi da un'altra formula ma spero che tu riesca ad adattarla ugualmente. Avendo l'intero software in inglese, non so dirti il corrispettivo italiano ma dovrebbe funzionare ugualmente e comunque ti dico che è contenuta nella categoria statistica, casomai non funzionasse in inglese.

Codice: Seleziona tutto

=COUNT(A1:A5)

Questa formula ti restituisce il numero delle celle contenute in questo intervallo che contengono un valore (anche 0).

[Anthony47]

La formula contiene solo valori (es =2+3+4) o riferimenti a celle (es =A2+B3+C4)?
E l' obiettivo finale quale e'? (cioe' "che cosa devi fare", oltre a "come pensi di farlo" che hai detto).

Per la formula di Caffey, in italiano ci sono vari "conta", tipo "CONTA.VALORI", "CONTA.NUMERI" etc; se guardi l' help on line trovi "l' offerta completa".

Ciao.

[marcoc]

solo valori.
vorrei avere semplicemente un conteggio automatico di questi valori

[Anthony47]

vorrei avere semplicemente un conteggio automatico di questi valori

Un po’ poco come risposta, ma ti aiuto lo stesso.
Metti questa macro nel foglio macro del “Fogliox” su cui lavori.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
'>>1: controllare target.address per determinare
'>>    se eseguire o no
Application.EnableEvents = False
Form1 = Target.Formula
'MsgBox (Form1)
I = 0: MaxI = Len(Form1)
CNum:
I = I + 1
If I > MaxI Then GoTo Esci
If IsNumeric(Mid(Form1, I, 1)) Then
Adddi = Adddi + 1
CSimb:
I = I + 1: If I > MaxI Then GoTo Esci
If IsNumeric(Mid(Form1, I, 1)) Then GoTo CSimb
End If
GoTo CNum
Esci:
MsgBox (Adddi)
Application.EnableEvents = True
End Sub

In testa devi introdurre la verifica che la macro venga richiamata dagli indirizzi di cella che vuoi controllare, es.

Codice: Seleziona tutto

If target.address <> “$A$1” then Exit Sub

Il numero di addendi ti viene restituito nel message box, sostituisci l’ istruzione MsgBox con quello che ti serve. Funziona anche con i riferimenti diretti alle celle (es =A5+A6), ma non su riferimenti multipli (es Somma(A5:A20)) o funzioni concatenate.

Ciao.

[Anthony47]

Leggasi
If target.address <> "$A$1" then Exit Sub

iao.