26-08-13, 14:48
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα
Μια πολύ απλή λύση με κώδικα θα μπορούσε να ήταν και η εξής:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Γραμμή 1
Cells.Interior.Pattern = xlNone
'Γραμμή 2
Target.Interior.Color = 65535
'Γραμμή 3
Rows(Target.Row).Interior.Color = 65535
'Γραμμή 4
Columns(Target.Column).Interior.Color = 65535
End Sub
Αντιγράψτε τον κώδικα σε φύλλο (όχι σε Module) και εκτός από την Γραμμή 1
ενεργοποιήστε ή απενεργοποιήστε τις υπόλοιπες γραμμές ή χρησιμοποιήστε συνδυασμό των υπολοίπων γραμμών ανάλογα με το τι θέλετε να χρωματίζεται (κελί, γραμμή, στήλη)
Σημείωση:
Το επιλεγμένο για το παράδειγμα χρώμα είναι κίτρινο
|