[VBA] Αλλαγή χρώματος σε γραμμή και στήλη που είναι το mouse

[skapet155]

μηπως θα μπορουσε καποιος να με βοηθησει , στο παρακτω θεμα
εχω το mouse πχ στο κελι Α10 πως θα μπορουσε να αλλαζει χρωμα η στηλη Α και η γραμμη 10 ?
εαν παω στην Β 28 πως θα μπορουσε να αλλαζει χρωμα η στηλη Β και η γραμμη 28 ?

[gr8styl]

Φίλε Σταύρο,
Κάνε δεξί κλικ στο όνομα του φύλλου και στο παράθυρο του VBE που θα ανοίξει κάνε επικόλληση τον παρακάτω κώδικα.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells.Interior.ColorIndex = xlNone
   Rows(Target.Row).Interior.ColorIndex = 36
   Columns(Target.Column).Interior.ColorIndex = 36
End Sub

Φιλικά
Θανάσης

[skapet155]

σε ευχαριστω πολυ ειναι πολυ καλο

[Tasos]

Καλησπέρα σε όλους!

Θανάση μου καλωσόρισες... στις επάλξεις!

Με αφορμή το ζητούμενο του φίλου Σταύρου, επισύναψα ένα αρχείο στα χρήσιμα παραδείγματα της θεματικής ενότητας Excel:
http://www.ms-office.gr/forum/excel-...oy-kelioi.html

Σε όσους το έχουν ήδη κατεβάσει συνιστώ να το κατεβάσουν ξανά (το αρχείο ενημερώθηκε).

Νομίζω ότι αξίζει τον κόπο να το δείτε.

Τάσος

Καλησπέρα σε όλους.

Μόνο αξίζει να το δούμε φίλε μου;

Πρέπει να το δούμε όλοι!

Πρόλαβες να ανεβάσεις, την νέα έκδοση, την στιγμή που ετοιμαζόμουνα να σου ζητήσω να μπορεί να τσεκαριστεί και μόνον ένα κελί. Με πρόλαβες..

Χρήσιμότατο και πρακτικότατο το βρίσκω. Δεν ξέρω να κοιτάξω λεπτομέρειες και έτσι κρίνω μόνον το αποτέλεσμα.

Θερμά συγχαρητήρια φίλε μου!


ΥΓ. Θανάση, η απουσία σου, ήταν αισθητή αυτόν τον καιρό.Καλώς μας γύρισες.

[Spirosgr]

Καλημέρα
Ερώτηση για τον φίλο Θανάση
Στον Κώδικα που δίνεις μπορούμε να κάνουμε χρήση κατά το δοκούν ?
Αν αλλάξει ο αριθμός χρώματος με 0 οπότε και δεν χρωματίζει
δεν λειτουργεί και ο απλός χρωματισμός κελιών της EXCEL
Καμιά ιδέα ?
Ευχαριστώ

Θανάση το θέμα απαντήθηκε από τον Τάσο
μην ταλαιπωρηθείς με το θέμα αυτό
Ευχαριστώ και πάλι