............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Cambiar color de fuente en textbox

Ver el tema anterior Ver el tema siguiente Ir abajo

Cambiar color de fuente en textbox

Mensaje por Alef-Thau el Vie Mar 12, 2010 5:01 pm

Hola a todos.
Necesitaba si alguien me pudiera decir como, si es que es posible, puedo cambiar el color de la fuente de un textbox; me explico:
Tengo un formulario que es para hacer ventas, en el hay varios textbox con los cuales le doy forma como de caja registradora; en uno de ellos (CodigoBarras) sale el nombre del producto y al lado (precio) el precio del producto cuando, mediante un botón, envió este producto a la hoja de ventas el TextBox (precio) me pone el total de lo que he vendido, para finalizar la venta introduzco el dinero que me entregan y en el TextBox(precio) me muestra el cambio que he de dar, aqui viene el asunto:

Necesito si existe el código que cambia el color para que cuando me den dinero de menos en la venta cambie el Texto (precio) a color rojo y si es positivo a verde.

Soy muy nuevo con macros y tengo hecho esto pero no se como cambiar el color:

Código:

Private Sub BCambio_Click()
Dim ws As Worksheet
Set ws = Worksheets("2-TPV")
'inserta el dinero entregado
ws.Range("F21").Value = Me.Entregado.Value
'pone el mensaje en la ventana de productos
Me.CBarras.Value = "A devolver"
'hace el cálculo de lo que tenemos que devolver
If [F22] < 0 Then
TextBox1.Font.ColorIndex = 3 'aquí necesitaria cambiar a texto rojo _
'(pero no es este el código :-( )
TextBox1.Value = Format$(Range("F22").Value, ColorIndex = 10)
Else
TextBox1.Font.ColorIndex = 10 'aquí seria texto verde
TextBox1.Value = Range("F22").Value

End If
Me.Mensaje1.Visible = False
End Sub

Gracias de antemano por la ayuda, si existe Hurraaaa, sino pues bueno tendré que hacerlo mostrando y ocultando 2 textbox.
Si alguien esta interesado en el libro le puedo comentar como va pero ya digo que soy completamente novato en esto aun así para mi esta fenomenal.

Saludos

Alef-Thau

Masculino Cantidad de envíos : 22
Edad : 52
Ciudad - Pais : España
Version de Excel : actualmente 2010
Fecha de inscripción : 23/05/2009

Volver arriba Ir abajo

Re: Cambiar color de fuente en textbox

Mensaje por GalileoGali el Vie Mar 12, 2010 7:34 pm

Prueba así.....
Código:
TextBox1.ForeColor = vbRed

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Cambiar color de fuente en textbox

Mensaje por Alef-Thau el Sáb Mar 13, 2010 5:59 am

Gracias por la respuesta, después consultando sitios encontré el método de ForeColor lo que no tenia era los colores, muchas gracias de nuevo y espero no molestar de nuevo con tonterías tan simples, aunque siempre esta bien ya que ayudan a resolver posibles dudas a otros mediante la casilla de buscar.

Al final quedó así y va de maravilla:

Código:
Private Sub BCambio_Click()
Dim ws As Worksheet
Set ws = Worksheets("2-TPV")
'inserta el dinero entregado
ws.Range("F21").Value = Me.Entregado.Value
'pone el mensaje en la ventana de productos
Me.CBarras.Value = "A devolver"
'hace el cálculo de lo que tenemos que devolver
If [F22] < 0 Then
'si la cantidad a devolver es negativa pone números en rojo
Me.TextBox1.ForeColor = vbRed
TextBox1.Value = Format$([F22], "#.00€")
Else
'si es positiva deja los números en su color
Me.TextBox1.ForeColor = vbGreen
TextBox1.Value = Format$([F22], "#.00€")
End If
'salimos ocultando el mensaje de tope de lineas de venta, _
'si es que habíamos llegado a el.
Me.Mensaje1.Visible = False
End Sub

Alef-Thau

Masculino Cantidad de envíos : 22
Edad : 52
Ciudad - Pais : España
Version de Excel : actualmente 2010
Fecha de inscripción : 23/05/2009

Volver arriba Ir abajo

Re: Cambiar color de fuente en textbox

Mensaje por Tatayayan el Mar Mar 16, 2010 1:28 pm

Hola, no olvidar la función RGB

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Cambiar color de fuente en textbox

Mensaje por Contenido patrocinado Hoy a las 1:57 am


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.