ciclo while

como hacer una secuencia con el ciclo while
primero agregamos un botón y le damos doble clic y escribimos la siguiente formula:


fila=1
while(fila<=10)
cells(fila,3)=fila
fila=fila + 1
wend.


cerramos y quitamos el modo de diseño y presionamos el botón creado y automáticamente aparecerá una secuencia




métodos para borrar lo elaborado con el ciclo while.
por ejemplo yo quiero borrar la secuencia de números  que hice en el ejemplo anterior.

primer método de borrado
fila= 1
while(fila<=10)
cells(i,3)= " "
fila=fila + 1
wend.

segundo método de borrado

fila= 1
while(fila<=10)
cells(i,3)= clear
fila=fila + 1
wend.

tercer método de borrado


fila= 1
while(fila<=10)
cells(i,3)= 0
fila=fila + 1
wend.


--------------------------------------------------------------


suma de columnas por medio del ciclo while

i=1
while(i<=4)
cells(i,3)=cells (i,1) + cells(i,2)
fila=fila + 1
wend


resta de columnas por medio del ciclo while

j=1
while(j<=4)
cells(j,4)=cells (j,1) - cells(j,2)
j= + 1
wend


multiplicación de columnas por medio del ciclo while

i=1
while(i<=4)
cells(i,5)=cells (i,1) * cells(i,2)
i=i + 1
wend





divicion de columnas por medio del ciclo while

a=1
while(a<=4)
cells(i,6)=cells (a,1) / cells(a,2)
a=a + 1
wend

--------------------------------------------------------------------------------------------------------------------------------

formula para calcular la definitiva en porcentajes diferente y  saber el estado y el nivel de varios estudiantes

formula para la definitiva

Private Sub CommandButton1_Click()
i = 2
While (i <= 4)
Cells(i, 5) = Cells(i, 2) * 0.3 + Cells(i, 3) * 0.3 + Cells(i, 4) * 0.4
i = i + 1
Wend
End Sub

  

formula para el estado

Private Sub CommandButton2_Click()
i = 2
While (i <= 4)
If Cells(i, 5) < 60 Then
Cells(i, 7) = "perdio"
i = i + 1
Else
If Cells(i, 5) > 60 Then
Cells(i, 7) = "gano"
i = i + 1
End If
End If
Wend
End Sub

formula para calcular el nivel


Private Sub CommandButton3_Click()

i = 2
While (i <= 4)
If Cells(i, 5) < 60 Then
Cells(i, 6) = "bajo "
i = i + 1
Else
If Cells(i, 5) < 80 Then
Cells(i, 6) = "basico"
i = i + 1
Else
If Cells(i, 5) < 98 Then
Cells(i, 6) = "alto"
i = i + 1
Else
Cells(i, 6) = "superior"
i = i + 1
End If
End If
End If
Wend
End Sub