Como ampliar ou aumentar as células selecionadas no Excel? 

Como todos sabemos, o Excel possui um recurso de Zoom para nos ajudar a aumentar o tamanho do valor da célula em toda a planilha. No entanto, às vezes, precisamos apenas ampliar ou aumentar apenas as células selecionadas. Existem boas ideias para aumentarmos apenas as células selecionadas em uma planilha?

Amplie ou aumente a célula selecionada com código VBA

Amplie ou aumente a célula selecionada com código VBA

Pode ser que não haja uma maneira direta de aumentar as células selecionadas no Excel, mas aqui posso apresentar um código VBA para lidar com essa tarefa como solução alternativa. Por favor, siga os passos abaixo:

1. Clique com o botão direito na aba da planilha onde deseja ampliar automaticamente as células selecionadas e, em seguida, escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código no Módulo em branco:

Código VBA: Ampliar ou aumentar as células selecionadas:

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. Em seguida, salve e feche esta janela de código. Agora, quando você selecionar ou clicar em algumas células de dados, as células serão ampliadas automaticamente como uma imagem, veja a captura de tela:

Observação: As células selecionadas voltarão ao tamanho original após a seleção de outras células.