300 Beispiele

Dynamikbereich

Dynamic Range

Unten sehen wir uns ein Programm an 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, soll Excel VBA den maximalen Wert dieser Zahlen einfärben.





Dynamikbereich in Excel VBA

Platziere a Befehlstaste auf Ihrem Arbeitsblatt 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.

KeinermaximalWie Doppelt, rngWieReichweite, ZelleWieBereich

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 nehmen das AktuelleRegion Eigenschaft dafür. CurrentRegion ist nützlich, wenn wir die genauen Grenzen eines Bereichs nicht im Voraus kennen.

Satzrng = Range('A1').AktuelleRegion

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

maximum = WorksheetFunction.Max(rng)

5. Schließlich färben wir den Maximalwert ein. Wir verwenden eine For Each Next-Schleife.

Zum JederZelleInrng
WennZelle.Wert = MaximumDanncell.Interior.ColorIndex = 22
NächsteZelle

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

6. Fügen Sie eine Nummer hinzu.

Wie füge ich einem Datum in Excel Tage hinzu?

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

Ergebnis des Dynamikbereichs

3/14 abgeschlossen! Erfahren Sie mehr über das Range-Objekt >
Gehe zum nächsten Kapitel: Variablen



^