ciclo For

como hacer una secuencia con el ciclo For en excel
primero agregamos un botón de comando

y escribimos la siguiente formula

For i = 1 To 10
Cells(i, 1) = i
Next
presionamos el botón que agregamos y aparecerá una secuencia de 1 al 10
















si queremos que la secuencia llegue a 30 solo cambiamos el 10 por el 30
por ejemplo



For i = 1 To 30
Cells(i, 1) = i
Next



como sumar la secuencia de varios numeros.

por ejemplo:
una secuencia de numeros del 1 al 20 yo quiero saber la suma total de esa secuencia y quiero que el resultado me  lo de en la celda A 21
primero hay que agregar un boton darle doble clic y escribir la siguiente formula.

for i= 1 to 20
cells(21,1)=cells(21,1) + cells(i,1)
next


------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 formula para calcular la definitiva de tres notas diferentes con diferentes porcentajes y para calcular es estado y el nivel de los estudiantes  con el siclo for

formula para calcular la definitiva


Private Sub CommandButton1_Click()
for i = 2 to 4
Cells(i, 5) = Cells(i, 2) * 0.3 + Cells(i, 3) * 0.3 + Cells(i, 4) * 0.4
next
End Sub


formula para calcular el estado


Private Sub CommandButton2_Click()
For i = 2 To 4
If Cells(i, 5) < 60 Then
Cells(i, 6) = "perdio"
Else
Cells(i, 6) = "gano"
End If
Next
End Sub

formula para calcular el nivel

For i = 2 To 4

If Cells(i, 5) < 60 Then

Cells(i, 7) = "bajo"

Else

If Cells(i, 5) < 80 Then

Cells(i, 7) = "basico"

Else

If Cells(i, 5) < 98 Then

Cells(i, 7) = "alto"

Else

Cells(i, 7) = "superior"

End If

End If

End If

Next

End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
algoritmo para promedios

Private Sub CommandButton1_Click()

For i = 2 To 10

h = h + Cells(i, 2)

Next

Cells(15, 2) = h / Cells(14, 2)

End Sub

Private Sub CommandButton2_Click()

For k = 2 To 11

If Cells(k, 2) >= Cells(15, 2) Then

h = h + 1

End If

Next

MsgBox ("EL total de alumnos por encima del promedio es: ") + Str(h)

End Sub