Tento tutoriál předvede, jak pomocí VBA vycentrovat text v buňce horizontálně i vertikálně.
Skupinu Zarovnání na pásu karet Domů v Excelu můžeme použít k vycentrování textu horizontálně i vertikálně v buňce. Pokud píšeme makro pro formátování textu, můžeme tuto funkci znovu vytvořit pomocí kódu VBA.
Vycentrovat text vodorovně
K horizontálnímu vycentrování textu v jedné buňce můžeme použít následující kód:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterEnd Sub |
Alternativně k horizontálnímu vycentrování textu v každé buňce vybraného rozsahu buněk můžeme použít objekt Výběr a provést následující:
| 123 | Sub CenterText ()Selection.HorizontalAlignment = xlCenterEnd Sub |
Zarovnání můžeme také změnit doprava nebo doleva pomocí xl Vlevo a xlVpravo konstanty.
Chcete -li zarovnat text v buňce doprava, můžeme tedy použít následující kód:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightEnd Sub |
Vycentrovat text svisle
Vycentrování textu na výšku je téměř stejné jako na vodorovný.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterEnd Sub |
Jak je střed textu svisle napříč výběrem:
| 123 | Sub CenterTextVertically ()Selection.VerticalAlignment = xlCenterEnd Sub |
Můžeme také změnit text na horní nebo dolní část buňky nebo výběr pomocí xlNahoře nebo xlDolní konstanty.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopEnd Sub |
Vycentrujte text současně horizontálně i vertikálně
Pokud chceme text vystředit současně horizontálně i vertikálně, existuje několik způsobů, jak toho dosáhnout.
| 1234 | Sub CenterBoth ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterEnd Sub |
Alternativně, abychom omezili opakování kódu, můžeme použít příkazy With and End With.
| 123456 | Sub CenterBoth2 ()S výběrem.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterKonec sEnd Sub |
Výše uvedený kód bude platit pro všechny buňky v aplikaci Excel, které jsou v daném okamžiku vybrány.
Použití With and End With je velmi efektivní, když máme v rámci výběru mnoho formátování, jako je sloučení buněk nebo změna orientace.
| 12345678 | Sub MergeAndCenter ()S výběrem.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientace = -36.MergeCells = TrueKonec sEnd Sub |
