Sisällysluettelo
Kun olet muokannut laskentataulukkoa VBA: lla, saatat joutua säätämään sarakkeet automaattisesti, jotta lopputulos olisi mahdollisimman mukava. Näin voit sovittaa sarakkeet automaattisesti VBA: n avulla.
Automaattinen sovitus -sarake VBA: n avulla
Tämä koodi sovittaa sarakkeet A ja B. Automaattinen sovitus otetaan käyttöön aktiivisessa taulukossa.
| 1 | Sarakkeet ("A: B"). Koko sarake.Autofit |
Automaattisesti kaikki käytetyt sarakkeet
Entä jos haluat sovittaa laskentataulukon kaikki käytetyt sarakkeet automaattisesti? Käytä yllä olevaa menetelmää yhdessä Laske käytettyjen sarakkeiden määrä ja silmukan kanssa.
Seuraava koodi sovittaa automaattisesti kaikki käytetyt sarakkeet VBA: n avulla:
| 1234567891011 | Sub AutofitAllUsed ()Dim x kokonaislukunaX = 1 ActiveSheet.UsedRange.Columns.CountSarakkeet (x) .KokoColumn.autofitSeuraava xEnd Sub |
