Notifications
Clear all

Tabela com Campo de Observações

11 Posts
3 Usuários
0 Reactions
2,084 Visualizações
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde,

Tenho uma planilha com várias linhas e várias colunas.

Porém, uma dessas colunas é o campo "Observação" no qual pode ser muito grande.

Como quero que a coluna e linha tenha o mesmo padrão de tamanho gostaria de saber como faço para quando clickar na célula aparecer a observação completa.

Uma possibilidade é inserir comentários.
Mas não queria utilizar essa possibilidade.

 
Postado : 16/10/2014 11:14 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Por que vc simplesmente não lê a observação toda na barra de fórmulas? (Dá pra redimensionar a barra de fórmulas para o tamanho que achar conveniente).

 
Postado : 16/10/2014 11:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Desconsiderando comentários tu já tentou Quebra automatica de texto?

Só serve se for com recursos do excel?

Já tentou algo em VBA?

Att

 
Postado : 16/10/2014 11:27 am
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Estou formulando uma planilha para análise do Diretor da empresa que sera usada em reuniões.

Então a planilha tem que ser bem elaborada. Além de esteticamente ser usuável.

Não tem como aumentar a barra de fórmulas, pois tem observações extensas demais.
E vai perder a estética da planilha.

alexandrevba, pode ser em VBA.
Mas não tenho muita noção de como fazer.

Teoricamente seria como uma "Validação de Dados" do qual quando selecionamos a celúla aparece uma mensagem de entrada.
Mas no caso seria para visualizar a mensagem dentro da célula por inteiro.

EDIT: No VBA pensei em algo como:

Ao clickar em qualquer célula da coluna "X" ela fosse redimensionada automaticamente e depois voltasse para um tamanho específico.

 
Postado : 16/10/2014 11:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se não for por Comentário e não for por Quebra de texto automático e também não poder ajustar manualmente, e não for por VBA, e não me lembro de uma forma como a solicitada, sem usar os recursos citados anteriormente.

Att

 
Postado : 16/10/2014 11:40 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Insira isso no código planilha:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ActiveCell.Value2
End Sub

Assim, basta dar um duplo clique na célula que quiser, e vai aparecer uma janela com o texto na íntegra.

Abs

PS: Para inserir o código, clica com o bot~]ao direito na planilha (aquela aba escrito "Plan1" ou outra coisa, se vc renomeou), escolhe "exibir código", e cola o código.

 
Postado : 16/10/2014 11:41 am
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde!!

Se não for por Comentário e não for por Quebra de texto automático e também não poder ajustar manualmente, e não for por VBA, e não me lembro de uma forma como a solicitada, sem usar os recursos citados anteriormente.

Att

Pode ser VBA sim,

Como falei ali em cima no EDIT.

 
Postado : 16/10/2014 11:51 am
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Insira isso no código planilha:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ActiveCell.Value2
End Sub

Assim, basta dar um duplo clique na célula que quiser, e vai aparecer uma janela com o texto na íntegra.

Abs

PS: Para inserir o código, clica com o bot~]ao direito na planilha (aquela aba escrito "Plan1" ou outra coisa, se vc renomeou), escolhe "exibir código", e cola o código.

Achei interessante.
Mas teria como especificar por apenas algumas colunas ?

Ai ficaria ideal.

 
Postado : 16/10/2014 11:53 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Se vc disser quais são as colunas, e se elas nunca mudarem, daria. (Na verdade elas podem mudar, mas como vc não conhece VBA, é melhor não complicar).

 
Postado : 16/10/2014 12:02 pm
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Se vc disser quais são as colunas, e se elas nunca mudarem, daria. (Na verdade elas podem mudar, mas como vc não conhece VBA, é melhor não complicar).

Tenho conhecimentos básico de VBA.
Não consigo criar do zero alguns códigos.

As colunas seriam K e W que são as que possuem textos longos.

 
Postado : 16/10/2014 12:08 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Poderia ser assim:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim K As Long
Dim W As Long

K = 11
W = 23

If ActiveCell.Column = K Or ActiveCell.Column = W Then MsgBox ActiveCell.Value2
End Sub

Fiz uma forma que te permita alterar a coluna (pelo número dela, já que K é a coluna 11 e W a coluna 23).

Abs

 
Postado : 16/10/2014 12:13 pm