Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι βρόχους σε ολόκληρη την πρώτη στήλη και χρωματίζει όλες τις τιμές που είναι χαμηλότερες από μια ορισμένη τιμή.
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώστε μια μεταβλητή που ονομάζεται i τύπου Long. Χρησιμοποιούμε μια μεταβλητή τύπου Long εδώ επειδή οι μεταβλητές Long έχουν μεγαλύτερη χωρητικότητα από τις ακέραιες μεταβλητές.
Dim i As Long
2. Στη συνέχεια, προσθέστε τη γραμμή κώδικα που αλλάζει το χρώμα γραμματοσειράς όλων των κελιών στη στήλη Α σε μαύρο.
Στήλες (1). Γραμματοσειρά. Χρώμα = vbBlack
3. Προσθέστε το βρόχο.
Για i = 1 σε σειρές
Επόμενο i
Σημείωση: Τα φύλλα εργασίας μπορούν να έχουν έως 1.048.576 σειρές στο Excel 2007 ή νεότερη έκδοση. Ανεξάρτητα από την έκδοση που χρησιμοποιείτε, η γραμμή κώδικα περιστρέφεται σε όλες τις γραμμές.
4. Στη συνέχεια, χρωματίζουμε όλες τις τιμές που είναι χαμηλότερες από την τιμή που έχει εισαχθεί στο κελί D2. Τα κενά κελιά αγνοούνται. Προσθέστε τις ακόλουθες γραμμές κώδικα στον βρόχο.
If Cells (i, 1). Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1). Value) Τότε
Κελιά (i, 1). Γραμματοσειρά. Χρώμα = vbRed
Τέλος εαν
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο (αυτό μπορεί να διαρκέσει λίγο):
