Reglați automat înălțimea și lățimea liniei prin intermediul macro

Cum să setați înălțimea și lățimea liniei la înălțimea optimă utilizând o macro.

Cum se ajustează automat înălțimea rândului folosind o macro

Dacă doriți să reglați înălțimea unui rând la conținutul celulelor, nu este nicio problemă cu Excel. Făcând dublu clic pe spațiul dintre două linii, ajustați înălțimea liniei liniei superioare la o înălțime cu care poate fi afișat tot conținutul.

Dar cum faci asta cu un macro? Utilizați următorul cod de program:

Reglați înălțimea sub ()
ActiveSheet.Range („a1: a10”). Rows.EntireRow.AutoFit
Sfârșitul Sub

Întotdeauna trebuie să reglați înălțimea liniilor din macrocomenzi atunci când stocați tabele folosind macrocomenzi. Mai ales atunci când se utilizează întreruperi de linie într-o celulă, părți din conținut pot deveni rapid invizibile, după cum arată următoarea figură:

După începerea macro-ului, înălțimile liniilor 1-10 ale tabelului activ sunt setate la valorile optime, astfel încât tot conținutul să fie vizibil. Următoarea figură arată rezultatul:

Ajustați referința „a1: a10” din macro la numerele de linie în care doriți să optimizați înălțimea.

Nu contează numele coloanelor pe care le utilizați în imprimare, numerele de linie sunt importante. Prin urmare, puteți utiliza expresia "c200: c1000", de exemplu, pentru a adapta liniile 200 la 1000.

Cum se modifică lățimea liniei folosind o macro

Devine consumatoare de timp dacă doriți să setați toate rândurile și coloanele utilizate la înălțimea și lățimea optimă. Apoi utilizați această macrocomandă:

Setați rândul coloanelor secundare ()
Cu ActiveSheet.UsedRange
.Columns.AutoFit
.Rows.AutoFit
Se termina cu
Sfârșitul Sub

Macrocomanda ajustează toate rândurile și coloanele din foaia de lucru activă la înălțimea și lățimea optimă. De exemplu, următoarea figură arată cum arată rezultatul:

Celulele fără conținut nu sunt modificate de macro; înălțimea și lățimea standard rămân active pentru dvs.

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave