Foros del web, para los que viven de bits

123 · 12-ene-2008, 05:01

Hola por favor ayudadme con 2 preguntillas sobre Excel, son cosas muy utiles de uso diario, pero parece q no hayan pensado en ellas :'( especialmente la P1)

P1) Hay alguna manera de conseguir algo tipo FullRow en Excel, q remarque toda la fila y columna para poder estar seguro d leer los datos correctos si desviarse de filas. Cuando te mueves p una tabla tienes indicadores de posición en la celda, y el cabezal d la columna y fila en q te encuentras, pero todas las celdas intermedias no. Si hace falta alto tipo un plugin o lo q sea, también me vale

P2) Se puede desactivar permanentemente la opción automática d "Ajuste de texto"? q hace q al insertar salto de línea dentro d una celda se extienda verticalmente para mostrar todo el contenido?
Se encuentra en Formato de celdas\Alineación\Ajuste texto

Muchas gracias :-)

mrocf · 13-ene-2008, 21:09

Hola! 123. Vamos tema a tema:

P1) Deberás incorporar una pequeña macro como la que sigue:
a) Selecciona la hoja donde requieres el efecto con el botón derecho de tu ratón y elige la opción "Ver código";

b) Te aparecerá un texto como:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

que reemplazarás TOTALMENTE por este otro:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlNone
    Target.EntireRow.Interior.ColorIndex = 38
    Target.EntireColumn.Interior.ColorIndex = 38
End Sub

c) Cierra todas las ventanas del Visual Basic donde te encuentras y retorna al Excel

d) A partir de ese momento, conseguirás el efecto pedido.

P2) No entiendo tu pregunta pero vayan un par de comentarios sobre la base de un ejemplo: a lo mejor te sirven como idea.

a) En una celda cualquiera escribe: Hola<Alt><Enter>Amigos<Enter>
Al presionar simultáneamente las teclas Alt y Enter el cursor se dispone a escribir en la línea siguiente el texto Amigos.
El último Enter te mostrará en una sola celda un texto así:

Cita:

Hola
Amigos

b) Selecciona esta misma celda y yendo a Formato de celdas\Alineación\Ajuste texto quita el tilde a la casilla de verificación.

c) A consecuencia de lo anterior visualizarás en la celda que entre la palabra Hola y la palabra Amigo aparece un "caracter especial".

Ese caracter es el ascii 10, o sea: el caracter de salto de línea.

En resumen: la duplicación (ó triplicación, etc.) de líneas en una sola celda opera ante la aplicación concurrente de dos efectos:

> la existencia del ascii 10; y
> la indicación de "Ajuste de Texto" a esa celda.

Espero que esto te ayude.

Saludos

123 · 14-ene-2008, 01:47

Muchas gracias Mrocf por tu rapidez y claridad ;)

Pero era demasiado bonito para ser verdad

, tu código es exactamente lo q busco, pero hay efectos secundarios... :P

1- Se borran todos los colores de relleno de celda no condicionales de la tabla, auque los vuelvas a aplicar, se vuelven a borrar, es una tabla con muchos campos y los colores ayudan mucho a comprender y agilizar el uso de los datos :(

2- La funciones Copia y Pagar se inutilizan :( Esto es fatal, ya q limita muchísimo la capacidad d trabajo

Buscando información de cara a cambiar el color de relleno en tu código, he encontrado algo similar q indican q tiene los mismos efectos secundarios... :( http://office.microsoft.com/es-es/ex...CL100570553082

La verdad es q no entiendo q Microsoft no halla detectado la necesidad del FullRow y haya puesto remedio... :P

Respecto a la P2), gracias p tu respuesta, pero as descrito me problema ;). Yo busco la forma d pedir a Excel q no Ajuste texto automáticamente (en un libro, hoja o en si hace falta Celda p celda pero q baste con deshabilitarlo 1 vez) ya q se reedito la celda vuelve a aplicarlo....

Muchas gracias :)

123 · 02-mar-2008, 12:10

Hola de nuevo

He estado haciendo pruebas, ya q el código anterior suprime todos los fondos d celda y me destroza un código d colores.
Pero ya q por ejemplo no uso los Borders d Celda para nada, quería probar a cambiar el código, haciendo q p ejemplo subraye por arriba la fila y p la izquierda la columna d la posición actual. El problema es q no domino suficiente, y nada de lo q encuentro buscando me funciona

Podéis echarme una mano?

Muchas gracias

mrocf · 02-mar-2008, 18:12

Entonces el código que debes incorporar a tu hoja es un poco más elaborado. Algo así como:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim MiRango As Range
Application.ScreenUpdating = False

With Application.Cells
   .Borders(xlInsideVertical).LineStyle = xlNone
   .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Set MiRango = Application.Union(Range(Cells(Target.Row, 1), Target), _
   Range(Cells(1, Target.Column), Target))
   
With MiRango.Borders(xlEdgeLeft)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeRight)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With

Application.ScreenUpdating = True
Set MiRango = Nothing
End Sub

Espero que éste te sea más útil.

Saludos.

12-ene-2008, 05:01	#1 (permalink)
123 Fecha de Ingreso: noviembre-2002 Mensajes: 133	FullRow en Excel Resaltar columna y fila en Tablas Hola por favor ayudadme con 2 preguntillas sobre Excel, son cosas muy utiles de uso diario, pero parece q no hayan pensado en ellas :'( especialmente la P1) P1) Hay alguna manera de conseguir algo tipo FullRow en Excel, q remarque toda la fila y columna para poder estar seguro d leer los datos correctos si desviarse de filas. Cuando te mueves p una tabla tienes indicadores de posición en la celda, y el cabezal d la columna y fila en q te encuentras, pero todas las celdas intermedias no. Si hace falta alto tipo un plugin o lo q sea, también me vale P2) Se puede desactivar permanentemente la opción automática d "Ajuste de texto"? q hace q al insertar salto de línea dentro d una celda se extienda verticalmente para mostrar todo el contenido? Se encuentra en Formato de celdas\Alineación\Ajuste texto Muchas gracias :-)

13-ene-2008, 21:09	#2 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 268	FullRow en Excel Resaltar columna y fila en Tablas Hola! 123. Vamos tema a tema: P1) Deberás incorporar una pequeña macro como la que sigue: a) Selecciona la hoja donde requieres el efecto con el botón derecho de tu ratón y elige la opción "Ver código"; b) Te aparecerá un texto como: Código: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) End Sub que reemplazarás TOTALMENTE por este otro: Código: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 38 Target.EntireColumn.Interior.ColorIndex = 38 End Sub c) Cierra todas las ventanas del Visual Basic donde te encuentras y retorna al Excel d) A partir de ese momento, conseguirás el efecto pedido. P2) No entiendo tu pregunta pero vayan un par de comentarios sobre la base de un ejemplo: a lo mejor te sirven como idea. a) En una celda cualquiera escribe: Hola<Alt><Enter>Amigos<Enter> Al presionar simultáneamente las teclas Alt y Enter el cursor se dispone a escribir en la línea siguiente el texto Amigos. El último Enter te mostrará en una sola celda un texto así: Cita: Hola Amigos b) Selecciona esta misma celda y yendo a Formato de celdas\Alineación\Ajuste texto quita el tilde a la casilla de verificación. c) A consecuencia de lo anterior visualizarás en la celda que entre la palabra Hola y la palabra Amigo aparece un "caracter especial". Ese caracter es el ascii 10, o sea: el caracter de salto de línea. En resumen: la duplicación (ó triplicación, etc.) de líneas en una sola celda opera ante la aplicación concurrente de dos efectos: > la existencia del ascii 10; y > la indicación de "Ajuste de Texto" a esa celda. Espero que esto te ayude. Saludos

14-ene-2008, 01:47	#3 (permalink)
123 Fecha de Ingreso: noviembre-2002 Mensajes: 133	Re: FullRow en Excel Resaltar columna y fila en Tablas Muchas gracias Mrocf por tu rapidez y claridad ;) Pero era demasiado bonito para ser verdad , tu código es exactamente lo q busco, pero hay efectos secundarios... :P 1- Se borran todos los colores de relleno de celda no condicionales de la tabla, auque los vuelvas a aplicar, se vuelven a borrar, es una tabla con muchos campos y los colores ayudan mucho a comprender y agilizar el uso de los datos :( 2- La funciones Copia y Pagar se inutilizan :( Esto es fatal, ya q limita muchísimo la capacidad d trabajo Buscando información de cara a cambiar el color de relleno en tu código, he encontrado algo similar q indican q tiene los mismos efectos secundarios... :( http://office.microsoft.com/es-es/ex...CL100570553082 La verdad es q no entiendo q Microsoft no halla detectado la necesidad del FullRow y haya puesto remedio... :P Respecto a la P2), gracias p tu respuesta, pero as descrito me problema ;). Yo busco la forma d pedir a Excel q no Ajuste texto automáticamente (en un libro, hoja o en si hace falta Celda p celda pero q baste con deshabilitarlo 1 vez) ya q se reedito la celda vuelve a aplicarlo.... Muchas gracias :)

02-mar-2008, 12:10	#4 (permalink)
123 Fecha de Ingreso: noviembre-2002 Mensajes: 133	Re: FullRow en Excel Resaltar columna y fila en Tablas Hola de nuevo He estado haciendo pruebas, ya q el código anterior suprime todos los fondos d celda y me destroza un código d colores. Pero ya q por ejemplo no uso los Borders d Celda para nada, quería probar a cambiar el código, haciendo q p ejemplo subraye por arriba la fila y p la izquierda la columna d la posición actual. El problema es q no domino suficiente, y nada de lo q encuentro buscando me funciona Podéis echarme una mano? Muchas gracias

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado