Turinys
Po to, kai apdorosite darbalapį naudodami VBA, gali prireikti automatiškai pritaikyti stulpelius, kad būtų pateiktas gražiausias galutinis rezultatas. Štai kaip automatiškai pritaikyti stulpelius naudojant VBA.
Automatinio pritaikymo stulpelis naudojant VBA
Šis kodas automatiškai pritaiko A ir B stulpelius. Automatinis pritaikymas taikomas aktyviam lapui.
1 | Stulpeliai („A: B“). Visa stulpelis.Autofit |
Automatiškai pritaikyti visus naudotus stulpelius
Ką daryti, jei norite automatiškai pritaikyti visus naudojamus darbalapio stulpelius? Naudokite aukščiau pateiktą metodą kartu su skaičiuoti naudojamų stulpelių skaičių ir ciklu.
Šis kodas automatiškai pritaiko visus naudojamus stulpelius naudojant VBA:
1234567891011 | SubautofitAllUsed ()Dim x As IntegerX = 1 į ActiveSheet.UsedRange.Columns.CountStulpeliai (x) .Visa stulpelis.autofitKitas xPabaiga Sub |