Písmo buňky VBA
Ve VBA můžete změnit vlastnosti písma pomocí vlastnosti písma VBA objektu rozsahu. Do editoru VBA zadejte následující kód a zobrazí se seznam všech dostupných možností:
1 | Rozsah („A1). Písmo. |
Níže probereme několik nejběžnějších vlastností.
Změnit barvu písma
Barvy písma lze nastavit několika způsoby.
vbColor
Nejjednodušší způsob nastavení barev je pomocí vbColors:
1 | Rozsah ("a1"). Font.Color = vbRed |
Jste však velmi omezeni, pokud jde o dostupné barvy. Toto jsou jediné dostupné možnosti:
Barva - RGB
Můžete také nastavit barvy na základě RGB (červená zelená modrá). Zde zadáváte hodnoty barev mezi 0-255 pro červenou, zelenou a modrou. Pomocí těchto tří barev můžete vytvořit libovolnou barvu:
1 | Rozsah ("a1"). Font.Color = RGB (255,255,0) |
ColorIndex
VBA / Excel má také vlastnost ColorIndex. Díky tomu máte k dispozici předem připravené barvy. Jsou však uloženy jako indexová čísla, takže je těžké zjistit, jaká barva je:
1 | Rozsah ("a1"). Font.ColorIndex =… |
Napsali jsme článek o kódech barev VBA, včetně seznamu kódů VBA ColorIndex. Tam se můžete dozvědět více o barvách.
Velikost písma
Tím nastavíte velikost písma na 12:
1 | Rozsah („a1“). Velikost písma = 12 |
nebo do 16:
1 | Rozsah („a1“). Velikost písma = 16 |
Tučné písmo
Je snadné nastavit písmo buňky na tučné:
1 | Rozsah ("A1"). Font.Bold = True |
nebo vymazat tučné formátování:
1 | Rozsah ("A1"). Font.Bold = False |
Název písma
Chcete -li změnit název písma, použijte název vlastnictví:
1 | Rozsah ("A1"). Font.Name = "Calibri" |
1 | Rozsah ("A1"). Font.Name = "Arial" |
1 | Rozsah ("A1"). Font.Name = "Times New Roman" |
Buněčný styl
Excel nabízí možnost vytvářet „styly“ buňky. Styly najdete v Domů Pás karet> Styly:
Styly vám umožňují uložit požadované formátování buněk. Poté přiřaďte tento styl nové buňce a veškeré formátování buňky se okamžitě použije. Včetně velikosti písma, barvy buňky, stavu ochrany buňky a čehokoli dalšího dostupného z nabídky Formátování buňky:
Osobně u mnoha modelů, na kterých pracuji, obvykle vytvářím styl buňky „Vstup“:
1 | Rozsah ("a1"). Styl = "Vstup" |
Pomocí stylů můžete také snadno identifikovat typy buněk na listu. Následující příklad bude procházet všemi buňkami v listu a změní libovolnou buňku se stylem = „Vstup“ na „InputLocked“:
1234567 | Dim Cell jako rozsahPro každou buňku v ActiveSheet.CellsPokud Cell.Style = "Vstup", pakCell.Style = "InputLocked"Konec IfDalší buňka |