Estimados, acudo a ustedes una ves más, el tema es el siguiente tengo un label que tendrá valores del 50 al 99 y quiero cambiar el color del fondo segun el rango en el que se encuentre ese valor.
Algo así
If label1.caption = 10 al 20 then
Label1.backcolor = &FFFFFF
end if
If label1.caption = 21 al 30 then
Label1.backcolor = &000000
end if
Pero no logro dar con el codigo para comprobar por rangos.
Espero su ayuda amigos
Muchas gracias
Enviado desde mi LG-D805 mediante Tapatalk
Private Sub CommandButton1_Click()
If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then
Me.Label1.BackColor = RGB(255, 255, 0)
End If
End Sub
Cita de: .Alex. en 14 Abril 2016, 20:58 PM
Private Sub CommandButton1_Click()
If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then
Me.Label1.BackColor = RGB(255, 255, 0)
End If
End Sub
estimado, muchas gracias por tu código, pero me da el error de "No coinciden los tipos"
Comprueba 1º si el valor es correcto o no.
If Not IsNumeric(Label1) Then
Exit Sub
End If
Select Case CInt(Label1)
Case 10 To 20
Label1.BackColor = &HFFFFFF
Case 21 To 30
Label1.BackColor = &O0
'Case ...
'Case Else
End Select
Gracias por la respuesta amigo, dejo el código con el que logré hacerlo por si a alguien más le funciona
For i = 75 To 79
If TECH.Text = Val(i) Then
TECH.BackColor = RGB(183, 255, 0)
End If
Next
Saludos
Para eso no hacen falta bucles:
If val(TECH.Text) > 74 and val(TECH.Text) < 80 Then TECH.BackColor = RGB(183, 255, 0)
Saludos