A munkalap VBA -val való manipulálása után szükség lehet az oszlopok automatikus illesztésére a lehető legszebb végeredmény bemutatásához. Az alábbiakban bemutatjuk, hogyan lehet automatikusan beállítani az oszlopokat a VBA használatával.
Autofit oszlop VBA használatával
Ez a kód automatikusan illeszti az A és a B oszlopot. Az automatikus illesztés az aktív lapra vonatkozik.
| 1 | Oszlopok ("A: B"). EntireColumn.Autofit |
Az összes használt oszlop automatikus illesztése
Mi a teendő, ha a munkalap összes használt oszlopát automatikusan be kívánja illeszteni? Használja a fenti módszert a Használt oszlopok számának számlálása és egy ciklus kombinációjával.
A következő kód automatikusan illeszti az összes használt oszlopot a VBA használatával:
| 1234567891011 | Sub AutofitAllUsed ()Dim x Mint egészX = 1 esetén ActiveSheet.UsedRange.Columns.CountOszlopok (x) .EntireColumn.autofitKövetkező xEnd Sub |
