
Option Explicit
Function somma_pari_dispari(r As Range, pari As Boolean)
Dim cella As Range, d As Single
For Each cella In r
If cella.Row Mod 2 = Abs(pari Xor True) Then d = d + cella
Next
somma_pari_dispari = d
End Function |
Sub sommanumeri () Dim somma,riga as Integer riga=2 'questa sara la tua riga While cells(riga,2) <> "" 'il ciclo continuera a sommare finche non si trova davanti una cella vuota somma=somma + cells(riga,2) riga=riga+2 'qui viene incrementata di due quindi somma solo una cella si e una no Wend cells(3,3) = somma 'in cells decidi dove vuoi che stampi la somma End Sub |
