Βρόχο μέσω ολόκληρης της στήλης στο Excel VBA

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

Βρόχος μέσω ολόκληρης της στήλης στο Excel VBA

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

1. Αρχικά, δηλώστε μια μεταβλητή που ονομάζεται i τύπου Long. Χρησιμοποιούμε μια μεταβλητή τύπου Long εδώ, επειδή οι μεγάλες μεταβλητές έχουν μεγαλύτερη χωρητικότητα από τις μεταβλητές Integer.

Dim i As Long

2. Στη συνέχεια, προσθέστε τη γραμμή κώδικα που αλλάζει το χρώμα γραμματοσειράς όλων των κελιών στη στήλη Α σε μαύρο.

Columns(1).Font.Color = vbBlack

3. Προσθέστε τον βρόχο.

For i = 1 To Rows.Count

Next i

Σημείωση: τα φύλλα εργασίας μπορούν να έχουν μέχρι 65.536 γραμμές στο Excel 2003 και έως 1.048.576 γραμμές στο Excel 2007 ή μεταγενέστερα. Ανεξάρτητα από την έκδοση που χρησιμοποιείτε, η γραμμή κώδικα παραπάνω βρόχων σε όλες τις σειρές (το αρχείο Excel που μπορείτε να κατεβάσετε είναι σε μορφή Excel 97-2003).

4. Στη συνέχεια, χρωματίζουμε όλες τις τιμές που είναι χαμηλότερες από την τιμή που εισάγεται στο κελί D2. Τα κενά κελιά αγνοούνται. Προσθέστε τις ακόλουθες γραμμές κώδικα στον βρόχο.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο (αυτό μπορεί να χρειαστεί λίγο):

Βρόχος μέσω ολόκληρου του αποτελέσματος της στήλης