Tramite l'oggetto WorkSheets, impostiamo il foglio in cui vogliamo rilevare l'intervallo di celle per fare la somma.
L'oggetto WorkSheetFunction, contiene diverse formule, tra cui sum, la quale accetta un argomento relativo all'intervallo di celle in cui si vuole fare la somma.
With Application.ActiveWorkbook.Worksheets("Foglio1")
Set intervallo = .Range(CStr("A1:A4"))
.Cells(5, 1) = "Totale:"
.Cells(5, 2) = Application.WorksheetFunction.Sum(intervallo)
End With
Nessun commento:
Posta un commento