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
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
Private Sub CommandButton2_Click()
ResponderEliminarIf 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