Š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 |