Καλησπέρα σε όλους!
Γιώργο θα χρειαστείς αρχικά ένα αρχείο *.xls ή *.xlsm ή *xlsb για να επιτύχεις το ζητούμενο.
Θα δεσμεύσεις 2 κελιά, ας πούμε Α1 και Α2.
Στο Α1 γράψε τον τύπο:
=CELL("row") και στο Α2 τον τύπο:
=CELL("col")
Επίλεξε την περιοχή όπου θέλεις να χρωματίζεται το
ενεργό κελί, επίλεξε Μορφοποίηση υπό όρους > Δημιουργία κανόνα και στο παράθυρο που θα εμφανιστεί επικόλλησε τον τύπο:
=AND(ROW()=$A$1;COLUMN()=$A$2) .
Κατόπιν επίλεξε το χρώμα φόντου, γραμματοσειράς, περίγραμμα κλπ. και κλείσε με ΟΚ.
Κάνε δεξί κλικ στην καρτέλα του φύλλου και επίλεξε "Προβολή κώδικα".
Στο παράθυρο (
VBE) που θα εμφανιστεί επικόλλησε το παρακάτω:
Κώδικας:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Dirty ' Προκαλεί υπολογισμό στο κελί Α1 και στη συνέχεια στη
'μοροφοποίηση υπό όρους που σχετίζεται μ΄αυτό.
End Sub
Υπάρχουν και άλλοι τρόποι αλλά ο συγκεκριμένος μπορεί να εφαρμοστεί σε περισσότερα φύλλα και επίσης δεν προκαλεί απώλεια του ιστορικού αναίρεσης (Undo).
Καλή συνέχεια!
Τάσος
ΥΓ. Χρήστο με πρόλαβες!!