Precisa de um codigo VBA do Excel para mesclar & Centro, texto em contorno e Normal?

Eu queria saber se existe qualquer vba do excel código para mesclagem e Centro, quebra automática de texto e que o normal.
por exemplo, eu uso 4 colunas (Colum A coluna d). Com os dados nesta coluna, eu usullay clique no primeiro: MERGE & CENTER, segundo: texto em contorno, terceiro: Normal. Isso é apenas muito trabalho para mim. Eu preciso ser capaz de fazer isso com apenas um clique. Obrigado.

Resposta

Concordo com mestres de C - mas se for muito trabalho clicar três botões achei que seria demais para ler o que ele sugeriu haha brincadeira.

O código é muito simple:

Sub Mergecenterandwrap()

Selection.Merge

Com a seleção

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = True

.Orientação = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

Terminar com

End Sub

Não entendi o que você entende por "terceiro: Normal" então eu omiti isso do código. Se você esclarecer isso que pode modificar o código.

Ta,

AG

Inscrever - receber um email se alguém adiciona novas respostas/comentários

Comentários

Catarina na 21 Mai 2023

Claro! Você pode usar o seguinte código VBA no Excel para mesclar e centralizar, quebrar automaticamente o texto e retornar ao formato normal:

Sub AplicarFormato()
Range("A1:C1").Merge
With Range("A1:C1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.BorderAround Weight:=xlThin
End With
End Sub

Esse código irá mesclar e centralizar as colunas A, B e C, quebrar automaticamente o texto e aplicar a formatação normal à célula. Basta clicar em "Macros" e selecionar "AplicarFormato" para executar o código. Isso deve facilitar o trabalho para você. Espero que seja útil!

Responder

O seu comentário

Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..