Excel - texto multilinha em uma célula

0

Eu tenho texto de múltiplas linhas em uma célula da tabela. depois de definir a largura e o hieght para mostrar apenas a primeira linha Eu gostaria que o conteúdo completo de múltiplas linhas expandisse ao clicar na célula. a célula está envolta em texto.

é possível fazer isso?

    
por Key Sar 12.02.2015 / 11:06

1 resposta

0

Abra o editor de macros, na árvore da esquerda, em Microsoft Excel Objects, clique duas vezes na Planilha onde deseja este comportamento e, no lado direito, cole isto:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    cell_width = Target.Width
    cell_height = Target.Height
    Target.Rows.AutoFit
    Application.Wait (Now + TimeValue("0:00:05")) 'time expanded
    Target.RowHeight = cell_height
End Sub

Agora, sempre que alguém clicar duas vezes em uma célula, ela se expandirá e, após 5 segundos, voltará ao tamanho original.

Desativará a edição clicando duas vezes e escrevendo na célula, mas não editando no campo de fórmula. Se for necessário editar na célula, basta alterar Cancel=True para Cancel=False

    
por 12.02.2015 / 12:05