Písmo bunky VBA
Vo VBA môžete meniť vlastnosti písma pomocou vlastnosti písma VBA objektu Range. Do editora VBA zadajte nasledujúci kód a zobrazí sa vám zoznam všetkých dostupných možností:
1 | Rozsah („A1). Písmo. |
Ďalej budeme diskutovať o niekoľkých najbežnejších vlastnostiach.
Zmeniť farbu písma
Existuje niekoľko spôsobov, ako nastaviť farby písma.
vbColor
Farby je možné najľahšie nastaviť pomocou vbColors:
1 | Rozsah ("a1"). Font.Color = vbRed |
Pokiaľ ide o dostupné farby, ste však veľmi obmedzení. Toto sú jediné dostupné možnosti:
Farba - RGB
Môžete tiež nastaviť farby na základe RGB (červená zelená modrá). Tu zadávate hodnoty farby od 0 do 255 pre červenú, zelenú a modrú. Pomocou týchto troch farieb môžete vytvoriť akúkoľvek farbu:
1 | Rozsah („a1“). Farba písma = RGB (255 255,0) |
ColorIndex
VBA / Excel má tiež vlastnosť ColorIndex. Vďaka tomu máte k dispozícii vopred pripravené farby. Ukladajú sa však ako indexové čísla, takže je ťažké zistiť, ktorá farba je:
1 | Rozsah ("a1"). Font.ColorIndex =… |
Napísali sme článok o kódoch VBA Color vrátane zoznamu kódov VBA ColorIndex. Tam sa môžete dozvedieť viac o farbách.
Veľkosť písma
Veľkosť písma sa nastaví na 12:
1 | Rozsah („a1“). Veľkosť písma = 12 |
alebo do 16:
1 | Rozsah („a1“). Veľkosť písma = 16 |
Tučné písmo
Je ľahké nastaviť písmo bunky na tučné:
1 | Rozsah ("A1"). Font.Bold = True |
alebo vymažte tučné formátovanie:
1 | Rozsah ("A1"). Font.Bold = False |
Názov písma
Ak chcete zmeniť názov písma, použite názov nehnuteľnosť:
1 | Rozsah ("A1"). Font.Name = "Calibri" |
1 | Rozsah ("A1"). Font.Name = "Arial" |
1 | Rozsah ("A1"). Font.Name = "Times New Roman" |
Bunkový štýl
Excel ponúka možnosť vytvárať „štýly“ bunky. Štýly nájdete v Domovská stuha> Štýly:
Štýly vám umožňujú uložiť požadované formátovanie buniek. Potom priraďte tento štýl k novej bunke a všetky formátovania buniek sa okamžite použijú. Vrátane veľkosti písma, farby bunky, stavu ochrany bunky a čohokoľvek iného, čo je k dispozícii v ponuke Formátovanie bunky:
Osobne pre mnohé z modelov, na ktorých pracujem, zvyčajne vytvorím štýl bunky „Vstup“:
1 | Rozsah ("a1"). Štýl = "Vstup" |
Pomocou štýlov môžete tiež ľahko identifikovať typy buniek v pracovnom hárku. Nasledujúci príklad bude prechádzať všetkými bunkami v hárku a zmení akúkoľvek bunku so štýlom = „Vstup“ na „InputLocked“:
1234567 | Dim Cell ako rozsahPre každú bunku v ActiveSheet.CellsAk Cell.Style = "Vstup", potomCell.Style = "InputLocked"Koniec AkĎalšia bunka |