lunes, 19 de marzo de 2012

CICLOS 2!

*For a = 2 to 4
Cells (a, 5 ) = Cells (a, 2) * 30 / 100 + Cells (a, 3) * 30 /100 + cells (a, 4) * 40 / 100
Next

*For a = 2 to 5
if cells ( 1, 7 ) Then

*For a = 2 to 5
Cells (a, 6) = ""
Next


CICLOS!

para hallar la definitiva :

Private Sub CommandButton1_Click()
For a = 2 To 5
Cells(a, 5) = (Cells(a, 2) * 0.3) + (Cells(a, 3) * 0.3) + (Cells(a, 4) * 0.4)
Next
End Sub
para el promedio:

Private Sub CommandButton2_Click()
For i = 2 To 5
Cells(6, 5) = Cells(6, 5) + Cells(i, 5)
Next
Cells(6, 5) = Cells(6, 5) / 4
End Sub
para borrar lo anterior:

Private Sub CommandButton3_Click()
For a = 2 To 6
Cells(a, 5) = Clear
Next
End Sub

lunes, 20 de febrero de 2012

CICLO FOR

MUTIPLICACION:
Inicio
leer n
sum=5
hacer para x 1 a n
resultuda = (sum *x)+3
fin-para
fin

CICLOS REPETITIVOS!

    • Hay 3 tipos de ciclos:

      mientras: while - el ciclo mientras es la estrucura basica que permite repetir varias veces una secuencia de operaciones, mientras se cumpla una determina condicion.
      estructura: en el programa se pone:
      while do
      aqui pones las instrucciones q se repetiran...
      endwhile

      repetir (repeat) las operaciones de lazo repetir son ejecutadas hasta que la condicion sea cierta.
      estructura:
      repeat
      aquii va las instrucciones
      until

      para (for) se utiliza cuando se puede determinar el numero de veces que hay que ejecutar las instrucciones.
      estructura>
      for cont=(numero) to (otro numero de fin)

      instrucciones
      endfor



COMO CALCULAR FECHAS EN EXCEL!

Private Sub CommandButton1_click()
Cells(1,3)=datevalue(1,2) - datevalue(1,1)

--> Cells(1,3)=(datevalue(cells(1,2))-(datevalue(1,1))/365

TRABAJO EN CLASES!

21,1= 0 +1 = 3+3=6+4=10+5=15+6=21+7=28+8=36+9=45+10=55+11=66+12=78+13=91+14=105+15=120
+16=136+17=153+18=171+19=190+20=210

CICLOS EN EXCEL!

Private Sub CommanButton1_Click()
For I = 1 to 20
Cells (I.1)
Next
For J = 1 to 20
Cells ( 21,1) = cells(2,1) + cells(1,1)
Next
End