confronta1 vba excel powerpoint

esci con testvba.htm

pro8.xls
ciclo iterativo con For..Next e inizio-fine ciclo assegnabili da tastiera

pro8.ppt

Private Sub CommandButton1_Click()
'esevba8
'inserimento dati con ciclo for next e limiti assegnabili
Dim k, inizio, fine, s1 As Integer
s1 = 0
inizio = Cells(2, 2)
fine = Cells(3, 2)
For k = inizio To fine
s1 = s1 + k
Next k
Cells(5, 2) = s1
End Sub

Private Sub CommandButton1_Click()
'esevba8
'inserimento dati con ciclo for next e limiti assegnabili
Dim k, inizio, fine, s1 As Integer
s1 = 0
inizio = TextBox1
fine = TextBox2
For k = inizio To fine
s1 = s1 + k
Next k
TextBox3 = s1
End Sub