/ / Dynamischer Bereich in Excel VBA

Dynamischer Bereich in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA Das färbt den Maximalwert von a Dynamikbereich.

Situation:

Jedes Mal, wenn wir eine Zahl hinzufügen und auf die Befehlsschaltfläche klicken, möchten wir, dass Excel VBA den Maximalwert dieser Zahlen einfärbt.

Dynamischer Bereich in Excel VBA

Fügen Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Zuerst deklarieren wir eine Variable und zwei Range-Objekte. Eine Variable vom Typ Double nennen wir Maximum. Wir nennen die Range-Objekte rng und cell.

Dim maximum As Double, rng As Range, cell As Range

2. Wir fügen die Zeile hinzu, die die Hintergrundfarbe aller Zellen auf "No Fill" ändert.

Cells.Interior.ColorIndex = 0

3. Wir initialisieren Rng mit den Zahlen. Wir verwenden dafür die CurrentRegion-Eigenschaft. CurrentRegion ist nützlich, wenn wir die genauen Grenzen eines Bereichs nicht im Voraus kennen.

Set rng = Range("A1").CurrentRegion

4. Wir initialisieren das Maximum mit dem Maximalwert der Zahlen. Wir verwenden die Tabellenfunktion Max, um den Maximalwert zu finden.

maximum = WorksheetFunction.Max(rng)

5. Zum Schluss färben wir den Maximalwert. Wir verwenden eine For Each Next Loop.

For Each cell In rng
    If cell.Value = maximum Then cell.Interior.ColorIndex = 22
Next cell

Hinweis: Anstelle der ColorIndex-Nummer 22 (rot) können Sie eine beliebige ColorIndex-Nummer verwenden.

6. Fügen Sie eine Nummer hinzu.

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Dynamikbereich Ergebnis

Lesen Sie auch: