Potom, čo manipulujete s pracovným listom pomocou VBA, môže byť potrebné automaticky prispôsobiť stĺpce, aby predstavili najkrajší možný výsledok. Tu je návod, ako automaticky upravovať stĺpce pomocou VBA.
Stĺpec Autofit pomocou VBA
Tento kód automaticky prispôsobuje stĺpce A a B. Automatické prispôsobenie sa použije na aktívny hárok.
1 | Stĺpce („A: B“). EntireColumn.Autofit |
Autofit Všetky použité stĺpce
Čo keď chcete automaticky prispôsobiť všetky použité stĺpce v hárku? Vyššie uvedenú metódu použite v kombinácii s počítaním počtu použitých stĺpcov a slučkou.
Nasledujúci kód automaticky prispôsobí všetky použité stĺpce pomocou jazyka VBA:
1234567891011 | Sub AutofitAllUsed ()Dim x As IntegerPre x = 1 na ActiveSheet.UsedRange.Columns.CountStĺpce (x). Celý stĺpec.autofitDalej xKoniec pod |