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/6653-epilogi-mina-kai-imerominies.html)

stsepas 21-11-25 08:11

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

ChrisGT7 21-11-25 08:25

Καλημέρα Σταύρο,

Απλά για επιβεβαίωση:

Θα δεσμευτεί το εύρος Ε1:Ε2 για την επιλογή του μήνα και το F1:F2 για την επιλογή του έτους. Θα πρότεινα πάντως δέσμευση μονού κελιού (π.χ. Ε2) και όχι δύο.

Μόλις επιλέγεται μήνας ή έτος, τα κίτρινα κελιά των ημερών θα συμπληρώνονται μόνον οι εργάσιμες ημέρες στη μορφή που υπάρχει στο αρχείο (π.χ. 1 2 3 4 5{νέα_γραμμή} 8 9 10 κ.ο.κ.).

Οι αργίες θεωρούνται εργάσιμες και πρέπει να εμφανίζονται κανονικά;

Θεωρώ με κώδικα VBA είναι πιο εύκολο να γίνει το ζητούμενο.

stsepas 21-11-25 11:34

Παράθεση:

Αρχική Δημοσίευση από ChrisGT7 (Μήνυμα 36518)
Καλημέρα Σταύρο,

Απλά για επιβεβαίωση:

Θα δεσμευτεί το εύρος Ε1:Ε2 για την επιλογή του μήνα και το F1:F2 για την επιλογή του έτους. Θα πρότεινα πάντως δέσμευση μονού κελιού (π.χ. Ε2) και όχι δύο.

Μόλις επιλέγεται μήνας ή έτος, τα κίτρινα κελιά των ημερών θα συμπληρώνονται μόνον οι εργάσιμες ημέρες στη μορφή που υπάρχει στο αρχείο (π.χ. 1 2 3 4 5{νέα_γραμμή} 8 9 10 κ.ο.κ.).

Οι αργίες θεωρούνται εργάσιμες και πρέπει να εμφανίζονται κανονικά;

Θεωρώ με κώδικα VBA είναι πιο εύκολο να γίνει το ζητούμενο.

Αύτό θέλουμε . Οι επίσημες αργίες είναι αργίες και για τις καθαρίστριες των σχολείων. Το 1 2 3 4 κτλ είναι η ημερομηνίες του μήνα

ChrisGT7 21-11-25 13:08

1 Συνημμένο(α)
Σπύρο,

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

Στο Ε2 επιλέγεις το μήνα και στο F2 (όνομα ΕΤΟΣ) το έτος (ακέραιοι αριθμοί από 1900 μέχρι 9999). Το ΕΤΟΣ ενημερώνει επίσης τις αργίες στο αντίστοιχο φύλλο.

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

Η γραμματοσειρά στα κίτρινα κελιά είναι η Courier New για καλύτερη οπτικά ταξιθέτηση των αριθμών.

Στο φύλλο ΑΡΓΙΕΣ συμπληρώνουμε τις αργίες (επίσημες και τοπικές) που θέλουμε να εξαιρούνται.

Συστήνεται οι αργίες να γράφονται σε μορφή τύπου για να συμπεριλαμβάνονται αυτόματα στις εξαιρέσεις.

stsepas 21-11-25 21:32

Σε ευχαριστώ πολύ!!!!!Αν γίνεται στα κελιά με τις ημερομηνίες να εμφανίζεται η ημερομηνία της πρώτης εργάσιμης κάθε εβδομάδας ενώ στο τελευταίο κελί που λέει ΗΜΕΡΑ να εμφανίζεται η πρώτη εργάσιμη του μήνα

ChrisGT7 22-11-25 13:36

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

Ελπίζω να πέτυχα το ζητούμενό σου.

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

Στο φύλλο ΑΡΓΙΕΣ, οι στήλες D:H είναι βοηθητικές του φύλλου ΠΡΟΓΡΑΜΜΑ για να φιλτράρουν τις 5 πρώτες εργάσιμες ημέρες του επιλεγμένου μήνα. Περιέχουν τύπους, οπότε δεν πρέπει να πειραχθούν. Φυσικά μπορείς να τις κρύψεις για να μην είναι σε πρώτη θέα.

Με ενημερώνεις αν μου ξέφυγε κάτι.

stsepas 22-11-25 20:38

Όλα ΟΚ. Σε ευχαριστώ για το χρόνο σου.

stsepas 29-12-25 09:41

Επιλογή μήνα και ημερομηνίες
 
1 Συνημμένο(α)
Καλημέρα, Πριν από μέρες μου έφτιαξες το συνημμένο αρχείο. Όλα λειτουργούν σωστά, αλλά όταν κάνω αλλαγές πχ. στο μήνα, δεν αποθηκεύει. Ισως φταίει που έχω office 2007. Δεν μπορώ να βάλω νεότερη έκδοση, γιατί το μαθητολόγιο του σχολείου έχει σχεδιαστεί σε Access 2007 και σε νεώτερη έκδοση δεν θα δουλεύει και αυτό είναι καταστροφικό , αφού έχω αρχείο 20 ετών. Μπορεί να γίνει κάτι;;;; Aν όχι δεν πειράζει, τυπώνω το μήνα που θέλω και δεν σώζω τις αλλαγές

ChrisGT7 29-12-25 14:20

Καλησπέρα Σταύρο,

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

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

Θα σας πρότεινα πάντως να αναβαθμίσετε την έκδοση του Office σε κάποια νεότερη. Αρχεία που σχεδιάζονται σε παλαιότερες εκδόσεις δεν έχουν πρόβλημα στις νέες. Το αντίστροφο δημιουργεί προβλήματα, δηλαδή αρχεία νέων εκδόσεων σε παλαιότερες (π.χ. νεότερες συναρτήσεις του Excel δε λειτουργούν σε παλιότερες). Αλλά σίγουρα πριν προβείτε σε αναβάθμιση, θα πρέπει να ανοίξετε ένα αντίγραφο αρχείου σε κάποιον υπολογιστή που έχει νεότερη έκδοση Access, ώστε να επιβεβαιώσετε ότι λειτουργεί πλήρως και σωστά.

stsepas 29-12-25 21:43

Το πρόβλημα το ξεπέρασα μερικώς. Καλά θα ήταν, αν μπορείς, να το βλέπαμε μαζί με απομακρυσμένη βοήθεια, όταν πάω σχολείο. Τα σχολεία ανοίγουν 08/01/2026. Δεν ξέρω αν σε βολεύει με τη δουλειά σου πρωινές ώρες; Ωρες λειτουργίας σχολείου 08.15΄- 13.15΄.


Η ώρα είναι 19:44.

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


Search Engine Optimization by vBSEO 3.3.2