Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Excel07] Χρωματισμός μπάρας στο Excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5474-xromatismos-mparas-sto-excel.html)

George R 05-03-20 13:41

Χρωματισμός μπάρας στο Excel
 
Γειά σε όλους παιδιά

Έχω έναν πίνακα στο Excel, όπου σημειώνω διάφορα πράγματα.

Στην πρώτη στήλη αυτού του πίνακα έχω την αύξουσα ημερομηνία του έτους (έχω δηλαδή στην πρώτη γραμμή το 01/01/2020 και μετά αυξάνω κατά μία ημέρα, μέχρι το τέλος του έτους κατά 1 ημέρα ανά γραμμή).

Θέλω
κάθε φορά να μου βάφει την γραμμή με την τρέχουσα ημερομηνία κόκκινη.
Δηλαδή για παράδειγμα, σήμερα 05/03/2020, να πηγαίνει σε εκείνη την ημέρα και να μου κάνει την γραμμή κόκκινη. Αύριο να ξε-βάφει την χθεσινή και να μου βάφει την 06/03/2020 κοκ.

Υ.Γ.


Θέλω να μου βάφει όλη την γραμμή, από την αρχή έως πέρα στο τέλος του Excel και όχι μόνο την γραμμή του πίνακα. Κάτι δηλαδή σαν αυτό που επιλέγουμε όλη τη γραμμή από το πλαϊ του Excel.

Ευχαριστώ.

christ 05-03-20 18:12

2 Συνημμένο(α)
Φίλε μου αυτό γίνεται με την μορφοποίηση υπό όρους Δες στο παράδειγμά που επισυνάπτω

George R 06-03-20 08:25

Ευχαριστώ Χρήστο


Απλό και έξυπνο

Να σε ρωτήσω και κάτι που μου ήρθε τώρα

Αν θέλουμε να κάνουμε κάτι παρόμοιο, ανάλογα με το κελί που μετακινείται ο κέρσορας μπορούμε;

Αν δηλαδή θέλουμε κάθε φορά που ο κέρσορας επιλέγει ένα κελί να το "βάφει" και να "ξε-βαφει" το προηγούμενο;

Ευχαριστώ.

christ 06-03-20 17:16

Για κοίτα εδώ αν σε βολεύει http://www.ms-office.gr/forum/excel-...pontikioi.html

Tasos 06-03-20 17:42

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

Γιώργο θα χρειαστείς αρχικά ένα αρχείο *.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).

Καλή συνέχεια!

Τάσος

ΥΓ. Χρήστο με πρόλαβες!!

George R 09-03-20 08:17

Ευχαριστώ πολύ παιδιά

Θα τα δοκιμάσω.


Η ώρα είναι 07:37.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2