Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι δημιουργεί ένα μοτίβο.
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε δύο μεταβλητές τύπου Integer. Ένας με το όνομα i και ένας με το όνομα j.
Dim i Ως ακέραιος, j Ως ακέραιος
2. Δεύτερον, προσθέτουμε δύο βρόχους For Next.
Για i = 1 έως 5 Βήμα 2
Για j = 1 έως 5 Βήμα 2
3. Στη συνέχεια, προσθέτουμε τη γραμμή που αλλάζει το χρώμα φόντου των κελιών σε ανοιχτό γκρι.
Κελιά (i, j). Εσωτερικό. ColorIndex = 15
Σημείωση: αντί για τον αριθμό ColorIndex 15 (ανοιχτό γκρι), μπορείτε να χρησιμοποιήσετε οποιονδήποτε αριθμό ColorIndex.
4. Κλείστε τους δύο βρόχους For Next.
Επόμενο j
Επόμενο i
5. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα μέχρι τώρα.
Για παράδειγμα, για i = 1 και j = 1, Excel VBA Cells (1,1), για i = 1 και j = 3 (Step 2), Excel VBA χρώματα Cells (1,3), για i = 1 και j = 5, Excel VBA χρώματα Κελιά (1,5), για i = 3 (Βήμα 2) και j = 1, Excel VBA χρώματα Κελιά (3,1) κ.λπ.
6. Είμαστε σχεδόν εκεί. Το μόνο που πρέπει να κάνουμε είναι να χρωματίσουμε τα κελιά που αντισταθμίζονται με 1 γραμμή παρακάτω και 1 στήλη στα δεξιά των ήδη χρωματισμένων κελιών. Προσθέστε την ακόλουθη γραμμή κώδικα στον βρόχο.
Κελιά (i, j). Offset (1, 1). Εσωτερικό. ColorIndex = 15
7. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα: