Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα) (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/6444-programma-ergasias-efimeries-epitiriseis-katanomi-prosopikoi-se-bardies-posta.html)

kapetang 25-08-19 17:00

1 Συνημμένο(α)
Το επισυναπτόμενο αρχείο αποτελεί ένα συνδυασμό των τελευταίων αρχείων που ανεβάσαμε.

Είναι εύκολο να κάνεις τις συμπληρώσεις και τις μορφοποιήσεις που θέλεις.

stsepas 25-08-19 18:27

Eυχαριστώ πολυ!!!!!!!!!

stsepas 25-08-19 18:38

Παράθεση:

Αρχική Δημοσίευση από kapetang (Μήνυμα 30040)
Το επισυναπτόμενο αρχείο αποτελεί ένα συνδυασμό των τελευταίων αρχείων που ανεβάσαμε.

Είναι εύκολο να κάνεις τις συμπληρώσεις και τις μορφοποιήσεις που θέλεις.

Το τελευταίο αν γίνεται,
Αν γίνεται να τοποθετήσεις ένα κουμπί για εκτύπωση κατά μήνα για τον πίνακα ανακοινώσεων( κάπου το ειδα μεσα στο forum βασισμένο σε μακροεντολές)

kapetang 26-08-19 07:58

1 Συνημμένο(α)
Καλημέρα

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

stsepas 26-08-19 08:11

Απαιχτο!!!!!!!!
Σε ευχαριστώ πολυ !!!!!!!
Καλή σχολική χρονιά σε όλους τους συναδέλφους.

kapetang 26-08-19 09:55

Να είσαι καλά και καλές (δίκαιες...) βάρδιες.

geokotro 27-08-19 13:03

Γιώργο, το πρόγραμμα για τις εφημερίες στο Δημοτικό Σχολείο είναι άριστο.
Θα ήθελα, αν μπορείς, να ανεβάσεις ένα παρόμοιο με 20 ονόματα εκπαιδευτικών στο οποίο να υπάρχει εντολή συμπλήρωσης όλων των ημερομηνιών εφημερίας καθώς και εντολή που να διαγράφει τα δεδομένα εφημεριών. Ευχαριστώ πολύ και πάλι συγχαρητήρια.

kapetang 27-08-19 19:58

1 Συνημμένο(α)
Καλησπέρα

Γιώργο, δες το συνημμένο.

Το έχω προσαρμόσει για να καλύπτει μέχρι 20 άτομα.

Με τα υπόλοιπα, που δεν τα θεωρώ βασικά, δεν ασχολήθηκα.

Ίσως μια άλλη φορά.

geokotro 27-08-19 20:05

Γιώργο, ευχαριστώ πολύ για την άμεση ανταπόκριση. Να είσαι πάντα καλά.

geokotro 20-09-19 16:17

Εφημερίες
 
1 Συνημμένο(α)
Γιώργο, καλησπέρα. Θα ΄θελα, αν είναι δυνατό, στο πρόγραμμα που μου έστειλες με 20 εκπαιδευτικούς μια τροποποίηση. Κάθε ημέρα στη βάρδια να είναι 4 εκπαιδευτικοί.

kapetang 20-09-19 17:39

1 Συνημμένο(α)
Καλησπέρα

Γιώργο, δες το συνημμένο.

geokotro 21-09-19 16:27

Γιώργο, ευχαριστώ από καρδιάς για την άμεση ανταπόκριση. Να 'σαι πάντα καλά.

kapetang 21-09-19 17:14

Επίσης Γιώργο και καλή συνέχεια.

MacMark 17-06-21 08:35

Καλημέρα σας, ένα παρόμοιο excel με ένα άτομο ανά ημέρα βάρδιας και για έναν ολόκληρο μήνα, πως θα μπορούσα να το παραμετροποιήσω? Προσπάθησα να το αλλάξω το υπάρχον αλλά....το έκανα μαντάρα....Επιπλέον, μπορώ να ανεβάσω αυτό που έφτιαξα προκειμένου - αν δύναται - κάποιος να με βοηθήσει? Ευχαριστώ

kapetang 17-06-21 10:11

1 Συνημμένο(α)
Καλημέρα

Προσπάθησε να προσαρμόσεις το συνημμένο στο οποίο επιλέγεται 1 άτομο ανά ημέρα.

Να έχεις υπόψη σου ότι όταν θέλουμε να επιλέξουμε κάποιο άτομο για μία ημερομηνία (17/6/2021), το πρόγραμα υπολογίζει για κάθε εργαζόμενο το σύνολο των υπηεσιών πριν από αυτήν την ημερομηνία και επιλέγει αυτόν με τις λιγότερες.

MacMark 28-06-21 14:01

Αγαπητέ geokotro, για αρχή σε ευχαριστώ πολύ για την βοήθεια σου. Εν συνεχεία, θέλω να είναι μηνιαίο το πρόγραμμα, οπότε το "κόλλημα" για παραπάνω ημέρες στους εργαζομένους πως μπορεί να παραμετροποιηθεί?

kapetang 28-06-21 18:39

1 Συνημμένο(α)
Παράθεση:

Αρχική Δημοσίευση από MacMark (Μήνυμα 32925)
Αγαπητέ geokotro, για αρχή σε ευχαριστώ πολύ για την βοήθεια σου. Εν συνεχεία, θέλω να είναι μηνιαίο το πρόγραμμα, οπότε το "κόλλημα" για παραπάνω ημέρες στους εργαζομένους πως μπορεί να παραμετροποιηθεί?

Καλησπέρα MacMark

1) Ο geokotro επισκέφτηκε τελευταία φορά το φόρουμ στις 3/11/2020, δεν ξέρω πως σε βοήθησε.

2) Προσπαθώ να βοηθήσω, αλλά δε μπορώ να καταλάβω τι ακριβώς θέλεις.

Δεν ξέρω, αν διάβασες τις οδηγίες που συνοδεύουν την εφαρμογή, αν τις κατάλαβες, αν δοκίμασες την εφαρμογή και που ακριβώς δε σε καλύπτει.

Δε μπορώ να καταλάβω γιατί δεν πατάς πχ 30 φορές το κουμπί [προσθήκη], για να ορίσεις την υπηρεσία για 30 μέρες.

Κάνε δοκιμές στο συνημμένο για να δεις πως δουλεύει.

Στη συνέχεια, αν χρειάζεται κάποια προσαρμογή θα πρέπει με λεπτομέρεις (όχι τηλεγραφικά) και σαφώς να περιγράψεις τι θέλεις.

Η συγκεκριμένη εφαρμογή είναι προσαρμοσμένη σε σχολείο που υπάρχει εβδομαδιαίο πρόγραμμα.

Εσύ μπορεί να αντιμετωπίζεις μια άλλη περίπτωση.

Φυσικά θα βοηθούσε αν ανέβαζες και κάποιο αρχείο με αυτό που ζητάς.

MacMark 29-06-21 12:38

1 Συνημμένο(α)
Αγαπητέ kapetang καλημέρα,

Ο δαίμων του τυπογραφείου (με άλλα λόγια αλαλούμ στο copy – paste του ονόματος) έκανε το θαύμα του.

Τα ευχαριστώ, όπως καταλαβαίνεις, πάνε όλα σε εσένα που με βοήθησες.

Έχω διαβάσει τις οδηγίες, χρήσιμες και κατατοπιστικές.

Το πρόβλημα, εστιάζεται όχι στις ημέρες που αναπαράγει η εφαρμογή, μια χαρά είναι αυτό. Το πρόβλημα εστιάζεται σε ένα άλλο σημείο: Στον Πίνακα «διαθέσιμοι για υπηρεσία» αφού έχει επιλογή 5 ημερών (Δευτέρα – έως Παρασκευή), αν επιλέξω το όνομα1 (π.χ.) ότι δεν μπορεί τη Δευτέρα να κάνει εφημερία, επειδή την εφαρμογή την τρέχω μηνιαία, όλες τις Δευτέρες δεν μου τον εμφανίζει για υπηρεσία. Ενώ θα με βοηθούσε πολύ να επιλέγω ποιες ημέρες τον μήνα δεν μπορεί να κάνει υπηρεσία ο συνάδελφος.

Για τον «τηλεγραφικό» τρόπο επικοινωνίας, επισυνάπτω και φωτογραφίες, προκειμένου να τον αποφύγουμε.

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

kapetang 29-06-21 14:03

Καλησπέρα

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

1) Πόσοι είναι οι εργαζόμενοι από τους οποίους θα γίνεται η επιλογή.
Η εφαρμογή επιτρέπει μέχρι 20. Αυτό σε καλύπτει.

2) Στις ημερομηνίες, οι τύποι που υπάρχουν, αποκλείουν τα Σαββατοκύριακα.

Αν θέλουμε μεγαλύτερη ευελιξία, μπορώ να αφαιρέσω τους τύπους και οι ημερομηνίες να καταχωρούνται. Αυτό στο Excel γίνεται πολύ εύκολα.

3) Θα αφαιρέσω το ωρολόγιο (εβδομαδιαίο) πρόγραμμα και η επιλογή των διαθέσιμων θα γίνεται με τα ChechBox.

Διευκρινίζω κάτι που μάλλον δεν κατάλαβες:

Ας υποθέσουμε ότι ορίζουμε την υπηρεσία για 30 μέρες.

Για την 1η μέρα, με τη βοήθεια των chechBox και με βάση τις πληροφορίες μας για το προσωπικό (άρρωστοι, αδειούχοι κλπ) , ορίζουμε τους διαθέσιμους και ακολούθως πατάμε το κουμπί [Προσθήκη], για να επιλέξουμε εργαζόμενο γι’ αυτή τη μέρα.

Για τη 2η μέρα, πάλι με τα ChechBox, ορίζουμε τους διαθέσιμους και πατούμε το κουμπί.

Αυτό θα γίνει 30 φορές.

MacMark 02-07-21 06:51

Καλημέρα kapetang,

Εκτιμώ την βοήθεια σου και παραθέτω τις απαντήσεις στα ερωτήματα σου:

α) Δεν είμαστε παραπάνω από 20, αλλά επειδή πιστεύουμε στα θαύματα, ας βάλουμε 30 εργαζομένους.

β) Θα χρειαστούμε (σπάνια μεν αλλά το έχουμε ζήσει κι αυτό), να υπάρχουν και Σαββατοκύριακα (μπορεί να χρησιμοποιηθεί αυτή η εφαρμογή και για άλλες δραστηριότητες μας).

γ) Ναι συμφωνώ, η επιλογή των διαθέσιμων θα γίνεται με τα ChechBox.

δ) Τα υπόλοιπα, τα έχω καταλάβει και χρησιμοποιήσει ήδη, με έχεις βοηθήσει πολύ!

ε) Ερώτηση, εκεί στην εκτύπωση, δύναται να φτιάξουμε ένα πιο «γραφικό» περιβάλλον? Κάτι πιο όμορφο? Αν μου πεις τι πρέπει να κάνω, μπορώ να το παραμετροποιήσω κι εγώ με τις οδηγίες σου!

kapetang 02-07-21 10:29

1 Συνημμένο(α)
Καλημέρα

1) Αφού καλύπτεσαι, άφησα 20 εργαζόμενους.

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

2) Για μεγαλύτερη ευελιξία συμπληρώνονται όλες ημερομηνίες.

Ο χρήστης (πριν την επιλογή) θα πρέπει να διαγράφει τις γραμμές με τις άχρηστες ημερομηνίες.


3) Η επιλογή των διαθέσιμων γίνεται με τα CheckBox.

5) Η εκτύπωση παρέμεινε η ίδια.

Με τα καλλιτεχνικά δεν τα πάω καλά.

pant 04-05-22 08:56

Βοήθεια σε πρόγραμμα επιτηρήσεων
 
1 Συνημμένο(α)
Καλημέρα και χρόνια πολλά
Προσπαθώ να προσαρμόσω το πρόγραμμα του Θανάση (gr8styl) για επιτηρήσεις του σχολείου.
Πολύ καλό για να έχεις ένα μπούσουλα και αξιόλογη δουλειά , όμως συνάντησα ένα πρόβλημα μετά από τις παρεμβάσεις που έκανα
1. τις Παρασκευές δεν συμπληρώνει καινούργια ονόματα
και παράκληση
ΕΑΝ γίνετε να υπάρχει ισοκατανομή επιτηρήσεων (στήλη βάρδιες) μεταξύ των συναδέλφων
ευχαριστώ Γρηγόρης

kapetang 05-05-22 10:05

Καλημέρα

Για τον καθορισμό των βαρδιών προτάθηκαν 2 τρόποι.

