Celična pisava VBA
V VBA lahko spremenite lastnosti pisave z lastnostjo pisave VBA predmeta Range. V urejevalnik VBA vnesite naslednjo kodo in prikazal se bo seznam vseh razpoložljivih možnosti:
| 1 | Obseg ("A1). Pisava. |
Spodaj bomo obravnavali nekaj najpogostejših lastnosti.
Spremeni barvo pisave
Barve pisav lahko nastavite na nekaj načinov.
vbColor
Barve najlažje nastavite z vbColors:
| 1 | Obseg ("a1"). Font.Color = vbRed |
Vendar ste glede barv, ki so na voljo, zelo omejene. Na voljo so le te možnosti:
Barva - RGB
Barve lahko nastavite tudi na podlagi RGB (rdeča zelena modra). Tu vnesete barvne vrednosti med 0-255 za rdečo, zeleno in modro. S temi tremi barvami lahko naredite katero koli barvo:
| 1 | Razpon ("a1"). Pisava.Barva = RGB (255,255,0) |
ColorIndex
VBA / Excel ima tudi lastnost ColorIndex. Tako so vam na voljo vnaprej izdelane barve. Vendar so shranjene kot indeksne številke, zaradi česar je težko vedeti, kakšne barve je:
| 1 | Obseg ("a1"). Font.ColorIndex =… |
Napisali smo članek o barvnih kodah VBA, vključno s seznamom kod VBA ColorIndex. Tam lahko izveste več o barvah.
Velikost pisave
Tako bo velikost pisave nastavljena na 12:
| 1 | Obseg ("a1"). Velikost pisave = 12 |
ali na 16:
| 1 | Obseg ("a1"). Velikost pisave = 16 |
Krepka pisava
Pisavo celice je enostavno nastaviti na krepko:
| 1 | Obseg ("A1"). Font.Bold = True |
ali počistite krepko oblikovanje:
| 1 | Obseg ("A1"). Font.Bold = False |
Ime pisave
Če želite spremeniti ime pisave, uporabite Ime lastnina:
| 1 | Obseg ("A1"). Font.Name = "Calibri" |
| 1 | Obseg ("A1"). Font.Name = "Arial" |
| 1 | Obseg ("A1"). Font.Name = "Times New Roman" |
Celični slog
Excel ponuja možnost ustvarjanja »slogov« celice. Sloge najdete v Domači trak> Slogi:
Slogi vam omogočajo, da shranite želeno oblikovanje celic. Nato ta slog dodelite novi celici in vse oblikovanje celic se takoj uporabi. Vključno z velikostjo pisave, barvo celice, stanjem zaščite celic in vsem drugim, kar je na voljo v meniju za oblikovanje celic:
Osebno za mnoge modele, na katerih delam, ponavadi ustvarim slog celice »Vnos«:
| 1 | Range ("a1"). Style = "Input" |
Z uporabo slogov lahko preprosto prepoznate tudi vrste celic na svojem delovnem listu. Spodnji primer se bo preletel skozi vse celice na delovnem listu in spremenil katero koli celico s Style = "Input" v "InputLocked":
| 1234567 | Zatemni celico kot obsegZa vsako celico v celicah ActiveSheet.CellsČe je Cell.Style = "Vnos", potemCell.Style = "Vhod zaklenjen"Konec ČeNaslednja celica |
