Note: The other languages of the website are Google-translated. Back to English
Iniciar  \/ 
x
or
x
Registrarse  \/ 
x

or

¿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:

Nota:: Las celdas seleccionadas volverán a su tamaño original después de seleccionar otras celdas.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    vikas vasa · 1 years ago
    Hi,

    I am using Mac-Air and it shows only the color when you click on ac particular cell, pls guide.
  • To post as a guest, your comment is unpublished.
    Mazzi · 2 years ago
    Error 1004 on line 15

    Application.ActiveSheet.Pictures.Paste.Select

    Why?, what could it be?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hi, Mazzi,
      The above code works well in my Excel workbook, which Excel version do you use?
  • To post as a guest, your comment is unpublished.
    ashraf · 2 years ago
    I want to magnify when entering the data
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hi,
      May be, there is no direct way for solving your problem, if you find a good method, please comment here.
  • To post as a guest, your comment is unpublished.
    Korkmaz · 2 years ago
    this is cool, but i want it to run in all sheets, how can i do that?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hi, Ahmet,
      To apply this operation in all worksheets, you can use the below vba code. (You should put the code into the ThisWorkbook module).Please try it.
      Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
      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