Lang L: none (table-of-contents)
Pärast töölehe manipuleerimist VBA -ga võib osutuda vajalikuks veergude automaatne kohandamine, et kuvada võimalikult ilus lõpptulemus. Siit saate teada, kuidas veerge automaatselt kohandada VBA abil.
Automaatse sobitamise veerg VBA abil
See kood sobib automaatselt veergudesse A ja B. Automaatne sobitamine rakendatakse aktiivsele lehele.
1 | Veerud ("A: B"). Kogu veerg. Autofit |
Autofit Kõik kasutatud veerud
Mis saab siis, kui soovite töölehe kõik kasutatud veerud automaatselt kohandada? Kasutage ülaltoodud meetodit koos kasutatud veergude arvu loendamise ja tsükliga.
Järgmine kood sobitab automaatselt kõik kasutatud veerud VBA abil:
1234567891011 | Sub AutofitAllUsed ()Dim x täisarvunaX = 1 jaoks ActiveSheet.UsedRange.Columns.CountVeerud (x). Kogu veerg. AutofitJärgmine xEnd Sub |