Private Sub CommandButton1_Click()
Rem matema15
'uso di For each c in selection
'seleziona numeri positivi ed esegue la somma
'seleziona numeri negativi ed esegue la somma
'visualizza su unica colonna positivi e negativi
'visualizza somma positivi e somma negativi e scarto
Dim positivo As Variant
Dim negativo As Variant
Dim c As Variant
Dim h, k As Integer
Dim valore As Variant
Dim scarto As Variant
h = 1
k = 1
negativo = 0
positivo = 0
For Each c In Selection
valore = c.Value
If valore > 0 Then
Cells(h, 3) = c.Value
positivo = positivo + c.Value
Else
If valore < 0 Then
Cells(h, 3) = c.Value
negativo = negativo + c.Value
End If
End If
h = h + 1
k = k + 1
Next c
Cells(1, 4) = positivo
Cells(1, 5) = negativo
scarto = (positivo + negativo)
Cells(1, 6) = scarto
End Sub
Private Sub CommandButton2_Click()
Rem cancellare
Dim k, h As Integer
For k = 1 To 16
For h = 1 To 6
Cells(k, h) = ""
Next h
Next k
End Sub
