Tempo de leitura: 1 minuto
Este exemplo altera a largura das colunas A até coluna K na folha de planilha 1 para obter o melhor ajuste ..Este exemplo altera a largura das colunas A até coluna K na folha de planilha 1 para obter o melhor ajuste ..
Worksheets(“Planilha1”).Columns(“A:K”).AutoFit
Este exemplo altera a largura das colunas A a E na Folha1 para obter o melhor ajuste, com base apenas no conteúdo das células A1: E1.
Worksheets(“Planilha1”).Range(“A1:E1”).Columns.AutoFit
Este exemplo se encaixa em todas as colunas da Folha Ativa.
Sub sbx_ajustando_colunas()
ActiveSheet.Columns.AutoFit
End Sub
No caso de ajustes de linhas, o método Autofit tem uma tendência para exibi-los, então, use esse código.
‘……………………….’
Sub sbx_ajustando_linhas()
On Error Resume Next
Dim c As Range
Dim wRng As Range
Set wRng = ActiveSheet.UsedRange
For Each c In wRng.Rows
If c.Rows.Hidden = False Then
c.EntireRow.AutoFit
End If
Next
End Sub
‘……………………….’
Excel VBA Estudos® – Treinamentos com Macros e Funções.
http://www.saberexcel.com.br