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 |