¿Cómo hacer zoom o ampliar las celdas seleccionadas en Excel?
Como todos sabemos, Excel tiene una función de Zoom para ayudarnos a aumentar el tamaño del valor de la celda en toda la hoja de trabajo. Pero, a veces, solo necesitamos hacer zoom o ampliar solo las celdas seleccionadas. ¿Hay alguna buena idea para nosotros para ampliar las celdas seleccionadas solo en una hoja de trabajo?
Amplíe o amplíe la celda seleccionada con código VBA
Amplíe o amplíe la celda seleccionada con código VBA
Puede que no exista una forma directa de ampliar las celdas seleccionadas en Excel, pero, aquí, puedo introducir un código VBA para hacer frente a este trabajo como solución. Haz lo siguiente:
1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea ampliar las celdas seleccionadas automáticamente y luego elija Ver código desde el menú contextual, en el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el módulo en blanco:
Código VBA: amplíe o amplíe las celdas seleccionadas:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Luego guarde y cierre esta ventana de código, ahora, cuando seleccione o haga clic en algunas celdas de datos, las celdas se ampliarán como una imagen automáticamente, vea la captura de pantalla:
Note: Las celdas seleccionadas volverán a su tamaño original después de seleccionar otras celdas.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!