ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα)

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 04-12-12, 14:34
NIC Ο χρήστης NIC δεν είναι συνδεδεμένος
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-08-2009
Μηνύματα: 23
Προεπιλογή Πρόγραμμα εφημεριών

Μου ζήτησε έναν φίλος που δουλεύει σε σχολειό και έχει αναλάβει τις εφημερίες των συναδέλφων του κάτι «εύκολο» ώστε αφού καταχωρεί κάπου τις διάφορες δεσμεύσεις των συναδέλφων μετά να βγαίνουν αυτόματα οι εφημερίες ( μετά απλά θα αλλάζει η σειρά μεταξύ τους ανά μέρα)
Υπάρχει δυνατότητα να μπει παράμετρος ότι όλοι θα κάνουν από δυο .
Σας στέλνω το αρχείο που χρησιμοποιούν για χειρόγραφη επεξεργασία που κάνουν τώρα
( δεν ξέρω μήπως πρέπει να γίνει με άλλο πρόγραμμα πχ access)
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx εφημεριες.xlsx (11,3 KB, 303 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 05-12-12, 00:51
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Καλησπέρα/Καλημέρα

Δες στο συνημμένο μια πρόταση/προσέγγιση.
Ελπίζω να βοηθήσει.

Φιλικά
Θανάσης
Συνημμένα Αρχεία
Τύπος Αρχείου: xls efimeries_01.xls (54,5 KB, 349 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 05-12-12, 08:00
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλημέρα
Παρ' όλο που ο Θανάσης έχει κάνει καταπληκτική δουλειά νομίζω ότι το ζητούμενο έχει βασικές ασάφειες για να επιτευχθεί.
Για να έχουμε 100% αποτέλεσμα πρέπει να ξέρουμε τον ακριβή αριθμό του δυναμικού που θα πάρει τα πόστα και ο περιορισμός (παράμετρος) <<ότι όλοι θα κάνουν από δυο>> πρέπει να διευκρινιστεί αν θέλουμε μέγιστο δύο ή τουλάχιστον δύο.
Στην κατάσταση με τα μέχρι τώρα δεδομένα δεν μπορεί να πραγματοποιηθεί κάτι τέτοιο διότι δεν είναι δυνατόν να καλύψουμε πέντε ημέρες με πέντε άτομα σε πέντε πόστα και με δύο μόνο εμφανίσεις ανά εβδομάδα για τον καθ' ένα (έτσι όπως το καταλαβαίνω εγώ)
Ακόμα αν έχουμε τρεις κολληόμενους σε μία μέρα με αυτό το δυναμικό δεν βγαίνει υπηρεσία
Για να επιτευχθεί το ζητούμενο πρέπει να γίνει μία κυλιόμενη "σκάλα" στην οποία θα υπάρχουν τα διαθέσιμα Ονόματα και κάθε φορά που θα "χαλάει" η σειρά λόγω κολλήματος να παίρνει από την λίστα ονομάτων τον επόμενο διαθέσιμο μέχρι να συμπληρωθεί το όριο?? των δύο εμφανίσεων
Αυτό προϋποθέτει πλήρης πληροφορίες (και μάλλον "λίγο" κώδικα VBA)
Απάντηση με παράθεση
  #4  
Παλιά 05-12-12, 13:08
Όνομα: ΤΖΙΜΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 11-02-2011
Περιοχή: Πύργος Ηλείας
Μηνύματα: 245
Προεπιλογή

Καταπληκτική δουλειά από τον Θανάση ομολογουμένως.Επίσης θα πρέπει να πω ότι στο σχολείο οι εφημερίες προκύπτουν ανα πόστο και ανα ώρα ενδεχομένως.Δηλαδή καθηγητής που έχει μάθημα από της 8:00 έως στις 12:00 δεν συνεχίζει την εφημερία του αλλά την καλύπτει κάποιος άλλος.Επίσης αν θα αλλαζει η εβδομάδα θα πρέπει να αλλάζουμε και τα πόστα στους καθηγητές ώστε να είναι κυλιόμενα.Επίσης θα πρέπει να ορίσουμε και τους παραμέτρους που επισήμανε και ο Σπύρος δηλαδή μέγιστο πλήθος εφημεριών ανα καθηγητή.
Τέλος δεν κατάλαβα τι επηρεάζει ακριβώς το πλήθος στις βάρδιες.
Με εκτίμηση Τζίμης
Απάντηση με παράθεση
  #5  
Παλιά 05-12-12, 18:14
NIC Ο χρήστης NIC δεν είναι συνδεδεμένος
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-08-2009
Μηνύματα: 23
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από spirosgr Εμφάνιση μηνυμάτων
Καλημέρα
Παρ' όλο που ο Θανάσης έχει κάνει καταπληκτική δουλειά νομίζω ότι το ζητούμενο έχει βασικές ασάφειες για να επιτευχθεί.
Για να έχουμε 100% αποτέλεσμα πρέπει να ξέρουμε τον ακριβή αριθμό του δυναμικού που θα πάρει τα πόστα και ο περιορισμός (παράμετρος) <<ότι όλοι θα κάνουν από δυο>> πρέπει να διευκρινιστεί αν θέλουμε μέγιστο δύο ή τουλάχιστον δύο.
Στην κατάσταση με τα μέχρι τώρα δεδομένα δεν μπορεί να πραγματοποιηθεί κάτι τέτοιο διότι δεν είναι δυνατόν να καλύψουμε πέντε ημέρες με πέντε άτομα σε πέντε πόστα και με δύο μόνο εμφανίσεις ανά εβδομάδα για τον καθ' ένα (έτσι όπως το καταλαβαίνω εγώ)
Ακόμα αν έχουμε τρεις κολληόμενους σε μία μέρα με αυτό το δυναμικό δεν βγαίνει υπηρεσία
Για να επιτευχθεί το ζητούμενο πρέπει να γίνει μία κυλιόμενη "σκάλα" στην οποία θα υπάρχουν τα διαθέσιμα Ονόματα και κάθε φορά που θα "χαλάει" η σειρά λόγω κολλήματος να παίρνει από την λίστα ονομάτων τον επόμενο διαθέσιμο μέχρι να συμπληρωθεί το όριο?? των δύο εμφανίσεων
Αυτό προϋποθέτει πλήρης πληροφορίες (και μάλλον "λίγο" κώδικα VBA)
Σωστή η παρατήρηση και σε ερώτηση που έκανα σήμερα στον φίλο μου είπε πως είναι 12 άτομα που θα κάνουν από 2 υπηρεσίες και 1 άτομο που κάνει μόνο μια λόγο προγράμματος άρα ακριβώς 25 εφημερίες. Θα δοκιμάσω το αρχείο και θα σας πω. Σήμερα βρήκα επίσης ένα πρόγραμμα σε access από κάποιο δάσκαλο που το έκανε για το δημοτικό του και θα το βάλω στο site για να υπάρχει και αν γίνεται να το βελτιώσουμε. Ευχαριστώ
Απάντηση με παράθεση
  #6  
Παλιά 05-12-12, 18:28
NIC Ο χρήστης NIC δεν είναι συνδεδεμένος
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-08-2009
Μηνύματα: 23
Προεπιλογή Αρχείο συμπληρωμένο

Σας « ανεβάζω» το αρχείο με 13 καθηγητές από τους οποίους οι 12 κάνουν από 2 και ένα κάνει μόνο μια εφημερία. Το αρχείο του Θανάση παίρνει τους 5 πρώτους και μετά αλλάζει μόνο αν έχουμε κόλλημα. Επίσης αυτό που λέει ο Τζίμης δεν ισχύει εδώ μια και ο εφημερεύων είναι όλη την ημέρα και όχι την μίση
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx ΝΕΟ efimeries_01 (1).xlsx (18,1 KB, 375 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 05-12-12, 19:52
Το avatar του χρήστη gr8styl
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 823
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από NIC Εμφάνιση μηνυμάτων
.... Το αρχείο του Θανάση παίρνει τους 5 πρώτους και μετά αλλάζει μόνο αν έχουμε κόλλημα....
Το αρχείο που ανέβασα, στο Μ2 έχει τον τύπο
=IF(ISERROR(MATCH($K2;Φύλλο1!C$19:C$23;0));$J 2;"")
άλλαξέ τον σε
=IF(AND(ISERROR(MATCH($K2;Φύλλο1!C$19:C$23;0));$J2>MATCH(B$8;Επιτηρητές;0));$J2;"")
και αντίγραψέ τον προς τα κάτω και προς τα δεξιά μέχρι το κελί P26
έτσι δεν θα επαναλαμβάνονται μόνο οι 5 πρώτοι επιτηρητές όταν έχεις περισσότερους από 5.

Σημ. όταν θέλεις να προσθέσεις περισσότερους από 12 επιτηρητές για να προσαρμοστεί αυτόματα το όνομα "επιτηρητές" θα πρέπει να εισάγεις κελιά μεταξύ Η12 και Η13.

Πες μας αν έγινε.
Θανάσης
Απάντηση με παράθεση
  #8  
Παλιά 21-09-18, 08:21
Όνομα: ΣΤΑΎΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-09-2018
Μηνύματα: 19
Προεπιλογή ΕΦΗΜΕΡΙΕΣ ΣΕ ΔΗΜΟΤΙΚΟ ΣΧΟΛΕΙΟ

Παράθεση:
Αρχική Δημοσίευση από gr8styl Εμφάνιση μηνυμάτων
Καλησπέρα/Καλημέρα

Δες στο συνημμένο μια πρόταση/προσέγγιση.
Ελπίζω να βοηθήσει.

Φιλικά
Θανάσης
ΠΑΙΔΙΑ ΒΟΗΘΕΙΑ
ΕΧΟΥΜΕ 8 ΕΚΠΑΙΔΕΥΤΙΚΟΥΣ ΤΗΝ ΕΒΔΟΜΑΔΑ
ΠΡΕΠΕΙ ΝΑ ΚΑΝΟΥΝ ΕΦΗΜΕΡΙΑ ΚΑΘΕ ΜΕΡΑ 2
ΠΩΣ ΜΠΟΡΟΥΜΕ ΝΑ ΒΓΑΛΟΥΜΕ ΤΙΣ ΕΤΗΣΙΕΣ ΕΦΗΜΕΡΙΕΣ ΧΩΡΙΣ ΝΑ ΑΔΙΚΗΣΟΥΜΕ ΚΑΝΕΝΑ
Απάντηση με παράθεση
  #9  
Παλιά 21-09-18, 11:40
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλησπέρα

Σταύρο δες μια λύση στο συνημμένο.

Η λύση στηρίζεται σε κώδικα (VBA), συνεπώς απαιτείται ενεργοποίηση των μακροεντολών.

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

ΥΓ Μη χρησιμοποιείς κεφαλαία. Κάνουν το κείμενο δυσανάγνωστο και κουραστικό.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ProgramWork2ByDay.xlsm (37,7 KB, 226 εμφανίσεις)
Απάντηση με παράθεση
  #10  
Παλιά 22-09-18, 00:40
Όνομα: ΣΤΑΎΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-09-2018
Μηνύματα: 19
Προεπιλογή Eυχαριστώ!!!!!!!!!!!!!

Παράθεση:
Αρχική Δημοσίευση από kapetang Εμφάνιση μηνυμάτων
Καλησπέρα

Σταύρο δες μια λύση στο συνημμένο.

Η λύση στηρίζεται σε κώδικα (VBA), συνεπώς απαιτείται ενεργοποίηση των μακροεντολών.

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

ΥΓ Μη χρησιμοποιείς κεφαλαία. Κάνουν το κείμενο δυσανάγνωστο και κουραστικό.
Σε ευχαριστώ παρα πολύ για την βοήθεια
Να είστε πάντα καλά
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Πρόγραμμα Αδειών Προσωπικού spiroschrysis Excel - Ερωτήσεις / Απαντήσεις 16 11-12-23 17:41
[Γενικά] Πρόγραμμα Αδειών Προσωπικού spmatrix Excel - Ερωτήσεις / Απαντήσεις 15 07-03-23 18:01
Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα) kapetang Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 12-02-23 13:57
[Συναρτήσεις] βαρδιες προσωπικού spiros1982 Excel - Ερωτήσεις / Απαντήσεις 9 12-12-21 17:42
[Γενικά] Πρόγραμμα για βάρδιες XATZOPOULOS DHMOKRITOS Excel - Ερωτήσεις / Απαντήσεις 4 25-10-20 10:12


Η ώρα είναι 14:58.