Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι επισημαίνει τη σειρά και τη στήλη του Ενεργού κελιού (επιλεγμένο κελί). Αυτό το πρόγραμμα θα καταπλήξει και θα εντυπωσιάσει το αφεντικό σας.
Κατάσταση:
Κάθε φορά που αλλάζουμε το Active Cell on Sheet1, πρέπει να εκτελεστεί μια μακροεντολή. Μπορείτε να το επιτύχετε δημιουργώντας ένα συμβάν επιλογής φύλλου εργασίας.
1. Ανοίξτε το Visual Basic Editor.
2. Κάντε διπλό κλικ στο Sheet1 (Sheet1) στο Project Explorer.
3. Επιλέξτε φύλλο εργασίας από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε SelectionChange από τη δεξιά αναπτυσσόμενη λίστα.
Προσθέστε τις ακόλουθες γραμμές κώδικα στο συμβάν Επιλογής φύλλου εργασίας:
4. Δηλώνουμε τέσσερις μεταβλητές τύπου Ακέραιος. Ένα όνομα rowNumberValue, ένα όνομα columnNumberValue, ένα όνομα i και ένα όνομα j.
Dim rowNumberValue As Integer, στήληNumberValue As Integer, i As Integer, j Ως Integer
5. Αρχικά, προσθέτουμε τη γραμμή που αλλάζει το χρώμα φόντου όλων των κελιών στο 'No Fill'.
Cells.Interior.ColorIndex = 0
6. Αρχικοποιούμε τη μεταβλητή rowNumberValue με τον αριθμό σειράς του Active Cell και τη μεταβλητή columnNumberValue με τον αριθμό στήλης του Active Cell.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Επισημαίνουμε τη μπλε στήλη. Δηλαδή: όλα τα κελιά με αριθμό σειράς μικρότερα ή ίσα με τη σειράNumberValue και αριθμός στήλης ίση με τη στήληNumberValue
Για i = 1 To rowNumberValue
Κελιά (i, στήληNumberValue). Εσωτερικό.ColorIndex = 37
Επόμενο i
Επεξήγηση: για αυτό το παράδειγμα (δείτε την παραπάνω εικόνα), η σειράNumberValue ισούται με 12 και η στήληNumberValue ισούται με 8. Οι γραμμές κώδικα μεταξύ For και Next θα εκτελεστούν δώδεκα φορές. Για i = 1, το Excel VBA χρωματίζει το κελί στη διασταύρωση της γραμμής 1 και της στήλης 8. Για i = 2, το Excel VBA χρωματίζει το κελί στη διασταύρωση της γραμμής 2 και της στήλης 8 κ.λπ.
Σημείωση: αντί για τον αριθμό ColorIndex 37 (μπλε), μπορείτε να χρησιμοποιήσετε οποιονδήποτε αριθμό ColorIndex.
8. Με παρόμοιο τρόπο, επισημαίνουμε τη γραμμή μπλε. Δηλαδή: όλα τα κελιά με αριθμό σειράς ίση με rowNumberValue και αριθμό στήλης μικρότερο ή ίσο με columnNumberValue.
Για j = 1 Στη στήληNumberValue
Κελιά (rowNumberValue, j) .Interior.ColorIndex = 37
Επόμενο j
9. Τώρα ήρθε η ώρα να δοκιμάσετε το πρόγραμμα. Κατεβάστε το αρχείο Excel και δείτε πώς επισημαίνονται η γραμμή και η στήλη του Ενεργού κελιού κάθε φορά που αλλάζετε το Ενεργό κελί.
