Šī apmācība parādīs, kā izmantot VBA, lai centrētu tekstu šūnā gan horizontāli, gan vertikāli.
Mēs varam izmantot grupu Izlīdzināšana mājas lentē programmā Excel, lai centrētu tekstu šūnā gan horizontāli, gan vertikāli. Ja mēs rakstām makro teksta formatēšanai, mēs varam atkārtoti izveidot šo funkcionalitāti, izmantojot VBA kodu.
Centrēt tekstu horizontāli
Lai centrētu tekstu horizontāli vienā šūnā, mēs varam izmantot šādu kodu:
| 123 | Sub CenterText ()ActiveCell.HorizontalAlignment = xlCenterBeigu apakš |
Alternatīvi, lai centrētu tekstu horizontāli katrā atlasītā šūnu diapazona šūnā, mēs varam izmantot atlases objektu un rīkoties šādi:
| 123 | Sub CenterText ()Atlase.HorizontalAlignment = xlCenterBeigu apakš |
Mēs varam arī mainīt izlīdzinājumu pa labi vai pa kreisi, izmantojot xlLeft un xlpareizi konstantes.
Tāpēc, lai pareizi izlīdzinātu tekstu šūnā, mēs varam izmantot šādu kodu:
| 123 | Sub RightAlignText ()ActiveCell.HorizontalAlignment = xlRightBeigu apakš |
Centrēt tekstu vertikāli
Teksta centrēšana vertikāli ir tāda pati kā horizontāli.
| 123 | Sub CenterTextVertical ()ActiveCell.VerticalAlignment = xlCenterBeigu apakš |
Tāpat kā teksta centrēšana vertikāli visā atlasē:
| 123 | ApakšcentrsTextVertically ()Selection.VerticalAlignment = xlCenterBeigu apakš |
Mēs varam arī mainīt tekstu uz šūnas vai atlases augšdaļu vai apakšdaļu, izmantojot xlTop vai xl apakšā konstantes.
| 123 | Sub TopAlignVertically ()ActiveCell.VerticalAlignment = xlTopBeigu apakš |
Centrējiet tekstu horizontāli un vertikāli vienlaicīgi
Ja vēlamies tekstu centrēt vienlaikus gan horizontāli, gan vertikāli, ir vairāki veidi, kā to izdarīt.
| 1234 | Apakšcentrs Abi ()ActiveCell.HorizontalAlignment = xlCenterActiveCell.VerticalAlignment = xlCenterBeigu apakš |
Alternatīvi, lai samazinātu koda atkārtošanos, mēs varam izmantot paziņojumu Ar un Beigt.
| 123456 | Apakšcentrs Abi ()Ar atlasi.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterBeigt arBeigu apakš |
Iepriekš minētais kods attieksies uz visām tajā laikā atlasītajām Excel šūnām.
Lietošana ar un beigt ar ir ļoti efektīva, ja atlasē ir jāveic daudz formatēšanas, piemēram, šūnu apvienošana vai orientācijas maiņa.
| 12345678 | Sub MergeAndCenter ()Ar atlasi.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottom.Orientācija = -36.MergeCells = TaisnībaBeigt arBeigu apakš |
