VBA ląstelių šriftas
VBA galite pakeisti šrifto ypatybes naudodami diapazono objekto VBA šrifto ypatybę. Įveskite šį kodą į VBA redaktorių ir pamatysite visų galimų parinkčių sąrašą:
| 1 | Diapazonas ("A1). Šriftas. |
Žemiau aptarsime keletą dažniausiai pasitaikančių savybių.
Pakeisti šrifto spalvą
Yra keletas būdų, kaip nustatyti šrifto spalvas.
vbColor
Lengviausias būdas nustatyti spalvas yra naudojant „vbColors“:
| 1 | Diapazonas ("a1"). Šriftas.Spalva = vbRed |
Tačiau jūsų turimos spalvos yra labai ribotos. Tai vienintelės galimos parinktys:
Spalva - RGB
Taip pat galite nustatyti spalvas pagal RGB (raudona žalia mėlyna). Čia įvedate raudonos, žalios ir mėlynos spalvų reikšmes nuo 0 iki 255. Naudodami šias tris spalvas galite padaryti bet kokią spalvą:
| 1 | Diapazonas ("a1"). Šrifto spalva = RGB (255 255,0) |
Spalvų indeksas
„VBA / Excel“ taip pat turi „ColorIndex“ ypatybę. Tai leidžia jums sukurti iš anksto sukurtas spalvas. Tačiau jie saugomi kaip indekso numeriai, todėl sunku žinoti, kokia spalva yra:
| 1 | Diapazonas ("a1"). Šriftas.ColorIndex =… |
Parašėme straipsnį apie VBA spalvų kodus, įskaitant VBA ColorIndex kodų sąrašą. Ten galite sužinoti daugiau apie spalvas.
Šrifto dydis
Tai nustatys 12 šrifto dydį:
| 1 | Diapazonas ("a1"). Šriftas.Dydis = 12 |
arba iki 16:
| 1 | Diapazonas ("a1"). Šriftas.Dydis = 16 |
Paryškintas šriftas
Nesunku nustatyti langelio šriftą kaip paryškintą:
| 1 | Diapazonas („A1“). Šriftas. Paryškintas = tiesa |
arba išvalyti paryškintą formatą:
| 1 | Diapazonas („A1“). Šriftas. Boldas = klaidinga |
Šrifto pavadinimas
Norėdami pakeisti šrifto pavadinimą, naudokite vardas nuosavybė:
| 1 | Diapazonas ("A1"). Font.Name = "Calibri" |
| 1 | Diapazonas ("A1"). Font.Name = "Arial" |
| 1 | Diapazonas ("A1"). Font.Name = "Times New Roman" |
Ląstelių stilius
„Excel“ siūlo galimybę kurti langelio „stilius“. Stilius galima rasti Pagrindinis juostelė> Stiliai:
Stiliai leidžia išsaugoti norimą langelio formatavimą. Tada priskirkite šį stilių naujam langeliui ir visas langelio formatavimas bus nedelsiant pritaikytas. Įskaitant šrifto dydį, langelio spalvą, langelio apsaugos būseną ir viską, kas pasiekiama langelio formatavimo meniu:
Asmeniškai daugeliui modelių, su kuriais dirbu, paprastai sukuriu langelio „Įvesties“ stilių:
| 1 | Diapazonas ("a1"). Stilius = "Įvestis" |
Naudodami stilius taip pat galite lengvai nustatyti langelių tipus darbalapyje. Žemiau pateiktas pavyzdys aplenks visas darbalapio langelius ir pakeis bet kurį langelį su Style = „Input“ į „InputLocked“:
| 1234567 | „Dim Cell“ kaip diapazonasKiekvienai langai ActiveSheet.LąstelėsJei Cell.Style = "Įvestis" tadaCell.Style = "InputLocked"Pabaiga JeiKitas langelis |
