/ / Créer un motif dans Excel VBA

Créer un motif dans Excel VBA

Ci-dessous, nous examinerons un programme en Excel VBA cette crée un motif.

Situation:

Créer un motif dans Excel VBA

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

1. Tout d'abord, nous déclarons deux variables de type Integer. Un nommé i et un nommé j.

Dim i As Integer, j As Integer

2. Deuxièmement, nous ajoutons deux boucles For Next.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. Ensuite, nous ajoutons la ligne qui modifie la couleur d'arrière-plan des cellules en gris clair.

Cells(i, j).Interior.ColorIndex = 15

Remarque: au lieu du numéro ColorIndex 15 (gris clair), vous pouvez utiliser n’importe quel numéro ColorIndex.

4. Fermez les deux boucles For Next.

    Next j
Next i

5. Testez le programme.

Résultat jusqu'à présent.

Crate un résultat de modèle si loin

Par exemple, pour i = 1 et j = 1, Excel VBAcouleurs Cellules (1,1), pour i = 1 et j = 3 (étape 2), Excel VBA couleurs Cellules (1,3), pour i = 1 et j = 5, Excel VBA couleurs cellules (1,5), pour i = 3 (étape 2) et j = 1, couleurs Excel VBA Cells (3,1), etc.

6. Nous y sommes presque. La seule chose à faire est de colorer les cellules qui sont décalées d’une rangée en dessous et d’une colonne à droite des cellules déjà colorées. Ajoutez la ligne de code suivante à la boucle.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Testez le programme.

Résultat:

Créer un résultat de modèle

Lisez aussi: