hola
tengo un poblema con el formato condicional cuando los numeros son en porcentajes. y no se si el signo del porcentaje % influye en el numero que escribo en el textbox por ejemplo tengo
textbox1 con el valor 99% quiero que valores menores o igual que el 99% el texbox cambien a color verder y mayores del 99% a rojo
este es el codigo que he usado pero con numeros normales sin el signo del porcentaje%
Private Sub Text1_Change()
If Text1.Text <= 99 Then
Text1.BackColor = vbGreen
ElseIf Text1.Text > 99 Then
Text1.BackColor = vbRed
End If
End Sub
pero si escribo el numero + el signo del porcentaje no entiene el codigo que se trata de un numero tbm.
bueno espero que alguien sepa por q pasa gracias :D
Lo solucionas asignando val al text1 para identificarlo como un numero
Private Sub Text1_Change()
If Val(Text1.Text) <= 99 Then
Text1.BackColor = vbGreen
ElseIf Val(Text1.Text) > 99 Then
Text1.BackColor = vbRed
End If
End Sub
Private Sub Text1_Change()
with Text1
If Val(.Text) <= 99 Then
.BackColor = vbGreen
Else
.BackColor = vbRed
End If
end with
End Sub
Val no identificada nada. Val hace una conversion string a Double
Function Val(String As String) As Double
Miembro de VBA.Conversion
Devuelve los números contenidos en una cadena
P.D.: elseIf Val(Text1.Text) > 99 Then se Obvia y se deja else !¡.
Dulce Infierno Lunar!¡.
gracias eso estaba buscando gracias por las respuestas