Ši pamoka parodys, kaip nustatyti eilučių aukštį ir stulpelių plotį naudojant VBA.
„Excel“ eilučių aukštį ir stulpelių plotį galima keisti VBA, nustatant ypatybes .RowHeight ir .ColumnWidth.
Nustatykite stulpelio plotį naudodami VBA
Makrokomanda, skirta nustatyti stulpelio plotis A – E stulpelių:
| 123 | Antrinis stulpelio plotis ()Stulpeliai („A: E“). Stulpelio plotis = 30Pabaiga Sub |
Nustatykite eilutės aukštį naudodami VBA
Makrokomanda, skirta nustatyti eilės aukštis iš 1 eilutės:
| 123 | Sub eilutės aukštis ()Eilutės ("1: 1"). RowHeight = 30Pabaiga Sub |
Automatinio pritaikymo stulpelio plotis
„Excel“ suteikia galimybę „automatiškai pritaikyti“ stulpelių pločius. Ši funkcija koreguoja stulpelio plotį, kad stulpelis (-iai) būtų pakankamai platus, kad tilptų visas tame stulpelyje rastas tekstas.
Norėdami automatiškai pritaikyti stulpelių pločius VBA:
| 1 | Stulpeliai („A: B“). Automatinis pritaikymas |
Daugiau apie tai rašėme kitame straipsnyje apie tai, kaip automatiškai pritaikyti stulpelį iš VBA, įskaitant tai, kaip automatiškai pritaikyti visus naudojamus stulpelius.
Autofit eilės aukštis
Taip pat galite automatiškai pritaikyti eilių aukštį naudodami panašų metodą:
| 1 | Eilutės („1: 2“). Automatinis pritaikymas |
Nustatykite langelio plotį
Taip pat galite koreguoti stulpelių plotį nurodydami langelį:
| 1 | Diapazonas („a1“). Visa stulpelis. Stulpelio plotis = 20 |
Nustatykite ląstelių aukštį
Arba koreguokite eilučių aukštį nurodydami langelį:
| 1 | Diapazonas ("a1"). EntireRow.RowHeight = 10 |
Gaukite stulpelio plotį
Norėdami sužinoti stulpelio plotį:
| 12 | silpnas „iColumnWidth“iColumnWidth = stulpeliai ("a"). ColumnWidth |
Pastaba: tai grąžins nulį, jei visi diapazono stulpeliai nebus vienodo pločio.
Gaukite eilutės aukštį
Panašiai galite gauti eilutės aukštį:
| 12 | silpnas „iRowHeight“„iRowHeight“ = eilutės („1“). „RowHeight“ |
