Colorear Celdas

31/05/2006 - 22:50 por Josema | Informe spam
Hola grupo, quería haceros una preguntilla a ver si podéis ayudarme. El tema
en cuestión es el siguiente: He realizado un horario escolar, y cada vez que
introduzco en una celda una asignatura quisiera que se pusiera de un
determinado color. Por ejemplo lengua en azul, matemáticas en verde, etc...
Pues bien desde la opción de Formato, Formato Condicional pongo la condición
y lo hace, pero solo tres veces y como hay muchas más asignaturas de tres,
no puedo terminar el horario ¿podéis decirme como hacerlo? Una cosa más para
hacerlo selecciono todo el rango en que se encuentran las asignaturas.
Un saludo y gracias por anticipado
Trabajo con Excel 2002.
Josema

Preguntas similare

Leer las respuestas

#1 Benito Merino
31/05/2006 - 23:15 | Informe spam
Josema ha escrito:

Hola grupo, quería haceros una preguntilla a ver si podéis ayudarme. El tema
en cuestión es el siguiente: He realizado un horario escolar, y cada vez que
introduzco en una celda una asignatura quisiera que se pusiera de un
determinado color. Por ejemplo lengua en azul, matemáticas en verde, etc...
Pues bien desde la opción de Formato, Formato Condicional pongo la condición
y lo hace, pero solo tres veces y como hay muchas más asignaturas de tres,
no puedo terminar el horario ¿podéis decirme como hacerlo? Una cosa más para
hacerlo selecciono todo el rango en que se encuentran las asignaturas.
Un saludo y gracias por anticipado
Trabajo con Excel 2002.
Josema



Que hay Josema:

Creo que una solución sería gestionar el evento worksheet_change con
un código similar al que te indico:


Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "lengua" Then
Selection.Interior.ColorIndex = 20
ElseIf ActiveCell.Value = "matemáticas" Then
Selection.Interior.ColorIndex = 15
ElseIf ActiveCell.Value = "inglés" Then
Selection.Interior.ColorIndex = 10
ElseIf ActiveCell.Value = "química" Then
Selection.Interior.ColorIndex = 14
ElseIf ActiveCell.Value = "historia" Then
Selection.Interior.ColorIndex = 16
ElseIf ActiveCell.Value = "religión" Then
Selection.Interior.ColorIndex = 18
End If

End Sub

Debes editar las posibles asignaturas y las combinaciones numéricas
colorindex que se ajusten a tus necesidades.

Atentamente,

Benito Merino
Respuesta Responder a este mensaje
#2 Josema
31/05/2006 - 23:54 | Informe spam
Gracias por tu respuesta Benito, el problema es que no entiendo donde tengo
que poner todo ese código. No soy muy entendido en Excel. ¿podrías indicarme
la forma de hacerlo?
Con tu permiso voy a enviarte lo que tengo a tu dirección de correo para que
veas a qué nivel trabajo, aunque verás es muy básico. Espero te llegue bien
el correo.
Un saludo y muchas gracias
Josema

"Benito Merino" escribió en el mensaje
news:

Josema ha escrito:

Hola grupo, quería haceros una preguntilla a ver si podéis ayudarme. El
tema
en cuestión es el siguiente: He realizado un horario escolar, y cada vez
que
introduzco en una celda una asignatura quisiera que se pusiera de un
determinado color. Por ejemplo lengua en azul, matemáticas en verde,
etc...
Pues bien desde la opción de Formato, Formato Condicional pongo la
condición
y lo hace, pero solo tres veces y como hay muchas más asignaturas de tres,
no puedo terminar el horario ¿podéis decirme como hacerlo? Una cosa más
para
hacerlo selecciono todo el rango en que se encuentran las asignaturas.
Un saludo y gracias por anticipado
Trabajo con Excel 2002.
Josema



Que hay Josema:

Creo que una solución sería gestionar el evento worksheet_change con
un código similar al que te indico:


Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "lengua" Then
Selection.Interior.ColorIndex = 20
ElseIf ActiveCell.Value = "matemáticas" Then
Selection.Interior.ColorIndex = 15
ElseIf ActiveCell.Value = "inglés" Then
Selection.Interior.ColorIndex = 10
ElseIf ActiveCell.Value = "química" Then
Selection.Interior.ColorIndex = 14
ElseIf ActiveCell.Value = "historia" Then
Selection.Interior.ColorIndex = 16
ElseIf ActiveCell.Value = "religión" Then
Selection.Interior.ColorIndex = 18
End If

End Sub

Debes editar las posibles asignaturas y las combinaciones numéricas
colorindex que se ajusten a tus necesidades.

Atentamente,

Benito Merino
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida