VBA lahtri font
VBA -s saate fondi atribuute muuta vahemiku objekti VBA fondi atribuudi abil. Sisestage VBA redaktorisse järgmine kood ja näete kõigi saadaolevate valikute loendit:
1 | Vahemik ("A1). Font. |
Allpool käsitleme mõnda kõige levinumat omadust.
Muuda fondi värvi
Fondivärvide määramiseks on mitu võimalust.
vbVärv
Lihtsaim viis värvide määramiseks on vbColors:
1 | Vahemik ("a1"). Font.Color = vbRed |
Olemasolevate värvide osas olete aga väga piiratud. Need on ainsad saadaolevad valikud:
Värv - RGB
Värve saate määrata ka RGB (punane roheline sinine) põhjal. Siin sisestate punase, rohelise ja sinise värviväärtused vahemikus 0–255. Nende kolme värvi abil saate teha mis tahes värvi:
1 | Vahemik ("a1"). Font.Värv = RGB (255 255,0) |
Värviindeks
VBA / Excelil on ka atribuut ColorIndex. See muudab teile eelvalmis värvid kättesaadavaks. Siiski salvestatakse need indeksnumbritena, mistõttu on raske teada, mis värv on:
1 | Vahemik ("a1"). Font.ColorIndex =… |
Kirjutasime artikli VBA värvikoodide kohta, sealhulgas VBA ColorIndex koodide loendi. Seal saate värvide kohta rohkem teada saada.
Fondi suurus
See määrab fondi suuruseks 12:
1 | Vahemik ("a1"). Font.Size = 12 |
või kuni 16:
1 | Vahemik ("a1"). Font.Size = 16 |
Paks font
Lahtri fonti on lihtne määrata paksuks:
1 | Vahemik ("A1"). Font.Bold = True |
või tühjendage paksus vormingus:
1 | Vahemik ("A1"). Font.Bold = vale |
Fondi nimi
Fondi nime muutmiseks kasutage Nimi vara:
1 | Vahemik ("A1"). Font.Name = "Calibri" |
1 | Vahemik ("A1"). Font.Name = "Arial" |
1 | Vahemik ("A1"). Font.Name = "Times New Roman" |
Lahtri stiil
Excel pakub võimalust luua lahtrite stiile. Stiile leiate aadressilt Avaleht> Stiilid:
Stiilid võimaldavad salvestada soovitud lahtrivormingu. Seejärel määrake see stiil uuele lahtrile ja kogu lahtri vormindamine rakendatakse koheselt. Sealhulgas fondi suurus, lahtri värv, lahtrite kaitse olek ja kõik muu lahtri vormindamise menüüst saadaval:
Isiklikult loon paljude mudelite puhul, millega ma töötan, tavaliselt lahtri stiili „Sisend”:
1 | Vahemik ("a1"). Stiil = "Sisend" |
Stiilide abil saate oma töölehel hõlpsasti tuvastada ka lahtritüüpe. Allolev näide vaatab läbi kõik töölehe lahtrid ja muudab lahtri Style = “Input” väärtuseks “InputLocked”:
1234567 | Dim Cell kui vahemikIga lahtri jaoks ActiveSheet.CellsKui Cell.Style = "Sisend", siisCell.Style = "InputLocked"Lõpp KuiJärgmine lahter |