Excel: Como expandir a célula para mostrar todo o conteúdo ao clicar

Em alguns casos, se o conteúdo da célula for maior que a largura da célula e houver valores nas células da coluna seguinte, apenas parte do conteúdo será exibida, como mostra a captura de tela abaixo. Para evitar alterar a largura e altura das células, você pode clicar na célula e visualizar todo o conteúdo na barra de fórmulas. Mas e se a barra de fórmulas estiver oculta ou for mais curta que o conteúdo? Aqui apresentamos dois métodos que podem exibir o conteúdo da célula em uma caixa de texto ao clicar nela.

Expandir célula para mostrar todo o conteúdo inserindo uma caixa de texto Controles ActiveX

Expandir célula para mostrar todo o conteúdo usando a Barra de Fórmulas Maior do Kutools para Excel

Observação: os métodos fornecidos neste tutorial foram testados no Excel 2021; pode haver algumas diferenças em diferentes versões do Excel.

1. Ative a planilha onde deseja expandir a célula, clique em Desenvolvedor > Inserir > Caixa de Texto (Controles ActiveX).

Se não houver a guia Desenvolvedor na faixa de opções, por favor, exiba-a primeiro. Consulte este tutorial sobre Como Mostrar/Exibir a Guia Desenvolvedor na Faixa de Opções do Excel

2. Em seguida, arraste o cursor para desenhar uma caixa de texto com uma largura e altura que possam mostrar o conteúdo mais longo das células. Lembre-se do nome desta caixa de texto, aqui é TextBox1.

3. Clique com o botão direito na caixa de texto e clique em Propriedades no menu de contexto. Depois, no painel Propriedades escolha Sim nas listas suspensas das seções MultiLinha e Quebra Automática de Linha . Em seguida, feche o painel Propriedades .
  >>>  

Ou você pode selecionar Sim na lista suspensa da seção AutoTamanho no painel Propriedades, e a caixa de texto será redimensionada automaticamente com base no comprimento do conteúdo da célula que você clicar.

4. Clique com o botão direito no nome da aba da planilha na barra de status e clique em Visualizar Código no menu de contexto.

5. Na janela Microsoft Visual Basic for Applications, copie e cole o código abaixo no script em branco.

VBA: Expandir célula para mostrar conteúdo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

Observe que TextBox1 é o nome da caixa de texto que você desenhou, e A1:B4 é o intervalo em que este código funciona; altere-os conforme necessário.

6. Volte para a planilha, clique em Desenvolvedor > Modo de Design para sair do modo de design.

Agora, quando você clicar na célula, a caixa de texto aparecerá ao lado dela e mostrará todo o conteúdo da célula.

Se você instalou o Kutools para Excel, a Barra de Fórmulas Maior fornecida mostrará todo o conteúdo da célula em uma caixa pop-up ao clicar, desde que você a ative clicando em Kutools > Barra de Fórmulas Maior.

Dicas:

1. Com a Barra de Fórmulas Maior, além de visualizar o conteúdo da célula ativa, você também pode editar o conteúdo da célula na Barra de Fórmulas Maior.

2. Você pode redimensionar a Barra de Fórmulas Maior arrastando o canto inferior direito da barra.

3. Se você selecionar mais de uma célula, apenas o conteúdo da primeira célula da seleção será mostrado na Barra de Fórmulas Maior.

Para mais detalhes sobre a Barra de Fórmulas Maior, visite seu tutorial.