Hoe wijzigingen in het lettertype aanbrengen met vba?

Belangrijkste opmerkingen

Om wijzigingen in een lettertype aan te brengen, moet u het VBA Font-object gebruiken.
Er zijn in totaal 18 eigenschappen bij het lettertypeobject waartoe u toegang kunt krijgen en waar u wijzigingen in kunt aanbrengen.

VBA-lettertypeobject

In VBA is er een lettertypeobject dat u kunt gebruiken om de lettertype-eigenschappen van een cel te wijzigen, zoals de kleur van het lettertype, de lettergrootte en het lettertype, en u kunt ook vet en cursief op het lettertype toepassen.

Syntaxis

 expression.font

Om het te gebruiken, moet u eerst het celadres instellen, dat u op de volgende manieren kunt opgeven.

 Selection.Font Range("A1").Font Cells(1, 1).Font Range("A1:A5").Font

VBA-lettertypekleur

U kunt de kleur van het lettertype op twee verschillende manieren wijzigen:

1. Kleurconstanten gebruiken

Excel heeft een aantal kleurconstanten die u kunt gebruiken om een kleur op het lettertype toe te passen. Als u bijvoorbeeld de kleur rood wilt toepassen op het lettertype in cel A1, ziet de code er als volgt uit:

 Range("A1").Font.Color = vbRed

In de bovenstaande code is kleur, na het lettertypeobject, de eigenschap en heb je de vbRed-constante gebruikt die VBA vertelt om rode kleur toe te passen op cel A1. Er zijn in totaal acht constanten die u kunt gebruiken:

vbZwart: Zwart
vbRood: Rood
vbGroen: Groen
vbGeel: Geel
vbBlauw: Blauw
vbMagenta: Magenta
vbCyaan: cyaan
vbWit: Wit

2. RGB gebruiken

U kunt ook RGB-kleurcodering gebruiken om een kleur op het lettertype toe te passen. RGB is de kleurencombinatie van rood, groen en blauw, waarbij u met behulp van code een aangepaste kleur kunt creëren. Stel dat u een groene en blauwe kleurencombinatie op cel A1 wilt toepassen, dan zou de code er als volgt uitzien:

 Range("A1").Font.Color = RGB(0, 255, 255)

VBA-lettergrootte

Het Font-object geeft u ook toegang tot de eigenschap size van het lettertype. Stel dat u de lettergrootte 16 wilt toepassen op het lettertype in cel A1, dan zou de code er als volgt uitzien:

 Range("A1").Font.Size = 16

Als u de lettergrootte op alle cellen in een werkblad wilt toepassen, kunt u de volgende code gebruiken:

 Cells.Font.Size = 16

En als u de lettergrootte alleen wilt toepassen op de cellen waarin u gegevens hebt, zou de code er als volgt uitzien:

 ActiveSheet.UsedRange.Font.Size = 16

Of naar de geselecteerde cel.

 Selection.Font.Size = 16

VBA-lettertypenaam

Op dezelfde manier kunt u de lettertypenaam ook wijzigen met behulp van de eigenschap name van het lettertypeobject. Stel dat u het lettertype ‘Consolas’ wilt toepassen op cel A1. De code zou zijn:

 Range("A1").Font.Name = "Consolas"

Wanneer u deze eigenschap gebruikt, moet u de juiste naam typen van het lettertype dat u wilt toepassen. Als de naam onjuist is, wordt er geen foutmelding weergegeven.

Vet, cursief en onderstreept VBA-lettertype

Er zijn ook eigenschappen die u kunt gebruiken om het lettertype vet, cursief en onderstreept te maken. Hieronder staan de codes die je hiervoor moet schrijven.

 Range("A1").Font.Bold = True Range("A1").Font.Italic = True Range("A1").Font.Underline = True

Bij deze eigenschappen moet u TRUE of FALSE instellen. Dus als het lettertype al vet of cursief is en u het wilt verwijderen, moet u FALSE gebruiken om het te verwijderen.

Andere nuttige lettertype-eigenschappen

Voeg hier enkele extra eigenschappen toe die voor u nuttig kunnen zijn ( Doorhalen , Subscript en Superscript ).

 Range("A1").Font.Strikethrough = True Range("A1").Font.Subscript = True Range("A1").Font.Superscript = True

Wat is VBA