VBA-Zellschriftart
In VBA können Sie Schriftarteigenschaften mit der VBA-Schriftarteigenschaft des Range-Objekts ändern. Geben Sie den folgenden Code in den VBA-Editor ein und Sie sehen eine Liste aller verfügbaren Optionen:
| 1 | Range("A1).Font. |
Wir werden im Folgenden einige der gängigsten Eigenschaften besprechen.
Schriftfarbe ändern
Es gibt verschiedene Möglichkeiten, Schriftfarben einzustellen.
vbColor
Farben setzen Sie am einfachsten mit vbColors:
| 1 | Range("a1").Font.Color = vbRed |
Sie sind jedoch in Bezug auf die verfügbaren Farben sehr begrenzt. Dies sind die einzigen verfügbaren Optionen:
Farbe - RGB
Sie können auch Farben basierend auf RGB (Rot Grün Blau) einstellen. Hier geben Sie Farbwerte zwischen 0-255 für Rot, Grün und Blau ein. Mit diesen drei Farben können Sie jede Farbe erstellen:
| 1 | Range("a1").Font.Color = RGB(255,255,0) |
Farbindex
VBA / Excel hat auch eine ColorIndex-Eigenschaft. Damit stehen Ihnen vorgefertigte Farben zur Verfügung. Sie werden jedoch als Indexnummern gespeichert, was es schwierig macht zu wissen, welche Farbe was ist:
| 1 | Range("a1").Font.ColorIndex =… |
Wir haben einen Artikel über VBA-Farbcodes geschrieben, einschließlich einer Liste der VBA-ColorIndex-Codes. Dort erfahren Sie mehr über Farben.
Schriftgröße
Dadurch wird die Schriftgröße auf 12 eingestellt:
| 1 | Range("a1").Font.Size = 12 |
oder bis 16:
| 1 | Range("a1").Font.Size = 16 |
Fettgedruckte Schriftart
Es ist einfach, eine Zellenschrift auf Fett zu setzen:
| 1 | Range("A1").Font.Bold = True |
oder um die Fettformatierung zu löschen:
| 1 | Range("A1").Font.Bold = False |
Schriftartenname
Um einen Schriftartnamen zu ändern, verwenden Sie die Name Eigentum:
| 1 | Range("A1").Font.Name = "Calibri" |
| 1 | Range("A1").Font.Name = "Arial" |
| 1 | Range("A1").Font.Name = "Times New Roman" |
Zellenstil
Excel bietet die Möglichkeit, Zellen-„Stile“ zu erstellen. Stile finden Sie in der Home Ribbon > Stile:
Stile ermöglichen es Ihnen, Ihre gewünschte Zellformatierung zu speichern. Weisen Sie dann diesen Stil einer neuen Zelle zu und die gesamte Zellformatierung wird sofort angewendet. Einschließlich Schriftgröße, Zellenfarbe, Zellenschutzstatus und alles andere, was im Zellenformatierungsmenü verfügbar ist:
Persönlich erstelle ich für viele der Modelle, an denen ich arbeite, normalerweise einen Zellenstil „Eingabe“:
| 1 | Range("a1").Style = "Eingabe" |
Durch die Verwendung von Stilen können Sie auch Zelltypen auf Ihrem Arbeitsblatt leicht identifizieren. Das folgende Beispiel durchläuft alle Zellen im Arbeitsblatt und ändert jede Zelle mit Style = "Input" in "InputLocked":
| 1234567 | Zelle als Bereich dimmenFür jede Zelle in ActiveSheet.CellsWenn Cell.Style = "Input" dannCell.Style = "InputLocked"Ende WennNächste Zelle |
