COLOR EN FILA Y COLUMNA PARA VER MEJOR LA CELDA ACTIVA

Discussion:

(demasiado antiguo para responder)

raulcely

2008-06-14 20:42:16 UTC

Amigos:

Como hago para que en excel 2003 pueda colocar de color azul claro la
fila (activa) y la columna (activa) para identificar mejor la celda
activa.

Saludos, Raúl

Héctor Miguel

2008-06-14 21:10:39 UTC

Permalink

hola, !

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

puedes usar codigo (vba/macros) y/o instalar un complemento de terceros desde la siguiente pagina:
-> http://www.cpearson.com/excel/RowLiner.htm
(solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(

alternativas: 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 pestana 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: =y(fila()=celda("fila"),columna()=celda("columna"))
formato: (selecciona el color, trama, bordes, ... de tu preferencia)

3) copia las siguientes lineas (en el modulo de codigo de esa hoja):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
(o el efecto de los re/calculos del modelo completo ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
(p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
-> los formatos sugeridos en los bordes para...
las filas: SOLO superior e inferior
las columnas: SOLO izquierdo y derecho
-> formulas para los formatos condicionales:
1) en cruz:
cond1: =fila()=celda("fila")
cond2: =columna()=celda("columna")
2) L en espejo (o lo que es lo mismo, de aqui... patras)
cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
=> EXCLUYENDO a la celda activa <=
1) en cruz:
cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
2 y 3.- (L y L invertida)
(cambiar) <= a < (cambiar tambien) >= a >
=====
SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
=====

raulcely

2008-06-14 21:17:27 UTC

Permalink

Post by HÃ©ctor Miguel
hola, !

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

->http://www.cpearson.com/excel/RowLiner.htm
(solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(
alternativas: 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 pestana 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: =y(fila()=celda("fila"),columna()=celda("columna"))
formato: (selecciona el color, trama, bordes, ... de tu preferencia)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub
o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
(o el efecto de los re/calculos del modelo completo ?)
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
(p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
-> los formatos sugeridos en los bordes para...
las filas: SOLO superior e inferior
las columnas: SOLO izquierdo y derecho
cond1: =fila()=celda("fila")
cond2: =columna()=celda("columna")
2) L en espejo (o lo que es lo mismo, de aqui... patras)
cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
=> EXCLUYENDO a la celda activa <=
cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
2 y 3.- (L y L invertida)
(cambiar) <= a < (cambiar tambien) >= a >
=====
SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
=====

Gracias, Hector Miguel.

Esto me va a ayudar a mejorar mi trabajo.

Saludos, Raúl

crx73

2008-07-02 21:22:38 UTC

Permalink

Post by HÃ©ctor Miguel
hola, !

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

No logro que me funcione, tendras algun ejemplo?

Héctor Miguel

2008-07-03 01:49:08 UTC

Permalink

hola, 'anonimo/a' !

Post by crx73
No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

saludos,
hector.

__ OP __

Post by crx73

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

-> http://www.cpearson.com/excel/RowLiner.htm
(solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(
alternativas: 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 pestana 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: =y(fila()=celda("fila"),columna()=celda("columna"))
formato: (selecciona el color, trama, bordes, ... de tu preferencia)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub
o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
(o el efecto de los re/calculos del modelo completo ?)
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
(p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
-> los formatos sugeridos en los bordes para...
las filas: SOLO superior e inferior
las columnas: SOLO izquierdo y derecho
cond1: =fila()=celda("fila")
cond2: =columna()=celda("columna")
2) L en espejo (o lo que es lo mismo, de aqui... patras)
cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
=> EXCLUYENDO a la celda activa <=
cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
2 y 3.- (L y L invertida)
(cambiar) <= a < (cambiar tambien) >= a >
=====
SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
=====

crx73

2008-07-03 14:30:07 UTC

Permalink

Post by HÃ©ctor Miguel
hola, 'anonimo/a' !

Post by crx73
No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?
saludos,
hector.
__ OP __

Post by crx73

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

- Mostrar texto de la cita -

Quiero usarlo en toda una hoja, quiero usar En Cruz excluyendo la
celda activa
Lo que hice fue:
Seleccione toda la hoja, luego en Format-Conditional formatting (mi
excel está en inglés)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))

También copié al código de la hoja lo siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

Y como no me funcionó intenté sustituyéndolo con el otro código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

¿Qué hice mal?

Gracias

AnSanVal

2008-07-03 15:37:13 UTC

Permalink

Creo que te podria servir el ejemplo número 9 de la página de Emilio.

http://www.mvp-access.es/emilio/Excel/Descargas/Descargas.asp

Saludos: Antonio.
********************

Post by HÃ©ctor Miguel
hola, 'anonimo/a' !

Post by crx73
No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?
saludos,
hector.
__ OP __

Post by crx73

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

- Mostrar texto de la cita -

Héctor Miguel

2008-07-03 19:00:46 UTC

Permalink

hola, chicos !

AnSanVal escribio en el mensaje ..
Creo que te podria servir el ejemplo numero 9 de la pagina de Emilio.
http://www.mvp-access.es/emilio/Excel/Descargas/Descargas.asp

el ejemplo de Emilio esta bien, solo que sigue los pasos del complemento de Chip Pearson
o sea, no perder de vista que se pierde la pila de niveles para el des-hacer, undo, ctrl+Z

la otra alternativa es que revises tu correo (te envie un ejemplo con todas las opciones descritas)

y/o (si tu excel es en ingles) que cambies las referencias a la funcion =celda( <-> por =cell(
y los argumentos tambien al ingles <= OJO: NO CONFUNDIR la funcion =cell("row") con la funcion =row()

saludos,
hector.

__ OP __

crx73 escribio en el mensaje ...

Post by crx73
No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

Quiero usarlo en toda una hoja, quiero usar En Cruz excluyendo la celda activa
Seleccione toda la hoja, luego en Format-Conditional formatting (mi excel esta en ingles)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
Que hice mal?

AnSanVal

2008-07-03 20:10:00 UTC

Permalink

Gracias Héctor.

No habia visto tus respuestas anteriores. He comprobado que en el O.E.
pierdo mensajes :-(( , por ejemplo el mio en esta consulta no lo veo y he
tenido que entrar por www.microsoft.com/... para verlo completo. No se que
puede ser.

Me apunto tu solución. ;-)
--
Un saludo desde Tenerife (España).

AnSanVal escribio en el mensaje ..
Creo que te podria servir el ejemplo numero 9 de la pagina de Emilio.
http://www.mvp-access.es/emilio/Excel/Descargas/Descargas.asp

el ejemplo de Emilio esta bien, solo que sigue los pasos del complemento de Chip Pearson
o sea, no perder de vista que se pierde la pila de niveles para el des-hacer, undo, ctrl+Z
la otra alternativa es que revises tu correo (te envie un ejemplo con todas las opciones descritas)
y/o (si tu excel es en ingles) que cambies las referencias a la funcion =celda( <-> por =cell(
y los argumentos tambien al ingles <= OJO: NO CONFUNDIR la funcion =cell("row") con la funcion =row()
saludos,
hector.
__ OP __

crx73 escribio en el mensaje ...

Post by crx73
No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

Héctor Miguel

2008-07-04 02:18:53 UTC

Permalink

hola (de nuevo), 'anonimo/a' ! (creo que no has visto la solucion... verdad ?)

para la opcion que quieres manejar (en cruz excluyendo la celda activa)...
- conserva en uso el primer codigo (a menos que sea necesario usar el segundo) -?-

Post by HÃ©ctor Miguel
=> EXCLUYENDO a la celda activa <=
cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))

a:
cond1: =and(row()=cell("row"),column()<>cell("col"))
cond2: =and(column()=cell("col"),row()<>cell("row"))

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

Seleccione toda la hoja, luego en Format-Conditional formatting (mi excel esta en ingles)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
Que hice mal?