300 Παραδείγματα

Δημιουργήστε ένα μοτίβο

Create Pattern

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι δημιουργεί ένα μοτίβο Το





Κατάσταση:

Δημιουργήστε ένα μοτίβο στο 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 = 15

7. Δοκιμάστε το πρόγραμμα.

Αποτέλεσμα:

Δημιουργήστε ένα αποτέλεσμα μοτίβου

6/11 Ολοκληρώθηκε! Μάθετε περισσότερα για τους βρόχους>
Μετάβαση στο επόμενο κεφάλαιο: Σφάλματα μακροεντολών



^