Εμφάνιση ενός μόνο μηνύματος
  #47  
Παλιά 31-01-23, 14:28
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

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

Επειδή κάθε μέρα απαιτούνται 14 εργαζόμενοι, για να λειτουργήσει το πρόγραμμα, οι διαθέσιμοι
(αυτοί που μένουν μετά την αφαίρεση των κωλυομένων) πρέπει να είναι, κάθε μέρα, >=14.

Στο πρόγραμμα έχουν γίνει αρκετές μεταβολές, ώστε να είναι ευκολότερη η προσαρμογή του:

1) Οι ημερομηνίες δε συμπληρώνονται με τύπους, αλλά με το εργαλείο που διαθέτει το Excel για τη συμπλήρωση σειρών ημερομηνιών.

Αυτό δίνει τη δυνατότητα εισαγωγής γραμμών (αν έχουμε πχ βάρδια Κυριακή) ή διαγραφής γραμμών (αν κάποιες ημερομηνίες πέφτουν σε διακοπές).

2) Για τη διευκόλυνση της προσθήκης και της διαγραφής γραμμών, στο φύλλο "Program" αφαίρεσα τις στήλες με τα ονόματα και τις συνολικές βάρδιες και τα στοιχεία τα πρόσθεσα στο φύλλο "Data"

3) Όταν επιλέγουμε προσωπικό για μία ημερομηνία, ο κώδικας υπολογίζει τις συνολικές βάρδιες, κάθε διαθέσιμου εργαζόμενου πριν από την ημερομηνία και επιλέγει τους 14 με τις λιγότερες βάρδιες.

Έτσι επιτυγχάνεται εξισορρόπηση στις βάρδιες.

Αν στον υπολογισμό του συνολικού αριθμού των βαρδιών, κάθε εργαζόμενου, υπολογίζονταν μόνο οι βάρδιες που γίνονται μέσα στη μονάδα, η εξισορρόπηση θα γίνονταν μέσα στη μονάδα και όσοι κάνουν βάρδιες και εκτός μονάδας θα μπορούσαν να θεωρηθούν αδικημένοι.

Για τη λύση αυτού του προβλήματος (αν θεωρηθεί πρόβλημα) πρόσθεσα στο φύλλο "Data" και τη στήλη "Βάρδιες αλλού".

Κάνε δοκιμές, πατώντας αρκετές φορές το κουμπί "Προσθήκη", για να διαπιστωθεί ότι το πρόγραμμα, λειτουργεί σωστά και μετά κάνε τις αναγκαίες προσαρμογές πχ στις ημερομηνίες, σε τίτλους στηλών, κλπ.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ProgramWork14ByDayData3.xlsm (131,8 KB, 11 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη kapetang : 01-02-23 στις 20:37. Αιτία: Διόρθωση κώδικα VBA
Απάντηση με παράθεση