Ši pamoka parodys, kaip formatuoti langelius naudojant VBA.
Ląstelių formatavimas
Yra daug savybių, kurias galima nustatyti tokiems langeliams (diapazonui):
| 1234567891011 | Sub SetCellFormat ()Su darbalapiais („Sheet1“). Diapazonas („B5: C7“).HorizontalAlignment = xlHAlignDistributed.AddIndent = Tiesa.Font.FontStyle = "Kursyvas".NumberFormat = "Bendra". Interjeras. Spalva = RGB (128, 100, 250)Pabaiga suPabaiga Sub |
Pažiūrėkime juos abėcėlės tvarka:
AddIndent
Nustačius šios ypatybės reikšmę „True“, tekstas bus automatiškai įtrauktas, kai teksto lygiavimas langelyje horizontaliai arba vertikaliai bus nustatytas tolygiai (žr. „HorizontalAlignment“ ir „VerticalAlignment“).
| 12345 | Su darbalapiais („Sheet1“). Diapazonas („A1“).Orientacija = xlVertikali.VerticalAlignment = xlVAlignDistributed.AddIndent = TiesaPabaiga su |
Sienos
Galite nustatyti langelio kraštinės formatą. Daugiau informacijos apie sienas rasite čia.
Kaip pavyzdį galite nustatyti raudoną punktyrinę liniją aplink B2 langelį 1 lape taip:
| 1 | Darbo lapai („Sheet1“). Diapazonas („B2“). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Šriftas
Galite koreguoti langelio šrifto formatą, nustatydami šrifto pavadinimą, stilių, dydį, spalvą, pridėdami pabraukimus ir (arba) perbraukimus arba perrašus. Daugiau informacijos apie langelių šriftus rasite čia.
Štai keletas pavyzdžių:
| 12345 | Su diapazonu („A1: C5“). Šriftas.Name = "Šimtmetis".FontStyle = "Paryškintas".Persibraukimas = tiesaPabaiga su |
FormulėSlėpta
Ši ypatybė grąžina arba nustato varianto vertę, nurodančią, ar formulė bus paslėpta, kai bus apsaugotas darbalapis. Pavyzdžiui:
| 1 | Darbo lapai („Sheet1“). Diapazonas („A1: B1“). FormulaHidden = True |
Horizontalus derinimas
Ši ypatybės langelio formato ypatybė grąžina arba nustato varianto vertę, kuri atspindi nurodyto objekto horizontalųjį išlyginimą. Grąžintos arba nustatytos konstantos gali būti: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Pavyzdžiui:
| 1 | Darbo lapai („Sheet1“). Diapazonas („D3“). HorizontalAlignment = xlRight |
IndentLevel
Grąžina arba nustato sveiką skaičių nuo 0 iki 15, kuris nurodo langelio ar diapazono įtraukos lygį.
| 1 | Darbo lapai („Sheet1“). Diapazonas („A1“). IndentLevel = 7 |
Interjeras
Galite nustatyti arba gauti grąžintą informaciją apie ląstelės vidų: jos spalvą, „ColorIndex“, „Pattern“, „PatternColor“, „PatternColorIndex“, „PatternThemeColor“, „PatternTintAndShade“, „ThemeColor“, „TintAndShade“, pavyzdžiui:
| 123 | Jei ne diapazonas ("A1"). Interior.ThemeColor = ThemeColorLight2 TadaDiapazonas ("A1"). Interjeras.Pattern = xlPatternUpPabaiga Jei |
Užrakinta
Ši savybė grąžina „True“, jei langelis ar diapazonas yra užrakinti, „False“, jei objektą galima modifikuoti, kai lapas yra apsaugotas, arba „Null“, jei nurodytame diapazone yra ir užrakintų, ir neužrakintų langelių. Jis taip pat gali būti naudojamas ląstelėms užrakinti arba atrakinti.
Šis pavyzdys atrakina langelius A1: B2 1 lape, kad juos būtų galima keisti, kai lapas yra apsaugotas.
| 12 | Darbo lapai („Sheet1“). Diapazonas („A1: B2“). Užrakinta = klaidingaDarbo lapai („Sheet1“). Apsaugoti |
„MergeCells“
Jei norite sujungti diapazoną, nustatykite šią ypatybę į „True“. Jo reikšmė yra tiesa, jei nurodytame diapazone yra sujungtų langelių. Pavyzdžiui, jei reikia sujungti C5: D7 diapazoną, galite naudoti šį kodą:
| 1 | Darbo lapai („Sheet1“). Diapazonas („C5: D7“). MergeCells = True |
Skaičių formatas
Skaičių formatą langelyje (-uose) galite nustatyti kaip Bendrieji, Skaičius, Valiuta, Apskaita, Data, Laikas, Procentai, Trupmena, Mokslinis, Tekstas, Specialusis ir Pasirinktinis.
Štai mokslinių ir procentinių skaičių formatų pavyzdžiai:
| 12 | Diapazonas ("A1"). NumberFormat = "0.00E+00"Diapazonas ("B1"). NumberFormat = "0.00%" |
NumberFormatLocal
Ši ypatybė grąžina arba nustato varianto vertę, kuri nurodo objekto formato kodą kaip eilutę vartotojo kalba.
Orientacija
Naudodami šią ypatybę galite nustatyti (arba grąžinti) teksto orientaciją langelyje (-iuose). Jo reikšmė gali būti viena iš šių konstantų: xlDownward, xlHorizontal, xlUpward, xlVertical arba sveikasis skaičius nuo -90 iki 90 laipsnių.
| 1 | Darbo lapai ("Sheet1"). Diapazonas ("A1"). Orientacija = -60 |
Tėvas
Tai yra tik skaitoma ypatybė, kuri grąžina nurodyto objekto pirminį objektą.
Sumažinti, kad tilptų
Ši ypatybė grąžina arba nustato varianto vertę, nurodančią, ar tekstas automatiškai susitraukia, kad tilptų į galimą stulpelio plotį.
| 1 | Darbo lapai („Sheet1“). Diapazonas („A1“). ShrinkToFit = Tiesa |
Vertikalus derinimas
Ši ypatybės langelio formato ypatybė grąžina arba nustato varianto vertę, kuri atspindi nurodyto objekto vertikalią lygiavimą. Grąžintos arba nustatytos konstantos gali būti: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Pavyzdžiui:
| 1 | Darbo lapai („Sheet1“). Diapazonas („A1“). VerticalAlignment = xlTop |
„WrapText“
Ši ypatybė grąžina „True“, jei tekstas įvyniojamas į visas nurodyto diapazono ląsteles, „False“, jei tekstas nėra įvyniotas į visas langelius nurodyto diapazono ribose, arba „Null“, jei nurodytame diapazone yra keletas langelių, apimančių tekstą, ir kitų langelių, kurie ne.
Pavyzdžiui, jei turite tokį langelių diapazoną:
šis toliau pateiktas kodas nedelsiant grąžins nulį:
| 1 | ? Darbo lapai ("Sheet1"). Diapazonas ("A1: B1"). WrapText |
