Ci-dessous, nous examinerons un programme en Excel VBA ce crée un motif.
Situation:
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 en tant qu'entier, j en tant qu'entier
2. Deuxièmement, nous ajoutons deux boucles For Next.
Pour i = 1 à 5 étape 2
Pour j = 1 à 5 étape 2
3. Ensuite, nous ajoutons la ligne qui change 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.
j suivant
Ensuite je
5. Testez le programme.
Résultat jusqu'à présent.
Par exemple, pour i = 1 et j = 1, Excel VBA colore Cells(1,1), pour i = 1 et j = 3 (étape 2), Excel VBA colore Cells(1,3), pour i = 1 et j = 5, Cellules couleurs Excel VBA (1,5), pour i = 3 (étape 2) et j = 1, Cellules couleurs Excel VBA (3,1), etc.
6. Nous y sommes presque. La seule chose que nous devons faire est de colorer les cellules qui sont décalées d'une ligne 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:
