[Excel] Macro per funzione somma

[Teq144]

Devo sommare i valori dalle celle A1 ad A10, utilizzando una macro, ho fatto così

Codice: Seleziona tutto

Dim r as integer
Dim somma as integer

for r = 1 to 10
somma= cells(r,1) + somma
Next r
Cells(11,1)= somma


Ma mi da un errore nella linea: somma=cells(r,1)+ somma

Ki mi aiuta? Possibilmente utilizzando un macro così (senza quindi le funzioni avanzate)

[Anthony47]

La macro ce l' hai gia', e' quella che ti ha dato Garde il 23-3. Perche' non va bene?

Devi solo
>>aprire il Visual Basic Editor (Menu ->Strumenti -> Macro -> Visual Basic Editor)
>>>Se il tuo foglio non ha ancora (com credo) nessun modulo di macro esistente ne crei uno: Menu -> Inserisci ->Modulo
>>>Nella parte di destra copia la macro che ti e' stata data, da Sub Macro1() a End Sub

Se vuoi, sul foglio excel crei un "pulsante" (lo trovi tra gli strumenti "Moduli": Menu ->Visualizza ->Barra degli strumenti ->Moduli) a cui associ la Macro1 (e' una opzione che ti viene chiesta durante la creazione del pulsante)

Se non va bene, quale e' il problema che ti crea quella macro?

Ciao,

[Teq144]

Quella che mi ha dato Garde è troppo "professionale"... me ne serve una più semplice che usi uno dei costrutti

[Anthony47]

La macro di Garde e' quella giusta per fare l' operazione che chiedi in excel.

Ne vuoi una che prende i dati dalla cella A1 in A10, la mette in una matrice di dati, ne fa la somma e la sbatte in A11? Si vedono dei bei For / Next o Do loop, ma fa la cosa ma in un modo assurdo.

Senza contare che un utente di excel, l' operazione che chiedi, la fa scrivendo in A11: =Somma(A1:A10).

Ciao,

[Alexsandra]

Devo sommare i valori dalle celle A1 ad A10, utilizzando una macro, ho fatto cos'
Dim r as integer
Dim somma as integer

for r = 1 to 10
somma= cells(r,1) + somma
Next r
Cells(11,1)= somma

Ma mi da un errore nella linea: somma=cells(r,1)+ somma

Ki mi aiuta? Possibilmente utilizzando un macro così (senza quindi le funzioni avanzate)

Ti dà errore perchè non dichiari il valore di somma(somma al 1° loop quanto vale? ),ma così ti complichi le cose se vuoi una macro semplice copia questo codice

Codice: Seleziona tutto

Sheets("foglio1").Range("A11").Formula = "=sum(A1:A10)"

Dove foglio1 lo cambi col nome del tuo foglio e A11 è la cella che riceve la somma del range A1:A10 questa macro la puoi associare all'evento Open del foglio oppure la puoi lanciare tramite un pulsante quando vuoi eseguirla