COMO TODOS LOS AÑOS...

miércoles, 30 de marzo de 2011

FORMULA DEL IF PARA MACRO

FUNCION IF ESTA FACIL APRENDAS LOCOS


PARA LA GENTE DE SENATI CERCADO PARA Q NO TENGAN PRETEXTOS DE NO HACER LA TAREA... JAJAJAJA
AQUI LES DEJO UN EJEMPLO DE COMO USAR EL IF EN MACRO WENO AMI MANERA...



IF TEXTBOX1="ALINZA LIMA" THEN
TEXTBOX2="GRONE"
ELSE
IF TEXTBOX1="UNIVERSITARIO" THEN
TEXTBOX2="CABRO"
ELSE
TEXTBOX1="OTRO CLUB"
TEXTBOX2="NO EXISTEN"
END IF
END IF


 SENATI CERCADO 303... 2011


me voy a meter un tiro por que creo q estoy haciendo un suicidio pero bueno que viva el compañerismo aca les dejo la sintaxis del boton "calcular" espero que sean algo creativos y modifiquen algo por que si no ya saben todos los que tengan igualito vuelan con cero "0" por que el profe no es sano y se puede dar cuenta confio en su habilidad... 



Private Sub CommandButton2_Click()


If TextBox4 = "FORD" Then
TextBox9 = 30


Else
If TextBox4 = "AMAZON" Then
TextBox9 = 40
Else
TextBox9 = 80
End If
End If
TextBox11 = Val(TextBox9) * Val(TextBox10)
If TextBox8 = "BONO" Then
TextBox12 = Val(TextBox11) * 0.12
Else
If TextBox8 = "EFECTIVO" Then
TextBox12 = Val(TextBox11) * 0.13
Else
TextBox12 = Val(TextBox11) * 0.14
End If
End If
If TextBox8 = "BONO" Then
TextBox13 = Val(TextBox11) * 0.1
Else
If TextBox8 = "EFECTIVO" Then
TextBox13 = Val(TextBox11) * 0.11
Else
TextBox13 = Val(TextBox11) * 0.12
End If
End If
TextBox14 = Val(TextBox11) - Val(TextBox12) + Val(TextBox13)
End Sub




тнeтrvcĸιтoѕvr™

espero un comentario por lo menos...XD


-DEJA TU COMANTARIO-



Nombre:
Direccion E-mail:
como llegaste hasta esta pagina?
Tus comentatios:

                                                                     

1 comentario:

  1. Private Sub CommandButton2_Click()


    If TextBox4 = "FORD" Then
    TextBox9 = 30


    Else
    If TextBox4 = "AMAZON" Then
    TextBox9 = 40
    Else
    TextBox9 = 80
    End If
    End If
    TextBox11 = Val(TextBox9) * Val(TextBox10)
    If TextBox8 = "BONO" Then
    TextBox12 = Val(TextBox11) * 0.12
    Else
    If TextBox8 = "EFECTIVO" Then
    TextBox12 = Val(TextBox11) * 0.13
    Else
    TextBox12 = Val(TextBox11) * 0.14
    End If
    End If
    If TextBox8 = "BONO" Then
    TextBox13 = Val(TextBox11) * 0.1
    Else
    If TextBox8 = "EFECTIVO" Then
    TextBox13 = Val(TextBox11) * 0.11
    Else
    TextBox13 = Val(TextBox11) * 0.12
    End If
    End If
    TextBox14 = Val(TextBox11) - Val(TextBox12) + Val(TextBox13)
    End Sub

    ResponderEliminar