Beispiele für die Verwendung der BorderAround-Funktion in Excel VBA

BorderAround-Funktion in VBA für Excel wird ein Rahmen um einen Bereich von Zellen hinzugefügt. Diese Funktion ist eine der am häufigsten verwendeten Funktionen bei der Arbeit mit Tabellen und ermöglicht die Hervorhebung bestimmter Datenbereiche.

Sie können beispielsweise einen dünnen schwarzen Rahmen um alle Zellen im Bereich A1:D10 umrahmen, indem Sie verschiedene Rahmenparameter wie Farbe, Stil, Dicke usw. festlegen.:

Range("A1:D10").BorderAround Color:=RGB(0, 0, 0), Weight:=xlThin

Wenn Sie einen Rahmen nur oben, links und unten, aber nicht rechts hinzufügen möchten, können Sie den folgenden Code verwenden:

Range("A1:D10").BorderAround Color:=RGB(0, 0, 0), Weight:=xlMedium, LineStyle:=xlContinuous, LineWeight:=xlHairline

Sie können auch die BorderAround-Funktion verwenden, um komplexe Rahmen zu erstellen, z. B. nur den äußeren Rahmen um den Bereich und die inneren horizontalen und vertikalen Linien:

.BorderAround Color:=RGB(0, 0, 0), Weight:=xlMedium, LineStyle:=xlContinuous, LineWeight:=xlMedium

.Borders(xlInsideHorizontal).Color = RGB(0, 0, 0)

.Borders(xlInsideVertical).Color = RGB(0, 0, 0)

Mit der BorderAround-Funktion können Sie das Erscheinungsbild einer Tabelle in Excel mithilfe von VBA flexibel anpassen und eine einfachere und verständlichere Visualisierung der Daten ermöglichen.

Anmerkung: Die BorderAround-Funktion ist nur für Zellbereichsobjekte in Excel verfügbar und kann nicht für andere Objekttypen wie Formulare oder Diagramme verwendet werden.

Zeichnen von Rändern um Zellen

Um Rahmen um Zellen zu zeichnen, müssen Sie zuerst den Zellenbereich angeben, in dem Sie die Rahmen zeichnen möchten. Rufen Sie dann die Funktion BorderAround auf, indem Sie Parameter übergeben, die den Typ und den Stil der Grenzen definieren.

Der folgende VBA-Code fügt beispielsweise einen Rahmen um den Zellbereich A1:B5 mit einer doppelten Linie hinzu:

Sub AddBorders()Range("A1:B5").BorderAround LineStyle:=xlDouble, Weight:=xlThinEnd Sub

Wenn Sie Rahmen um alle Zellen in einer Tabelle hinzufügen möchten, können Sie einen Tabellenbereich verwenden:

Sub AddBordersToTable()Dim tbl As ListObjectSet tbl = ActiveSheet.ListObjects(1)tbl.Range.BorderAround LineStyle:=xlContinuous, Weight:=xlMediumEnd Sub

In diesem Fall erhalten Sie zuerst ein ListObject-Tabellenobjekt, verwenden dann die Range-Eigenschaft, um auf den gesamten Tabellenbereich zu zeigen, und rufen die BorderAround-Funktion auf, um Grenzen hinzuzufügen.

Darüber hinaus können Sie mit der BorderAround-Funktion verschiedene Rahmeneinstellungen wie Farbe, Stil und Linienstärke anpassen. Sie können die Linienbreite in Pixeln festlegen und eine Farbe aus der Excel-Palette auswählen.

Daher bietet die Verwendung der BorderAround-Funktion in Excel VBA eine bequeme Möglichkeit, um Grenzen um Zellen zu zeichnen und professionell aussehende Tabellen zu erstellen.

Erstellen eines Rahmens um einen Zellbereich

Es folgt ein Codebeispiel, das die Verwendung der Funktion veranschaulicht BorderAround so erstellen Sie einen Rahmen um einen Zellbereich:

Sub CreateBorder()Dim rng As Range' Задаем диапазон ячеек, для которого нужно создать рамкуSet rng = Range("A1:E5")' Создаем рамку вокруг диапазона ячеекrng.BorderAround Color:=RGB(0, 0, 0), Weight:=xlMediumEnd Sub

In diesem Beispiel ist die Funktion BorderAround gilt für den Zellbereich A1 bis E5. Die Farbe des Rahmens wird mit der Funktion festgelegt RGB, die die Werte der roten, grünen und blauen Farbkomponente annimmt. In diesem Fall ist die Farbe schwarz (RGB (0, 0, 0)) angegeben. Die Rahmenstärke wird durch den Parameter festgelegt Weight und als "mittel" (xlMedium) eingestellt.

Nach der Ausführung dieses Codes wird ein Rahmen um den angegebenen Zellbereich mit schwarzen Linien mittlerer Dicke erstellt.

Festlegen spezieller Umgrenzungsstile