Στον ένα, του Θανάση, δε χρησιμοποιείται κώδικας (VBA) και στον άλλο χρησιμοποιείται.

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

Θα μπορούσες να δεις (έστω με λιγότερα άτομα) πως δουλεύουν και αν σε εξυπηρετούσαν να ζητήσεις τις κατάλληλες προσαρμογές.

pant 06-05-22 08:21

1 Συνημμένο(α)
καλημερα

Γιώργο σε ευχαριστώ για το ενδιαφερον
Τελικα ειδα οτι με vba ειναι πιο προσιτό με μικρες προσθέσεις εαν μπορεις
1. επεκταση ημερών στα < Μη διαθεσιμα σύμφωνα με το ωρολογιο προγραμμα > αντιστοιχα με τις ημερομηνιες στην στηλη j
2. Μεταφορά απο Φύλλο1 εισηγήσεις (ονομα-ημερομηνια) στο Program στις αντοιστιχες θεσεις (ονομα-ημερομηνια) τοποθετοντας το <1> στο < Μη διαθεσιμα σύμφωνα με το ωρολογιο προγραμμα > . Ελευθερη επιλογη με την 2η βαρδια (εαν θελεις να την υπολογίζεις ή οχι)

το Διαθεσιμοτητα δεν καταλαβα πως λειτουργει σε σχεση με το < Μη διαθεσιμα σύμφωνα με το ωρολογιο προγραμμα >
ευχαριστω Γρηγορης

kapetang 06-05-22 12:38

1 Συνημμένο(α)
Καλησπέρα

Γρηγόρη κάνε δοκιμές στο συνημμένο.

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

kapetang 10-05-22 15:24

1 Συνημμένο(α)
Καλησπέρα

Ο συμπιεσμένος φάκελος, που επισυνάπτεται, περιέχει 2 αρχεία Excel.

Στα αρχεία αυτά επιλέγονται, από το διαθέσιμο προσωπικό (ως επιτηρητές) 14 (ο αριθμός αλλάζει εύκολα) άτομα ημερησίως.

1) Το αρχείο ProgramWork14ByDayWeek .xlsm είναι κατάλληλο για την περίπτωση που η διαθεσιμότητα εξαρτάται από τη μέρα της εβδομάδας (πχ κάποιοι πχ τη Δευτέρα έχουν άλλη απασχόληση και αδυνατούν να είναι επιτηρητές).

2) Στο αρχείο ProgramWork14ByDayData .xlsm υπάρχει ξεχωριστό φύλλο (Data), όπου σε κάθε κελί που καθορίζεται από τη γραμμή του εργαζόμενου και τη στήλη της ημερομηνίας, αναγράφεται ο λόγος του κωλύματος.

Εδώ οι διαθέσιμοι προκύπτουν από τα στοιχεία του φύλλου Data και συνεπώς υπάρχει μεγαλύτερη ευελιξία.

3) Η επιλογή γίνεται έτσι ώστε να έχουμε εξισορρόπηση επιτηρήσεων και να αποτρέπονται οι αδικίες

pant 11-05-22 04:33

Γιώργο καλημερα
Τελικά το προγραμμα μας βοήθησε αρκετα ωστε να βγαλουμε επιτηρητες
ευχαριστω για την βοήθεια

pant 11-05-22 04:49

Γιωργο συγνωμη δεν ειδα την καινουργια εκδοση που ανεβασες

Καταρχήν διόρθωσεις το προβλημα που ειχα με την δευτερη βαρδια
Δευτερον εφαρμοζετε για ολες τις ημερες των εξετάσεων με εξισορόπηση, ευχαριστω

Ενα προβλημα που εντοπίσαμε ειναι οτι καποιες ημερες δεν θελω 14 επιτηρητες αλλα 5 ή 8 ή 9
μπορει να μπει μια επιλογη ανα ημερα ????

ευχαριστω

pant 11-05-22 04:58

μπορεις να βαλεις pull down στο DATA για επιλογη σε καθε κελί (ΕΙΣΗΓΗΤΗΣ(18:00-20:00 ), ΕΙΣΗΓΗΤΗΣ(20:00-22:00 )ΑΔΕΙΑ,ΑΝΝΑΡΩΤΙΚΗ )

kapetang 11-05-22 20:34

1 Συνημμένο(α)
Καλησπέρα

Γρηγόρη, δες το συνημμένο.

pant 12-05-22 08:54

ΚΑΤΑΠΛΗΚΤΙΚΟΣ
Σε ευχαριστω πολυ για την προσπαθεια . θα το τρεξουμε και βλέπουμε

Γρηγόρης

kapetang 12-05-22 09:19

Να είσαι καλά και καλή συνέχεια.

charasara 25-01-23 21:47

Καλησπέρα
Παιδεύομαι αρκετό καιρό με τις εφημερίες και πραγματικά θα ήθελα ένα πρόγραμμα να βοηθήσει την κατάσταση.
Έχω 28 εκπαιδευτικούς 2 βάρδιες και 7πόστα.
Μπορεί να προσαρμοστεί;

kapetang 26-01-23 12:47

1 Συνημμένο(α)
Καλησπέρα

Επειδή κάθε μέρα απαιτούνται 2 (βάρδιες)*7 (πόστα) = 14 άτομα, θα μπορούσες να προσαρμόσεις το συνημμένο αρχείο.

1) Να συμπληρώσεις τα σωστά ονόματα στο φύλλο Data

2) Να καθορίσεις τις περιπτώσεις απουσίας στο φύλλο Data

3) πιθανόν να θέλεις να αλλάξεις και τις επικεφαλίδες βάρδια και πόστο σε κάτι πιο συγκεκριμένο

Επειδή το αρχείο περιέχει κώδικα VBA, θα πρέπει να ενεργοποιήσεις τις μακροεντολές.

Κάνε δοκιμές πατώντας το κουμπί Προσθήκη στο φύλλο Program.

Κάθε πάτημα συμπληρώνει μία ημερομηνία.

charasara 27-01-23 11:15

Ευχαριστώ πολύ για την άμεση απάντηση!!!
Μας βοηθάς τόοοοοσο πολύ που μπορείς και το προσαρμόζεις στις ανάγκες του καθενός.
Θα το δοκιμάσω..

kapetang 27-01-23 13:44

Να είσαι καλά και καλή συνέχεια.

charasara 30-01-23 14:26

Καλησπέρα
Το δοκίμασα όμως έχω κάποιες απορίες..
Πέρασα τα ονόματα στο φύλλο Data και τις περιπτώσεις κωλύματος του καθενός, όμως όταν πατάω στο φύλλο Program στο κουμπί "Προσθήκη" ξεκινάει τα ονόματα και τα βάζει από τη στήλη F πόστο2 και όχι από τη στήλη Ε πόστο1.
Επίσης αν θέλουμε να ορίσουμε εφημερίες 5 ημερών πρέπει να πατάμε 5 φορές Προσθήκη.
Εγώ όσες φορές και να πατήσω Προσθήκη απλώς μου αλλάζει τις εφημερίες της πρώτης ημερομηνίας (γραμμή 4).
Τι κάνω λάθος;

kapetang 30-01-23 16:18

Καλησπέρα

1)
Δεν ξέρω γιατί μετατοπίστηκε η γραμμή των εργαζόμενων 1 στήλη δεξιά.

2)
Όταν πατάμε το κουμπί, αυτοί που επιλέγονται για εργασία, θα μπουν στην γραμμή της 1ης ημερομηνίας στην οποία δεν ορίστηκαν βάρδιες.

Αυτό επιβάλλει τη συμπλήρωση των ημερομηνιών πριν από το πάτημα.

Καλύτερα να ανεβάσεις ένα δείγμα του βιβλίου.

charasara 30-01-23 22:00

1 Συνημμένο(α)
Ευχαριστώ!

kapetang 31-01-23 00:18

1)
Μια λύση είναι τα άτομα που είναι σε άλλο σχολείο να θεωρηθούν γενικά μη διαθέσιμα.
Η λύση αυτή θέλει μικρή προσαρμογή.
Μπορεί να εφαρμοστεί αν οι διαθέσιμοι είναι σε κάθε ημερομηνία >=14.

2)
Αυτό που προτείνεις, απαιτεί περισσότερη δουλειά για την προσαρμογή (ουσιαστικά να βρω μια νέα λύση).

Ενημέρωσέ μας για το τι ισχύει και θα το κοιτάξω.


Η ώρα είναι 15:51.

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


Search Engine Optimization by vBSEO 3.3.2