Ci-dessous, nous examinerons un programme dans Excel VBA qui colore la valeur maximale d’une plage de dynamique.

Situation:

Chaque fois que nous ajoutons un numéro et nous cliquez sur le bouton de commande, nous voulons Excel VBA pour colorer la valeur maximale de ces chiffres.

Dynamic Range in Excel VBA

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons une variable et deux objets Range. Une variable de type double nous appeler au maximum. Nous appelons les objets Range RNG et la cellule.

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

  1. Nous ajoutons la ligne qui passe à « Aucun remplissage » la couleur d’arrière-plan de toutes les cellules.

Cells.Interior.ColorIndex = 0

  1. Nous initialize RNG avec les chiffres. Nous utilisons le lien: / ABV-exemples CurrentRegion [CurrentRegion] bien pour cela. CurrentRegion est utile quand on ne connaît pas les limites exactes d’une plage à l’avance.

Set rng = Range("A1").CurrentRegion

  1. Nous initialisons maximum avec la valeur maximale des numéros. Nous utilisons la fonction de feuille de calcul Max pour trouver la valeur maximale.

maximum = WorksheetFunction.Max(rng)

  1. Enfin, nous la couleur de la valeur maximale. Nous utilisons pour chaque boucle suivante.

For Each cell In rng

If cell.Value = maximum Then cell.Interior.ColorIndex = 22

Next cell

Note: au lieu du numéro ColorIndex 22 (rouge), vous pouvez utiliser un nombre ColorIndex.

  1. Ajoutez un numéro.

Lorsque vous cliquez sur le bouton de commande sur la feuille:

Dynamic Range Result