Página 1 de 1

Formatação para texto centralizado

Enviado: 04 Jul 2018 às 17:05
por SandroLima
Como faço a formatação condicional para uma coluna de uma tabela em que se ela for preenchida por um caracter específico (no caso o "-") ele fique na posição centralizada de texto.

Lembrando que a coluna encontra-se com a formatação de texto alinhada à esquerda... apenas quando preenchida com esse caracter ele deverá ficar com formatação centralizada .

Segue planilha de exemplo

Re: Formatação para texto centralizado

Enviado: 05 Jul 2018 às 08:52
por osvaldomp
SandroLima escreveu:Como faço a formatação condicional para uma coluna de uma tabela em que se ela for preenchida por um caracter específico (no caso o "-") ele fique na posição centralizada de texto.
Não é possível alterar o alinhamento da célula via Formatação Condicional. ;)

Se você quiser testar uma solução via macro instale o código abaixo no módulo da planilha.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
 Target.HorizontalAlignment = IIf(Target.Value = "-", xlCenter, xlGeneral)
End Sub


Re: Formatação para texto centralizado

Enviado: 05 Jul 2018 às 13:14
por SandroLima
Boa tarde, osvaldomp.

Obrigado pela ajuda. O código funcionou perfeitamente para o que eu mencionei.

Mas eu precisava que o código se estendesse a todas as linhas e colunas de uma tabela.

Como ficaria a alteração do código?

Vou anexar a mesma planilha com a tabela com mais colunas.

Muito obrigado mais uma vez.

Re: Formatação para texto centralizado

Enviado: 05 Jul 2018 às 13:22
por gfranco
Boa tarde.
Veja se te atende.
*Nota:
Se mudar o nome da tabela na planilha, vai ter que mudar também no código.
Para acessar o código, clique com o botão direito no nome da planilha e selecione "exibir código"

Re: Formatação para texto centralizado

Enviado: 05 Jul 2018 às 13:28
por osvaldomp
Substitua esta linha
Código: Selecionar todos
If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
por esta
Código: Selecionar todos
If Intersect(Target, Columns("G:K")) Is Nothing Or Target.Count > 1 Then Exit Sub
obs. o código atuará em todas as linhas das colunas G:K

Re: Formatação para texto centralizado

Enviado: 05 Jul 2018 às 13:52
por SandroLima
Obrigado, osvaldomp. Obrigado, GFranco.

Agora deu certo. As duas alternativas servem.

Muito obrigado.