VBA centro tekstas - langelių lygiavimas (horizontalus ir vertikalus)

Ši pamoka parodys, kaip naudoti VBA, kad būtų centruojamas tekstas ląstelėje tiek horizontaliai, tiek vertikaliai.

„Excel“ namų juostelės grupę „Lygiuoti“ galime naudoti, kad langelio tekstas būtų centruojamas tiek horizontaliai, tiek vertikaliai. Jei rašome makrokomandą tekstui formatuoti, šią funkciją galime sukurti iš naujo naudodami VBA kodą.

Centruoti tekstą horizontaliai

Norėdami centruoti tekstą horizontaliai vienoje ląstelėje, galime naudoti šį kodą:

123 Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterPabaiga Sub

Arba norėdami centruoti tekstą horizontaliai kiekviename pasirinkto langelio diapazono langelyje, galime naudoti pasirinkimo objektą ir atlikti šiuos veiksmus:

123 Sub CenterText ()Pasirinkimas.HorizontalAlignment = xlCenterPabaiga Sub

Taip pat galime pakeisti derinimą į dešinę arba į kairę naudodami xlKairė ir xlTeisingai konstantos.

Todėl, norėdami išlyginti tekstą langelyje, galime naudoti šį kodą:

123 Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightPabaiga Sub

Centruoti tekstą vertikaliai

Teksto centravimas vertikaliai yra tas pats, kas horizontaliai.

123 Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterPabaiga Sub

Kaip ir teksto centravimas vertikaliai per pasirinkimą:

123 Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterPabaiga Sub

Taip pat galime pakeisti tekstą į langelio arba pasirinkimo viršų arba apačią, naudodami xlViršus arba xlApačioje konstantos.

123 Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopPabaiga Sub

Centruokite tekstą horizontaliai ir vertikaliai tuo pačiu metu

Jei norime vienu metu centruoti tekstą tiek horizontaliai, tiek vertikaliai, galime tai padaryti keliais būdais.

1234 Sub centras Abu ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterPabaiga Sub

Arba, norėdami sumažinti kartojamą kodą, galime naudoti teiginį su ir pabaiga.

123456 „Sub Center“: abu ()Su atranka.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterPabaiga suPabaiga Sub

Aukščiau pateiktas kodas bus taikomas visoms tuo metu pasirinktoms „Excel“ ląstelėms.

Naudojimas su ir pabaiga yra labai efektyvus, kai atrankoje turime daug formatuoti, pavyzdžiui, sujungti langelius ar pakeisti orientaciją.

12345678 Sub MergeAndCenter ()Su atranka.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Kryptis = -36.MergeCells = TiesaPabaiga suPabaiga Sub
wave wave wave wave wave