formato condicional con porcentajes

[andrer03]

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%

Código [Seleccionar] Expandir


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

[TGa.]

Lo solucionas asignando val al text1 para identificarlo como un numero

Código (vb) [Seleccionar] Expandir

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


[BlackZeroX]

Código (vb) [Seleccionar] Expandir



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

Código [Seleccionar] Expandir



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!¡.

[andrer03]

gracias eso estaba buscando gracias por las respuestas