Mit der BorderAround-Funktion in Excel VBA können Sie verschiedene Rahmenstile für Zellen oder einen Zellbereich festlegen. Dies ist nützlich, wenn Sie benutzerdefinierte Berichte erstellen oder Tabellen mit Daten erstellen. Hier sind einige Beispiele für spezielle Rahmenstile, die Sie festlegen können:

• Dicker Rand: Sie können einen breiten und fetten Rand um die Zellen legen, um sie in der Tabelle hervorzuheben oder wichtige Werte zu kennzeichnen.
• Gestrichelte Grenze: Sie können eine gestrichelte Grenze um die Zellen herum festlegen, um eine spektakuläre Trennlinie zu erstellen.
• Doppelter Rahmen: Sie können einen doppelten Rahmen um die Zellen festlegen, um Informationsblöcke hervorzuheben.
• Fester Rand mit Farbe: Sie können einen festen Rahmen einer bestimmten Farbe um die Zellen herum festlegen, um der Tabelle zusätzlichen Kontrast hinzuzufügen.

Mit der BorderAround-Funktion und anderen Formatierungsmethoden können Sie verschiedene Rahmenstile erstellen, mit denen Sie die Darstellung von Daten in Excel visuell verbessern können. Dies bietet mehr Flexibilität und Kontrolle bei der Gestaltung von Tabellen und Berichten.

Hinzufügen von Randstärke und -farbe

Mit der BorderAround-Funktion können Sie nicht nur einen Rahmen um einen Bereich hinzufügen, sondern auch seine Dicke und Farbe anpassen.

Verwenden Sie den Weight-Parameter der BorderAround-Funktion, um die Dicke der Grenze festzulegen. Dieser Parameter akzeptiert einen der XlBorderWeight-Werte:

• xlThin - dünne Grenze;
• xlMedium - mittlere Grenze;
• xlThick - dicke Grenze.

Beispiel für die Verwendung der BorderAround-Funktion mit der Einstellung der Rahmenstärke:

Range("A1:D4").BorderAround Weight:=xlThick

Verwenden Sie den Color-Parameter der BorderAround-Funktion, um die Farbe des Rahmens festzulegen. Dieser Parameter akzeptiert einen der XlRgbColor-Werte, bei denen es sich um RGB-Farbcodes handelt:

• vbBlack - schwarz;
• vbWhite - Weiße;
• vbRed - Rote;
• vbGreen - grün;
• vbBlue - blau;
• und andere.

Beispiel für die Verwendung der BorderAround-Funktion zum Festlegen der Rahmenfarbe:

Range("A1:D4").BorderAround Color:=vbRed

Sie können auch die Dicke und die Farbe des Rahmens gleichzeitig mit den entsprechenden Parametern festlegen:

Range("A1:D4").BorderAround Weight:=xlThick, Color:=vbRed

Alle diese Parameter können zusammen mit der BorderAround-Funktion verwendet werden, um Rahmen mit unterschiedlichen Dicke- und Farbeinstellungen zu erstellen.

Anwenden von Grenzen auf ausgewählte Zellen mit einer Bedingung

In Excel können Sie mithilfe von VBA die Anwendung von Grenzen auf ausgewählte Zellen basierend auf den angegebenen Bedingungen automatisieren. Sie können beispielsweise einen bestimmten Rahmenstil auf Zellen anwenden, wenn ihre Werte größer als ein bestimmter Wert sind oder wenn sie einem bestimmten Format entsprechen.

Dazu können Sie die Funktion BorderAround verwenden, mit der Sie eine Grenze für eine bestimmte Zelle festlegen können. Die Funktion akzeptiert mehrere Parameter, einschließlich Rahmenstil, Farbe und Dicke. Mit der bedingten if-Anweisung können Sie die Zellenwerte überprüfen und den gewünschten Rahmenstil anwenden.

Beispiel für die Verwendung der BorderAround-Funktion, um Rahmen auf ausgewählte Zellen mit einer Bedingung anzuwenden:

Sub ApplyConditionalBorders()Dim rng As RangeDim cell As RangeSet rng = Selection ' выбранный диапазон ячеекFor Each cell In rngIf cell.Value > 0 Then ' проверка условияcell.BorderAround Color:=RGB(0, 0, 0), Weight:=xlMedium ' применение границы к ячейкеEnd IfNext cellEnd Sub

In diesem Beispiel wendet die ApplyConditionalBorders-Funktion einen Rahmen auf jede Zelle im ausgewählten Bereich an, wenn der Zellenwert größer als 0 ist. Die Ränder werden schwarz und von mittlerer Dicke sein.

Dieses Beispiel kann nach Belieben ergänzt und geändert werden. Sie können beispielsweise den Rahmenstil, die Farbe und die Dicke je nach spezifischen Anforderungen ändern oder eine andere Bedingung festlegen, um die Zellenwerte zu überprüfen.

Wenn Sie die Funktion BorderAround zusammen mit der bedingten if-Anweisung verwenden, können Sie den Prozess zum Anwenden von Grenzen auf ausgewählte Zellen in Excel mithilfe von VBA vereinfachen und automatisieren.