Como Hacer ZOOM a CELDA a MEDIDA que se DESPLAZA por HOJA EXCEL VBA
En este post se muestra como dar zoom a la celda activa de excel, no solo se hace zoom a la celda activa sino que además se resalta o colorea la celda en la cual se esta posicionado actualmente en la hoja de Excel.
Maneja Excel como los mejores, click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
Mira el funcionamiento de la macro y una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.
Hacer Zoom a celda y resaltar la celda activa en Excel
Para probar el funcionamiento del ejemplo que se muestra en este post, solo basta abrir el libro de Excel de ejemplo que se puede descargar desde el final, simplemente se debe empezar a desplazar por las distintas celdas de la hoja1 y se observará como se va otorgando zoom a cada celda activa, a su vez que se colorea o resalta con color verde.
Esta macro es bastante útil, porque ayuda bastante a la desplazamiento sobre la hoja, sabiendo en todo momento en que celda se está posicionado y el dato que contiene la celda ayudando también a esforzar menos la vista.
Hay una variante donde la celda cambia de color a medida que se desplaza por una columna lo puedes ver en el link .
Explicación del código que muestra como realizar un zoom a celda activa a medida que se desplaza por la hoja
Este procedimiento para dar zoom y colorear la celda activa, es decir la celda por la cual se va desplazando, se debe colocar el código en worksheet de la hoja en la cual requiramos tener esta macro.
Si esta macro se coloca en thisworkbook la macro estará disponible en todo el libro.
La macro con el siguiente código vuelve a dar formato original a la celda:
Celda.RowHeight = 12.75 ‘ Celda.RowHeight / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
Para dar el formato de zoom a la celda se usa el siguiente código:
Set Celda = Target ‘fila y columna actual
Celda.RowHeight = Celda.RowHeight * 2 ‘ duplico el ancho y el alto de fila y columna activa
Celda.Font.Size = 18
Selection.Font.Bold = True
Celda.Interior.ColorIndex = 4 ‘ cambio el color a la celda activa
Descarga del archivo ejemplo llamado como hacer zoom a celda activa y resaltarla
Descarga el Libro de Excel desde el final del post, contiene el código completo del ejemplo como hacer zoom a celdas en Excel, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.
Código del ejemplo Como Hacer Compatibles Macros de Excel en Office de 32 bits y 64 bits
Código que se ingresa en Worksheet Hoja1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Static Celda As Range, bytColor As Byte
On Error GoTo Salir
‘fila y columna anteriores con formato original
Celda.RowHeight = 12.75 ‘ Celda.RowHeight / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
Set Celda = Target ‘fila y columna actual
Celda.RowHeight = Celda.RowHeight * 2 ‘ duplico el ancho y el alto de fila y columna activa
Celda.Font.Size = 18
Selection.Font.Bold = True
Celda.Interior.ColorIndex = 4 ‘ cambio el color a la celda activa
Salir:
Resume Next
End Sub
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407