Sombreado de celda activa cuando la mueves

22/04/2005 - 21:09 por Problem Child | Informe spam
Se puede hacer que la celda activa de una hoja de excel
este sombreada cuando la mueves, y que siga sombreada la
columna y el renglon cuando la mueves??
 

Leer las respuestas

#1 Héctor Miguel
23/04/2005 - 08:53 | Informe spam
hola, Problem Child !

... que la celda activa de una hoja de excel este sombreada cuando la mueves
... y que siga sombreada la columna y el renglon cuando la mueves??



puedes usar un complemento que descargas al final de la siguiente direccion...
-> http://www.cpearson.com/excel/RowLiner.htm
[toma nota de que 'se pierde' el beneficio del 'des-hacer' -undo, ctrl+z-]

o... por formatos condicionales [menu] formato / formato condicional...
y [un poco de] apoyo con macros en el modulo de eventos de 'la hoja'
-> click-derecho sobre la pestaña con el nombre de la hoja y -> ver codigo...
1° selecciona todas las celdas de la hoja
[puedes usar el recuadro superior-izquierdo de los encabezados de fila/columna]
[o las combinaciones de teclado: mayusc+espacio 'seguidas' de ctrl+espacio]
2° [menu] formato / formato condicional...
Cond 1: formula: =Fila()=Celda("Fila")
[boton] formato: fuente, color y trama de tu preferencia [opcional: bordes SOLO superior e inferior]
=> si quieres que tambien se coloree la columna correspondiente a la celda activa...
Cond 2: formula: =Columna()=Celda("Columna")
[boton] formato: fuente, color y trama de tu preferencia [opcional: bordes SOLO izquierdo y derecho]
3° copia las siguientes lineas ->en el modulo de codigo de 'esa' hoja:<-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

una ventaja es que NO 'se pierde' el beneficio del des-hacer [undo, ctrl+z]
la 'desventaja' es que veras un [ligero] 'parpadeo'

saludos,
hector.

p.d. si NO te 'interesan' los bordes y SI colorear la fila Y la columna de la celda activa...
puedes 'echar a perder' SOLO una de las 3 condiciones usando la siguiente formula en la condicion1
=O(Fila()=Celda("Fila"),Columna()=Celda("Columna"))

Preguntas similares