vba1

uso di For Each c in Selection con VBA per excel

Private Sub CommandButton1_Click()
Dim valore As Variant
Dim c As Variant
Dim k As Integer
Dim h As Integer
k = 10
h = 0
'se la cella contiene numero positivo
'questo viene moltiplicato per 10 e per 100 e inserito in nuova cella
 For Each c In Selection
  valore = c.Value
  If valore > 0 Then
  h = h + 1
  Cells(h, 6) = c.Value * k
  Cells(h, 7) = c.Value * 100
  End If
  Next c

creare PULSANTE per istruzioni:scrivere numeri in colonne A,B e cliccare PULSANTE

vengono visualizzati i risultati(selezionare prima la colonna A)

Option Explicit

Private Sub CommandButton1_Click()
'selezionare le colonne A,B e poi cliccare su pulsante
Dim valore As Variant
Dim c As Variant
Dim k, h, g As Integer
k = 10
h = 0
g = 100
For Each c In Selection
 valore = c.Value
 If valore > 0 Then
 h = h + 1
 Cells(h, 4) = c.Value
 Cells(h, 5) = c.Value * k
 Cells(h, 6) = c.Value * g
 End If
 Next c
 
End Sub

creare PULSANTE,inserire dati in colonna A,B,selezionare colonna A,B

vengono moltiplicati per 10 e per 100 solo i numeri positivi

inserire numeri in colonne A,B,scrivere formule in D,E e copiarle sotto

inizio