VBA-cellettertype
In VBA kunt u lettertype-eigenschappen wijzigen met behulp van de VBA-lettertypeeigenschap van het bereikobject. Typ de volgende code in de VBA-editor en u ziet een lijst met alle beschikbare opties:
| 1 | Bereik ("A1). Lettertype. |
Hieronder zullen we enkele van de meest voorkomende eigenschappen bespreken.
Letterkleur wijzigen
Er zijn een paar manieren om lettertypekleuren in te stellen.
vbKleur
De eenvoudigste manier om kleuren in te stellen is met vbColors:
| 1 | Bereik ("a1"). Lettertypekleur = vbRed |
U bent echter zeer beperkt in termen van beschikbare kleuren. Dit zijn de enige beschikbare opties:
Kleur - RGB
U kunt ook kleuren instellen op basis van RGB (Rood Groen Blauw). Hier voert u kleurwaarden in tussen 0-255 voor Rood, Groen en Blauw. Met die drie kleuren kun je elke kleur maken:
| 1 | Bereik ("a1"). Lettertypekleur = RGB (255,255,0) |
KleurIndex
VBA / Excel heeft ook een eigenschap ColorIndex. Dit maakt kant-en-klare kleuren voor u beschikbaar. Ze worden echter opgeslagen als indexnummers, waardoor het moeilijk is om te weten welke kleur wat is:
| 1 | Bereik ("a1"). Lettertype.ColorIndex =… |
We schreven een artikel over VBA Color-codes, inclusief een lijst van de VBA ColorIndex-codes. Daar leer je meer over kleuren.
Lettertypegrootte
Hiermee wordt de lettergrootte ingesteld op 12:
| 1 | Bereik ("a1"). Lettertypegrootte = 12 |
of tot 16:
| 1 | Bereik ("a1"). Lettertypegrootte = 16 |
Dikgedrukt lettertype
Het is gemakkelijk om een cellettertype op Vet in te stellen:
| 1 | Bereik ("A1"). Lettertype. Vet = True |
of om Vetgedrukte opmaak te wissen:
| 1 | Range("A1").Font.Bold = False |
Lettertypenaam
Gebruik de om een lettertypenaam te wijzigen Naam eigendom:
| 1 | Range("A1").Font.Name = "Calibri" |
| 1 | Range("A1").Font.Name = "Arial" |
| 1 | Range("A1").Font.Name = "Times New Roman" |
Celstijl
Excel biedt de mogelijkheid om celstijlen te maken. Stijlen zijn te vinden in de Home Lint > Stijlen:
Met stijlen kunt u de gewenste celopmaak opslaan. Wijs die stijl vervolgens toe aan een nieuwe cel en alle celopmaak wordt onmiddellijk toegepast. Inclusief lettergrootte, celkleur, celbeveiligingsstatus en al het andere dat beschikbaar is in het menu Celopmaak:
Persoonlijk maak ik voor veel van de modellen waaraan ik werk meestal een celstijl "Invoer":
| 1 | Bereik ("a1"). Stijl = "Invoer" |
Door stijlen te gebruiken, kunt u ook eenvoudig celtypen op uw werkblad identificeren. Het onderstaande voorbeeld loopt door alle cellen in het werkblad en verandert elke cel met Style = "Input" in "InputLocked":
| 1234567 | Dim Cell als bereikVoor elke cel in ActiveSheet.CellsAls Cell.Style = "Input" danCell.Style = "InputLocked"Stop alsVolgende cel |
