Stredový text VBA - zarovnanie buniek (horizontálne a vertikálne)

Tento tutoriál ukáže, ako použiť VBA na stred textu v bunke horizontálne aj vertikálne.

Na zarovnanie textu horizontálne aj vertikálne v bunke môžeme použiť skupinu Zarovnanie na domovskej páse s nástrojmi v Exceli. Ak píšeme makro na formátovanie textu, môžeme túto funkciu znova vytvoriť pomocou kódu VBA.

Stredový text horizontálne

Na horizontálne vycentrovanie textu v jednej bunke môžeme použiť nasledujúci kód:

123 Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterKoniec pod

Alternatívne na horizontálne vycentrovanie textu v každej bunke vybratého rozsahu buniek môžeme použiť objekt Výber a vykonať nasledujúce kroky:

123 Sub CenterText ()Selection.HorizontalAlignment = xlCenterKoniec pod

Zarovnanie tiež môžeme zmeniť doprava alebo doľava pomocou xl Vľavo a xlVpravo konštanty.

Na správne zarovnanie textu v bunke preto môžeme použiť nasledujúci kód:

123 Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightKoniec pod

Vycentrovať text vertikálne

Vycentrovanie textu vertikálne je takmer rovnaké ako horizontálne.

123 Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterKoniec pod

Rovnako ako vertikálne centrovanie textu naprieč výberom:

123 Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterKoniec pod

Text môžeme tiež zmeniť na horný alebo dolný okraj bunky alebo výberu pomocou xlNa začiatok alebo xlDolné konštanty.

123 Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopKoniec pod

Vycentrujte text súčasne horizontálne aj vertikálne

Ak chceme text vycentrovať horizontálne aj vertikálne súčasne, existuje niekoľko spôsobov, ako to urobiť.

1234 Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterKoniec pod

Alternatívne, aby sme obmedzili opakujúci sa kód, môžeme použiť príkaz With and End With.

123456 Sub CenterBoth2 ()S výberom.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterUkončiť sKoniec pod

Vyššie uvedený kód sa použije na všetky bunky v programe Excel, ktoré boli v tom čase vybraté.

Použitie With and End With je veľmi efektívne, keď máme vo výbere veľa formátovania, ako je napríklad zlúčenie buniek alebo zmena orientácie.

12345678 Sub MergeAndCenter ()S výberom.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientácia = -36.MergeCells = PravdaUkončiť sKoniec pod
wave wave wave wave wave