/ / / Δημιουργία μοτίβου στο Excel VBA

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

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

Κατάσταση:

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

Τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

1. Αρχικά, δηλώνουμε δύο μεταβλητές τύπου Integer. Ένας ονομάζεται i και ένας ονομάζεται j.

Dim i As Integer, j As Integer

2. Δεύτερον, προσθέτουμε δύο βρόχους For Next.

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

3. Στη συνέχεια, προσθέτουμε τη γραμμή που αλλάζει το χρώμα φόντου των κελιών σε ανοιχτό γκρι.

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

Σημείωση: αντί του αριθμού ColorIndex 15 (ανοιχτό γκρι), μπορείτε να χρησιμοποιήσετε οποιοδήποτε αριθμό ColorIndex.

4. Κλείστε τους δύο βρόχους For Next.

    Next j
Next i

5. Ελέγξτε το πρόγραμμα.

Αποτέλεσμα μέχρι στιγμής.

Κιβώτιο ένα μοτίβο Αποτέλεσμα τόσο μακριά

Για παράδειγμα, για i = 1 και j = 1, Excel VBA(1, 2), Excel VBA χρώματα Κύτταρα (1,3), για i = 1 και j = 5, χρώματα Excel VBA Κύτταρα (1,5), για i = 3 (Βήμα 2) και j = 1, τα χρώματα του Excel VBA κυττάρων (3,1), κλπ.

6. Είμαστε σχεδόν εκεί. Το μόνο που πρέπει να κάνουμε είναι να χρωματίσουμε τα κελιά που αντισταθμίζονται από μια σειρά κάτω και μια στήλη στα δεξιά των κυττάρων που έχουν ήδη χρωματιστεί. Προσθέστε την ακόλουθη γραμμή κώδικα στον βρόχο.

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

7. Ελέγξτε το πρόγραμμα.

Αποτέλεσμα:

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

Επίσης διαβάστε: