Εάν θέλετε να συμπληρώσετε αυτόματα το συγκεκριμένο εύρος χρώματος χρησιμοποιώντας το βρόχο VBA. Σε αυτό το άρθρο θα μάθετε για βρόχο σε VBA που πληροί ορισμένες προϋποθέσεις.
Η ιδέα είναι εάν το εύρος A1: A20 περιέχει οτιδήποτε κείμενο ή αριθμό, τότε το excel για βρόχο θα γεμίσει αυτόματα τα κενά κελιά.
Ακολουθεί το στιγμιότυπο δεδομένων στη στήλη Α:
Για να συμπληρώσουμε αυτόματα το χρώμα σε κενά κελιά, πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
- Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα φύλλου εργασίας
Υπο VBAForLoop ()
Για x = 1 έως 20
Κελιά (x, 1). Επιλέξτε
Αν Selection.Value = "" Τότε
Με επιλογή. Εσωτερικό
.Χρώμα = 65535
Τέλος με
Τέλος εαν
Επόμενο x
Τέλος υπο
- Αφού αντιγράψετε τον κώδικα, πρέπει να εκτελέσετε τη μακροεντολή χρησιμοποιώντας ALT + F8 & επιλέξτε τη μακροεντολή.
Με αυτόν τον τρόπο μπορούμε να χρησιμοποιήσουμε το VBA για αυτόματη συμπλήρωση χρώματος χρησιμοποιώντας το βρόχο.
Λήψη-Τρόπος αυτόματης συμπλήρωσης χρώματος με vba για βρόχο