
For Riga = RigaInizio To RigaFine
If Cells(Riga, ColonnaVoci).Value = "Rimborso" Then
Totale = Totale + Cells(Riga, ColonnaImporti)
End If
Next Riga
|
Function Calcola(QualeVoce As String) As Double
Dim Riga%, Totale#
Totale = 0
For Riga = 1 To 20
If Cells(Riga, 1).Value = QualeVoce Then
Totale = Totale + Cells(Riga, 2).Value
End If
Next Riga
Calcola = Totale
End Function |
