TextBox

08/06/2006 - 05:13 por FeCel | Informe spam

Tengo un formulario con 81 TextBox, denominados TextBox1, TextBox2,
...TextBox81.
El contenido del TextBox está en las celdas A1, A2, ...A81, respectivamente.
Quisiera cambiar el color de fondo de un TextBox dependiendo del valor
guardado en él. Por ejemplo, si en A8 hay un "1", entonces el fondo del
TextBox8 sea amarillo.

Algo así es lo que necesito, pero no es permitido:
For i=1 to 81
if Cells(i,1)=1 Then
TextBox(i).BackColor = &HFFFF&
End If
Next i

¿Hay alguna solución que sea sencilla?
Muchas gracias de antemano

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

08/06/2006 - 10:18 | Informe spam

hola, FeCel !

Tengo un formulario con 81 TextBox, denominados TextBox1, TextBox2, ...TextBox81.
El contenido del TextBox esta en las celdas A1, A2, ...A81, respectivamente.
Quisiera cambiar el color de fondo de un TextBox dependiendo del valor guardado en el.
Por ejemplo, si en A8 hay un "1", entonces el fondo del TextBox8 sea amarillo.
Algo asi es lo que necesito, pero no es permitido:
For i=1 to 81
if Cells(i,1)=1 Then
TextBox(i).BackColor = &HFFFF&
End If
Next i [...]

suponiendo que el codigo esta 'corriendo' desde el modulo del mismo formulario -???-
y dado que 'el valor' ya se encuentra en el contenido de cada textbox -???-
prueba con algo de codigo +/- como sigue:

Dim Sig As Byte
For Sig = 1 To 81
With Me.Controls("textbox" & Sig)
If Val(.Value) = 1 _
Then .BackColor = &HFFFF& _
Else .BackColor = &H80000005
End With
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida