vba3

uso di For Each c in Selection:esegue somma positivi,negativi e scarto

Option Explicit

Private Sub CommandButton1_Click()
'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

crea PULSANTE,inserisci numeri in colonna A,B,seleziona colonna A,B

clicca PULSANTE per risultato

inizio