Autofit -kolonner - eksempler på VBA -kode

Når du har manipuleret et regneark med VBA, kan det være nødvendigt at Autofit dine kolonner for at præsentere det pæneste slutresultat muligt. Sådan kan du automatisk tilpasse kolonner ved hjælp af VBA.

Autofit kolonne ved hjælp af VBA

Denne kode tilpasser automatisk kolonner A og B. Autofit anvendes på det aktive ark.

1	Kolonner ("A: B"). EntireColumn.Autofit

Autofit alle brugte kolonner

Hvad hvis du vil autofittere alle de brugte kolonner i et regneark? Brug ovenstående metode i kombination med Tæl antallet af brugte kolonner og en loop.

Følgende kode tilpasser automatisk alle brugte kolonner ved hjælp af VBA:

1234567891011

Sub AutofitAllUsed ()Dim x Som heltalFor x = 1 Til ActiveSheet.UsedRange.Columns.CountKolonner (x) .EntireColumn.autofitNæste xAfslut Sub