Forum

Αναζήτηση στο ms-office.gr

Πάμε!

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 09-10-18, 22:53
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-01-2013
Μηνύματα: 45
Προεπιλογή SumWork2 & FillColor

Καλησπέρα ,
Ψάχνοντας στο forum βρήκα κάτι πολύ χρήσιμο και σε μένα που χρειάζεται όμως μια αλλαγή στον κώδικα. Στο αρχείο SumWork2 πριν την αρχή κάθε μήνα να συμπληρώνεται και το Δεύτερο 15νθημερο του προηγούμενου, και ο τρέχοντας μήνας να συμπληρώνεται μέχρι την σημερινή ημερομηνία ή την τρέχουσα ημερομηνία που τρέχει κάθε φορά ο κώδικας στο φύλλο Main, ώστε να καταφέρω να το προσαρμόσω και στην δικιά μου εργασία, που μέχρι σήμερα δουλεύω με μεγάλη επιτυχία, χάρη στην βοήθεια σας .Ανεβάζω ένα δείγμα για να γίνει πιο κατανοητό, το οποίο βέβαια είναι συμπληρωμένο από λάθος όλος ο Οκτώβρης.

Ευχαριστώ πολύ.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip SumWork2+ FillColor.zip (73,8 KB, 273 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη steliosgr : 09-10-18 στις 23:17.
Απάντηση με παράθεση
  #2  
Παλιά 10-10-18, 21:08
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.878
Προεπιλογή

Καλησπέρα

Στέλιο αποσυμπίεσε το συνημμένο και κάνε δοκιμές.

Τονίζω ότι, επειδή για το συγκεντρωτικό φύλλο χρησιμοποιούνται δεδομένα από τον τρέχοντα μήνα και τον προηγούμενο, όταν τρέχον μήνας είναι ο Ιανουάριος στο φάκελο πρέπει να υπάρχει και το αρχείο του Δεκεμβρίου του προηγούμενου έτους.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip SumWork FillColor.zip (72,7 KB, 806 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 11-10-18, 14:07
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-01-2013
Μηνύματα: 45
Προεπιλογή

Γιώργο καλησπέρα ,θέλω να σε ευχαριστήσω και να σου πω ότι είναι τέλειο.
Κατά τις δοκιμές που έκανα όλη την ημέρα μέχρι και τώρα το μόνο πρόβλημα που μου δημιουργεί και σίγουρα εγώ φταίω, είναι ότι ενώ στο δικό σου δείγμα ό χρωματισμός δουλεύει μια χαρά στο δικό μου πραγματικό βιβλίο εργασίας χρωματίζει από 25/9 εως 5/10 11 συνεχόμενα ΠΑΡΩΝ και όχι όλα τα ΠΑΡΩΝ που είναι πολλά παραπάνω στη σειρά.
Σου δείχνω τις αλλαγές που έκανα από αυτό που δούλευα μέχρι σήμερα και δούλευε άψογα μήπως και καταλάβεις τι έχω κάνει:

ΠΡΙΝ: Const strStart As String = "G7"
ΜΕΤΑ: Const strStart As String = "H7"

ΠΡΙΝ: If Cells(R, C) = "ΠΑΡΩΝ" Then
ΜΕΤΑ: If Cells(R, C) = "ΠΑΡΩΝ" Or Cells(R, C) = "ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ" Then

Στο δείγμα που ανέβασα υπήρχε το ΣΥΝΕΧΙΣΗ αντί του "ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ" που υπάρχει στην πραγματικότητα ,και που αντικατέστησα.
Συνημμένα Thumbnails
SumWork2 &  FillColor-fillcolor.jpg  

Τελευταία επεξεργασία από το χρήστη steliosgr : 11-10-18 στις 15:13.
Απάντηση με παράθεση
  #4  
Παλιά 11-10-18, 18:20
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-01-2013
Μηνύματα: 45
Προεπιλογή

Καλησπέρα,
Γιώργο ανεβάζω το πραγματικό αρχείο που παίρνω από το SumWorkFillColor με σβησμένα μόνο τα ονόματα . Δεν μπορώ να καταλάβω γιατί δεν δουλεύει ο χρωματισμός τώρα καθόλου;
Συνημμένα Αρχεία
Τύπος Αρχείου: xls FillColor2.xls (107,5 KB, 8 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 11-10-18, 19:37
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.878
Προεπιλογή

Καλησπέρα

Στέλιο, ο κώδικας για να καταμετρήσει σε μία γραμμή τα συνεχόμενα "ΠΑΡΩΝ" κλπ, πρέπει το αντίστοιχο κελί στη στήλη G (ειδικότητα) να μη είναι κενό.

Πιο συγκεκριμένα αρχίζει από το κελί G7, αν δεν είναι κενό, μετράει τα παρών στη γραμμή και προχωράει στην εξέταση του G8.

Αυτό συνεχίζεται μέχρι να βρεθεί κενό κελί στη στήλη G.

Αν βρεθεί θεωρεί ότι από τη γραμμή αυτή και κάτω δεν υπάρχουν δεδομένα οπότε σταματάει.

Βάλε συνεπώς δεδομένα στη στήλη G (ειδικότητα), έστω και εικονικά, και μετά τρέξε τη μακροεντολή.

Σημείωση:

Όταν καταχωρούμε δεδομένα στα κελιά φροντίζουμε οι καταχωρήσεις να είναι σύντομες.

Αυτό περιορίζει τις διαστάσεις της περιοχής των δεδομένων οπότε μπορούμε να τα βλέπουμε χωρίς πολλά «σκρολαρίσματα».

Επίσης περιορίζει τα λάθη. Για παράδειγμα αν πληκτρολογήσουμε τη φράση «ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ» και παρεμβάλουμε περισσότερα από 1 διαστήματα στις λέξεις θα έχουμε λάθη στη βαφή των κελιών.

Για μένα θα μπορούσες αντί για «ΠΑΡΩΝ» να πληκτρολογείς «Π» και αντί για «ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ» «Σ» και με κάποιο υπόμνημα να εξηγείς τι σημαίνουν.
Απάντηση με παράθεση
  #6  
Παλιά 11-10-18, 20:50
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-01-2013
Μηνύματα: 45
Προεπιλογή

Γιώργο , βάζοντας δεδομένα εικονικά στην ειδικότητα εστιάζεται ο χρωματισμός σε μια συγκεκριμένη περιοχή από R Έως AB , ενώ η γραμμή 7 για παράδειγμα θα έπρεπε να χρωματίζεται όλη από H Έως AH αφού ΠΑΡΩΝ και ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ πρέπει να το βλέπει σαν ένα, αυτό με παιδεύει από το πρωί. Όσο για τις σύντομες καταχωρήσεις έχεις απόλυτο δίκιο ,αλλά μιλάμε για πάρα πολλά χρόνια πριν χιλιάδες δεδομένα και θα χρειαστεί πολύ χρόνο και δουλειά.
Συνημμένα Αρχεία
Τύπος Αρχείου: xls FillColor3.xls (115,0 KB, 6 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 11-10-18, 22:17
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.878
Προεπιλογή

Στέλιο στο αρχείο σου το «ΠΑΡΩΝ» δε γράφεται με συνέπεια.

Υπάρχουν «ΠΑΡΩΝ» στα οποία προηγούνται ή έπονται διαστήματα.

Άλλαξα τη γραμμή του κώδικα που γίνεται η σύγκριση για να ξεπεραστεί το πρόβλημα.

Δες το συνημμένο.
Συνημμένα Αρχεία
Τύπος Αρχείου: xls FillColor3.xls (116,5 KB, 774 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 11-10-18, 23:35
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-01-2013
Μηνύματα: 45
Προεπιλογή

Τέλειο!!
Τα πάντα δουλεύουν άψογα, και χίλια ευχαριστώ λίγα είναι.
Γιώργο να 'σαι καλά.
Απάντηση με παράθεση
  #9  
Παλιά 11-10-18, 23:40
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 2.878
Προεπιλογή

Καλή συνέχεια Στέλιο να είσαι καλά.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας



Η ώρα είναι 11:04.