Tempo de leitura: menos de 1 minuto
‘Alinhamento Texto e Ajuste Coluna pelo Vba
‘Esta macro ajusta todas as colunas(A) do workbook para 17.43
vamos ajustar atraves excel vba pelo método autofit todas as folhas de planilhas.
Sub Ajusta_ColA_e_Texto_Wkb()
For i = 1 To Worksheets.Count
Worksheets(i).Activate
ActiveSheet.Columns(“A”).ColumnWidth = 17.43
ActiveSheet.Columns(“A”).VerticalAlignment = xlVAlignTop
ActiveSheet.Columns(“A”).HorizontalAlignment = xlHAlignRight
Next
End Sub
‘uma linha de comando para alinhar a direita.
Sheets(“Planilha1”).Columns(“A”).Cells.HorizontalAlignment = xlHAlignRight
Escola Saberexcel VBA Estudos