Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere um ajuste de medida em todas  as colunas(A) do workbook medida 17.43
insere também um alinhamento de textos na coluna(A)

Range.Método AutoFit
Altera a largura das colunas do intervalo ou a altura das linhas do intervalo para obter o melhor ajuste.

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
xSheet.Columns(”A”).Cells.HorizontalAlignment = xlHAlignRight



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel