[VBA] Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα)

[kapetang]

Καλησπέρα

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

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

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

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

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

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

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

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

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

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

Κάνε δοκιμές, πατώντας αρκετές φορές το κουμπί "Προσθήκη", για να διαπιστωθεί ότι το πρόγραμμα, λειτουργεί σωστά και μετά κάνε τις αναγκαίες προσαρμογές πχ στις ημερομηνίες, σε τίτλους στηλών, κλπ.

[charasara]

Γιατί όταν πατάω Προσθήκη μου βγάζει ένα κινέζικο μήνυμα; και δεν δινει αποτελεσμα;

[kapetang]

Στην ημερομηνία πχ 31/1/2023, από τα 28 άτομα μόνο 7 είναι διαθέσιμα, σε άλλες είναι και λιγότερα.

Πως από τους 7 διαθέσιμους θα πάρουμε 14;

Όπως γράφω οι διαθέσιμοι, κάθε μέρα, πρέπει να είναι >=14.

Το μήνυμα γράφει: «Δεν επαρκούν οι διαθέσιμοι», το βγάζει κινέζικα επειδή πιθανόν δεν υπάρχει κάποια γραμματοσειρά στον υπολογιστή σου.

Είναι περίεργο πάντως από τα 28 άτομα τα περισσότερα άτομα να κάνουν εξωτερικές βάρδιες

[Δημος3]

Γεια σου Γιώργο. Είμαι δάσκαλος δημοτικού και θέλω να εκδώσω πρόγραμμα εφημεριών με διαθέσιμους 12 μίνιμουμ δασκάλους οι οποίοι θα μπαίνουν σε 2 ζώνες των 4 ατόμων με διαφορετικά πρόσωπα η κάθε ζώνη σε ημερήσια βάση. Θέλω και κριτήριο καθορισμού κολλήματος στη μία ή και στις δύο ζώνες για κάποιους σε ημερήσια βάση. Ενδιαφέρομαι για εβδομαδιαία τουλάχιστον έκδοση του προγράμματος. Υπάρχει έτοιμη κάποια εφαρμογή σου; Σε ευχαριστώ εξαρχής!

[caudillo]

Καλησπέρα σε όλους.
Θα ήθελα να κάνω μια ερώτηση σχετικά με το πρόγραμμα εφημεριών του kapetang.
Είναι δυνατόν να ομαδοποιηθούν οι καθηγητές ανά χώρο εφημερίας, ώστε το πρόγραμμα να επιλέγει συγκεκριμένους καθηγητές για κάθε χώρο εφημερίας;
Είμαστε ένα μεγάλο σχολικό συγκρότημα και οι καθηγητές συνήθως κινούνται σε συγκεκριμένους χώρους. Οπότε το να τους ζητήσουμε να κάνουν εφημερίες αλλού, θα δημιουργήσει προβλήματα και γκρίνιες.
Ευχαριστώ.

[geirge]

Καλησπέρα θα ήθελα την πολύτιμη βοήθεια σας, φαντάζομαι αυτό που θέλω είναι αρκετά δύσκολο αλλά ήθελα να κάνω μια ερώτηση μπας και. Έκανα κάποιες προσπαθείς αλλά μάταια. Έφτιαξα αυτό το excel για να βγάζω κάποιες βάρδιες. Έχω αλλάξει τα ονόματα για ευνόητους λόγους. Έχω 200 άτομα, έχω φτιάξει λίστες που θα κάνω καταμετρήσει των βαρδιών όπως θα δείτε και στο αρχείο, έχω κάνει 12 φύλλα εργασίας όσοι είναι και οι μήνες οπός θα δείτε. Σε ένα άλλο φύλλο στο (ΕΙΔΟΣ) έχω γράψει τα ειδή των βαρδιών (24 ωρών) και (8 ωρών). θέλω να περνάω μέσα στις μέρες τις αδεείς χειροκίνητα και έπειτα να περνάει αυτόματα κάθε μηνά τις βάρδιες απλωμένα όσο γίνετε για τον κάθε ένα βάσει τις ποσότητάς πάντα πχ μια 24 ωρη και μια 8 ωρη κάθε βδομα. Έχω 200 άτομα, κάθε μέρα πρέπει να μπαίνουν οι 24 ώρες βάρδιες και οι 8 ώρες, όλες αλλά η κάθε μια από μια φορά. Πχ 46 24 ώρες και 29 8 ώρες. Αρά 46 24 ώρες * 31 μέρες 1.426 βάρδιες δια τα 200 άτομα κάνει 7,13 στον κάθε ένα άτομο τον μηνά. Και 29 8 ώρες * 31 = 899 το μηνά δια 200 άτομα 4,5 το μήνα για τον κάθε ένα. Πρώτα μπαίνουν οι 24 ώρες και μετά οι 8 ώρες. Μετά από κάθε 24 ωρή έχουμε ρεπό αρά κενό, πριν από την 24 ωρη μπορούμε να βάλουμε μόνο πρωινή 8 ωρη, άμα στραβώσει τίποτα μπορούμε να κάνουμε και συνεχόμενες 8 ώρες, όχι ώμος από πρωινή σε βραδύνει η το ανάποδο.

[kostakislarisa]

Καλησπέρα, σαν νέος στο φόρουμ σας μπορώ να πω ότι είναι εξαιρετικό! Θα ήθελα τη βοήθειά σας. Προσπαθώ να βγάλω βάρδιες για 5 άτομα στη δουλειά. Κάθε φορά είναι 1 άτομο στη βάρδια και είναι 3 βάρδιες ημερησίως (7:00-15:00, 15:00-23:00, 23:00-07:00) με 2 ρεπό την εβδομάδα. Προσπάθησα αλλά δεν τα κατάφερα με τα excel που βρήκα σε άλλα post.. Μπορεί κάποιος να με βοηθήσει;

[kapetang]

Καλημέρα

Πιστεύω ότι θα μπορούσες να χρησιμοποιήσεις το πρόγραμμα εργασίας, που παρουσιάζεται αναλυτικά στον παρακάτω σύνδεσμο:

https://www.ms-office.gr/forum/excel...ies-posta.html

[kostakislarisa]

Καλησπέρα, είδα ότι είναι για 2 βάρδιες. Θα το μελετήσω καλύτερα μέσα στο ΣΚ και αν "κολλήσω" κάπου θα επανέλθω. Σε ευχαριστώ για την απάντηση σου! Καλό βράδυ και καλή συνέχεια!

[antonis2024]

Γειά σας καί καλώς σάς βρήκα.Θά ήθελα νά μέ βοηθήσετε νά φτιάξω ( κάποιος φίλος μέ τήν βοήθειά του εάν φτιαχτεί τό παρακάτω ) ή εξής φόρμα “αυτόματης συμπλήρωσης βαρδιών εργαζομένων” εάν μπορούσαμε νά τήν ονομάσουμε έτσι.
Exουμε ένα γραφείο κίνησης πού εργάζεται 31 ημέρες η’ 30 ημέρες ανάλογα μέ τίς ημέρες πού έχει ό κάθε μήνας.

1.__Σέ αυτό τό γραφείο κίνησης εργάζονται 4 υπάληλοι.

2.__Ο Κάθε υπάληλος πρέπει νά εργάζεται 8 ώρες στήν βάρδιά του.

3.__Δηλ.έχουμε 3 βάρδιες ημερησίως όλο τό 24ωρο.(Πρωί : 06.00 -14.00 / Mεσημέρι : 14.00 -22.00 / Bράδυ : 22.00 – 06.00)

4.__O Kάθε υπάληλος θέλουμε νά εργάζεται κάθε εβδομάδα (5) ημέρες καί νά έχει και (2) ρεπό κάθε εβδομάδα.

5.__Ο Κάθε υπάληλος θέλουμε να εργάζεται εβδομαδιαίως ώς εξήs : (3) ημέρες πρωί / (2) ημέρες βράδυ / καί νά έχει και (2) ρεπό στην κάθε εβδομάδα.

6.__Η’ ό κάθε υπάληλος νά εργάζεται εβδομαδιαίως ώς εξήs : (3) ημέρες μεσημέρι / (2) ημέρες βράδυ / καί νά έχει και (2) ρεπό στην κάθε εβδομάδα.

7.__Kαί σέ κάποιο κελί νά φαίνονται οί συνολικά εργάσιμες ημέρες του μήνα γιά κάθε υπάληλο

Εάν μπορούν νά γίνουν όλα τά παραπάνω,εάν καί όποτε αποφασίσουμε μπορούμε νά αλλάξουμε π.χ τίς ημέρες εργασίας ? από (5) ημέρες κάθε εβδομάδα σέ (4) ημέρες κάθε εβδομάδα ? ή γενικότερα κάποιες άλλες αλλαγές ?


Σάς Ευχαριστώ Πολύ.