/ / / Εργασίες στο Πρόγραμμα στο Excel VBA

Εργασίες στο Πρόγραμμα στο Excel VBA

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

Κατάσταση:

Στο Sheet1 έχουμε τρία καθήκοντα (X, Y, Z). Ένα "1" υποδεικνύει ότι μια εργασία έχει ολοκληρωθεί. Μια εργασία είναι προγραμματισμένη εάν υπάρχει "1" σε κάθε στήλη έως και την σημερινή ημερομηνία. Σήμερα είναι 6-Ιουν. Οι εργασίες X και Y είναι προγραμματισμένες. Η εργασία Z είναι πίσω από το πρόγραμμα (δεν υπάρχει "1" στο κελί E8).

Εργασίες στο Πρόγραμμα στο Excel VBA

Δημιουργία συμβάντος αλλαγής φύλλου εργασίας. Ο κώδικας που προστέθηκε στο συμβάν αλλαγής φύλλου εργασίας θα εκτελεστεί από το Excel VBA όταν αλλάζετε ένα κελί σε ένα φύλλο εργασίας.

1. Ανοίξτε τον Επεξεργαστή Visual Basic.

2. Κάντε διπλό κλικ στο Φύλλο1 (Φύλλο1) στον Έλεγχο Έργου.

3. Επιλέξτε το φύλλο εργασίας από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Αλλαγή από τη δεξιά αναπτυσσόμενη λίστα.

Αλλαγή συμβάντος εργασίας στο Excel VBA

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

4. Δηλώστε δύο μεταβλητές τύπου Integer.

Dim i As Integer, j As Integer

5. Προσθέστε ένα Do While Loop.

Do While Cells(6 + i, 1).Value <> ""


    i = i + 1
Loop

Επεξήγηση: Για το i = 0, το Excel VBA ελέγχει την εργασία X, για το i = 1, την εργασία Y, κλπ. Το Excel VBA αφήνει το βρόχο Do While όταν τα Κύτταρα (6 + i, 1) είναι κενό (δεν χρειάζεται περισσότερες εργασίες για έλεγχο).

Προσθέστε τις ακόλουθες γραμμές κώδικα (στις 6, 7 και 8) στο Do While Loop.

6. Αρχικοποιήστε την μεταβλητή j με την τιμή 0.

j = 0

7. Ρυθμίστε το χρώμα φόντου μιας εργασίας σε πράσινο υποθέτοντας ότι μια εργασία είναι προγραμματισμένη (αυτό δεν είναι απαραίτητα φυσιολογικό φυσικά).

Cells(6 + i, 1).Interior.ColorIndex = 4

8. Προσθέστε άλλο Do While Loop.

Do While Cells(4, 2 + j).Value <= Date
    If Cells(6 + i, 2 + j).Value = 0 Then Cells(6 + i, 1).Interior.ColorIndex = 3
    j = j + 1
Loop

Σημείωση: η λειτουργία Date επιστρέφει την ημερομηνία της ημέρας.

Εξήγηση: Για το i = 0, j = 0, το Excel VBA ελέγχει το κελί B6. Για το i = 0, j = 1, το Excel VBA ελέγχει το κελί C6, κλπ. Μια εργασία είναι προγραμματισμένη εάν υπάρχει "1" σε κάθε στήλη μέχρι και την σημερινή ημερομηνία. ορίζει το χρώμα φόντου της εργασίας σε κόκκινο χρώμα.

9. Ελέγξτε το πρόγραμμα. Για παράδειγμα, υποδείξτε ότι η εργασία Z στις 6-jun έχει ολοκληρωθεί. Ως αποτέλεσμα, η εργασία Z θα γίνει αυτόματα πράσινη.

Εργασίες στο αποτέλεσμα προγράμματος

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