Sommare celle tramite codice VBA

Question

Ciao,

sarà banale, ma non riesco a trovare il modo di sommare un intervallo di celle tramite codice VBA.

Esempio:

al posto di sommare le celle in questo modo:

Range("A1")= Range("B1") + Range("B2") + Range("B3")

vorrei sommarle in quest'altro modo:

Range("A1")= la somma dell'intervallo Range("B1 : B3")

Vladimiro

Answer 1

Ciao Vladimiro,

Con il file tutto diventa chiaro! :-)

Quindi, sostituisci:

Range("L15") = (Range("B4") - (Range("J11") + Range("J12") + Range("J13") + Range("J14") + Range("J15"))) + _

    Range("K11") + Range("K12") + Range("K13") + Range("K14") + Range("K15")

Con:

   Range("L15").Value = Evaluate("B4-SUM(J11:J15)+SUM(K11:K15)")

Oppure, per ottenere una somma dinamica:

  Range("L15").Formula = "=B4-SUM(J11:J15)+SUM(K11:K15)"

===

Regards,

Norman

Answer 2

Ciao Vladimiro,

molto bene, grazie.

Prego!

Alla prossima.

===

Regards,

Norman

Answer 3

Ciao Vladimiro,

Con il file tutto diventa chiaro! :-)

Quindi, sostituisci:

Range("L15") = (Range("B4") - (Range("J11") + Range("J12") + Range("J13") + Range("J14") + Range("J15"))) + _

    Range("K11") + Range("K12") + Range("K13") + Range("K14") + Range("K15")

Con:

   Range("L15").Value = Evaluate("B4-SUM(J11:J15)+SUM(K11:K15)")

Oppure, per ottenere una somma dinamica:

  Range("L15").Formula = "=B4-SUM(J11:J15)+SUM(K11:K15)"

===

Regards,

Norman

Ciao Norman,

molto bene, grazie.

Vladimiro

Answer 4

Range("L15") = (Range("B4") - (Range("J11") + Range("J12") + Range("J13") + Range("J14") + Range("J15"))) + _

    Range("K11") + Range("K12") + Range("K13") + Range("K14") + Range("K15")

oppure:

=B4-SOMMA(J11:J15) + SOMMA(K11:K15)

il risultato che esce è 8 

===============================================

Range("L15").Value = Application.Sum(Range("B4,J11:K15"))

Range("L16").Value = Evaluate("=SUM(B4,J11:K15)")

  =SOMMA(B4,J11:K15)

il risultato che esce è 26.

Ciao Norman,

il confronto deve avvenire tra i vari codici scritti da me:

Range("L15") = (Range("B4") - (Range("J11") + Range("J12") + Range("J13") + Range("J14") + Range("J15"))) + _

Range("K11") + Range("K12") + Range("K13") + Range("K14") + Range("K15")

oppure:

=B4-SOMMA(J11:J15) + SOMMA(K11:K15)

il risultato che esce è 8 

FINE

==============================

e i vari codici scritti da te:

Range("L15").Value = Application.Sum(Range("B4,J11:K15"))

Range("L16").Value = Evaluate("=SUM(B4,J11:K15)")

  =SOMMA(B4,J11:K15)

il risultato che esce è 26.

FINE

==============================

Comunque, al seguente link puoi scaricare il file.

Mi rendo conto che il voler aggiungere più codici ti abbia tratto in inganno. Mi dispiace.

Vladimiro