Hoe rijen/kolommen automatisch in vba passen?

Belangrijkste punten

• In VBA kunt u de AutoFit-methode gebruiken om rijen, kolommen en zelfs een heel werkblad automatisch in te passen.
• U moet het bereik opgeven en vervolgens kunt u de AutoFit-methode gebruiken.

Een kolom automatisch aanpassen

Stel dat u kolom A automatisch wilt aanpassen, de code zou er ongeveer als volgt uitzien:

 Range("A1").EntireColumn.AutoFit

In de bovenstaande coderegel hebt u de eigenschap EntireColumn gebruikt om naar de volledige kolom van cel A1 te verwijzen.

Omdat u zich in een spreadsheet bevindt, kunt u ook de eigenschap kolommen gebruiken en een code schrijven zoals hieronder.

 Columns(1).AutoFit

Past automatisch op een lijn

Op dezelfde manier kunt u code schrijven om een regel automatisch aan te passen. Stel dat u regel 5 automatisch wilt aanpassen, dan zou de code als volgt zijn:

 Range("A5").EntireRow.AutoFit

En als u rij-eigenschap wilt gebruiken, kunt u de code als volgt gebruiken.

 Rows(5).AutoFit

AutoFit UsedRange (rijen en kolommen)

Stel nu dat u alleen kolommen en rijen die gegevens bevatten automatisch wilt aanpassen. In VBA is er een eigenschap genaamd used range die u kunt gebruiken. De code zou dus zijn.

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

En als u een specifieke spreadsheet wilt gebruiken, zou de code dat zijn.

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

Automatisch aanpassen van het hele werkblad

En als je naar alle kolommen en rijen in het werkblad wilt verwijzen, kun je de eigenschap ‘CELLS’ gebruiken. Hier is de code.

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

Of u kunt ook de WITH-instructie van VBA gebruiken om code zoals hieronder te schrijven.

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With