✅ VBA-Zellgrenzen

Inhaltsverzeichnis

Rahmen formatieren

In diesem Tutorial wird gezeigt, wie Sie die Zellenrahmeneinstellungen in VBA anpassen.

Rahmen formatieren

Oberer Rand - Doppellinie

Sehen wir uns zunächst ein Beispiel an, wie Sie einen blauen, dicken, doppelten oberen Rand für die Zelle B3 auf Sheet1 festlegen:

123456789

Unter BeispielSetBorder()With Worksheets("Sheet1").Range("B3").Borders(xlEdgeTop).LineStyle = xlDouble.Gewicht = xlThick.Farbindex = 5Ende mitEnd Sub

Beachten Sie, dass wir eine With-Anweisung verwenden, um unsere Codierung zu vereinfachen.

Wir erreichen die obere Grenze mit .Grenzen(xlEdgeTop).

Andere Zellgrenzen

Stattdessen können Sie auf andere Grenzen zugreifen, einschließlich Diagonalen:

123456

Worksheets("Sheet1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)Worksheets("Sheet1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)Worksheets("Sheet1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)Worksheets("Sheet1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)Worksheets("Sheet1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

Innerhalb der Grenzen

Sie können auch die horizontalen (xlInsideHorizontal) und vertikalen (xlInsideVertical) Ränder für alle Zellen in einem Bereich anpassen:

12345

With Worksheets("Sheet1").Range("B2:C6").Borders(xlInsideHorizontal).LineStyle = xlDashDotDot.Gewicht = xlMedium.Farbindex = 3Ende mit

Linienstil

Die LineStyle-Eigenschaft kann in xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot und xlLineStyleNone geändert werden.

Die Weight-Eigenschaft kann entweder xlHariline, xlThin, xlMedium und xlThick sein. Sie erhalten dieses Ergebnis mit dem folgenden Code:

12345678

Worksheets("Sheet1").Range("C3").Borders(xlEdgeTop).Weight = xlHairlineWorksheets("Sheet1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairlineWorksheets("Sheet1").Range("D3").Borders(xlEdgeTop).Weight = xlThinWorksheets("Sheet1").Range("D3").Borders(xlEdgeBottom).Weight = xlThinWorksheets("Sheet1").Range("E3").Borders(xlEdgeTop).Weight = xlMediumWorksheets("Sheet1").Range("E3").Borders(xlEdgeBottom).Weight = xlMediumWorksheets("Sheet1").Range("F3").Borders(xlEdgeTop).Weight = xlThickWorksheets("Sheet1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

Randfarben können als ColorIndex oder Color (RGB, Seriennummer oder vbColor) eingestellt werden. Weitere Informationen zu den Farbeinstellungen finden Sie hier.

Sie können auch mit einem einzeiligen Befehl Rahmen um einen Bereich hinzufügen: