Tempo de leitura: menos de 1 minuto
Excel vba planilha metodo autofit ajuste de linhas e colunas
Com esse macro do Excel planilhas vba vamos usar o Método Autofit para que todas as colunas da folha de planilha tenham a mesma largura da altura das linhas.
‘……………..’
Sub sbx_ajuste_autofit_linhas_colunas()
Dim i As Integer
For i = 1 To 4 ‘definir altura da linha da linha 1 primeiro
With ActiveSheet
.Columns.ColumnWidth = _
.Columns(“A”).ColumnWidth / .Columns(“A”).Width * .Rows(1).Height
End With
Next
End Sub
‘……………..’
Neste exemplo vamos poder ajustar as colunas de acordo com a nossa necessidade.
‘Ajusta nas larguras de colunas na folha de planilha excel
Sub Ajusta_Coluna()
Range(“A1”).Select
Columns(“A”).ColumnWidth = 12
Columns(“B”).ColumnWidth = 55
Columns(“C”).ColumnWidth = 5
Columns(“D”).ColumnWidth = 4
Columns(“E:G”).ColumnWidth = 8
Columns(“H”).ColumnWidth = 6
Columns(“I:J”).ColumnWidth = 8
Columns(“K:L”).ColumnWidth = 4
Columns(“M”).ColumnWidth = 9
Columns(“N:O”).ColumnWidth = 12
End Sub
Faça o Download do exemplo de planilha ms excel vba.
[wpdm_package id=’514′]