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