Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Γενικά] Αυτόματο Ημερολογιο

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 07-07-19, 13:27
Το avatar του χρήστη christakos
Όνομα: Χρήστος
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-11-2018
Μηνύματα: 6
Προεπιλογή Αυτόματο Ημερολογιο

Καλησπέρα/Καλημέρα ανάλογα πότε βλέπετε το μήνυμα

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

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

Υπόψιν, δεν έχω πολλές γνώσεις, και στο ίντερνετ έψαξα, και στο forum σε post με σχέση ημερολόγια.....

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

edit μηνύματος:
Ξέχασα να πω στο έγγραφο xlsx και για να μην βάζω νέο συνημμένο, το αναφέρω εδώ με έντονα γράμματα,
στο άθροισμα, αντί για τον αριθμό 1, πως γίνετε με γράμμα?? π.χ. το ( x ) δλδ αντι για 1+1=2 σε χ+χ=2? δεν ξέρω αν έχει διαφορά ελληνικό με αγγλικό χαρακτήρα.........
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx ergasiess.xlsx (107,7 KB, 22 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 08-07-19, 09:19
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 241
Προεπιλογή

Καλημέρα Χρήστο,

Ελπίζω να σε καλύπτει όσο γίνεται περισσότερο το επισυναπτόμενο αρχείο.

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

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

Το κελί B1 είναι η "καρδιά" του φύλλου. Πληκτρολογώντας το επιθυμητό έτος, αλλάζουν όλες οι ημερομηνίες, οι επίσημες αργίες και η χρωματολογία του φύλλου (λευκό = εργάσιμη ημέρα, γκρι = σαββατοκύριακο, ανοικτό πράσινο = επίσημη αργία).

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

Θεωρώ ότι η επίσημη αργία υπερισχύει του σαββατοκύριακου. Έτσι, αν μια ημέρα είναι ταυτόχρονα σαββατοκύριακο και επίσημη αργία, τότε το χρώμα θα είναι ανοικτό πράσινο, ενώ στα σύνολα υπολογίζεται αποκλειστικά και μόνο στις ΕΠΙΣΗΜΕΣ ΑΡΓΙΕΣ.

Για τους μήνες που έχουν 30 ημέρες, απλά χρωμάτισα την 31η ημέρα με σκούρο μπλε, ενώ για το Φλεβάρη χρησιμοποίησα μορφοποίηση υπό όρους έτσι ώστε η 29η ημέρα να χρωματίζεται όταν το έτος δεν είναι δίσεκτο. Μ' αυτόν τον τρόπο, όλοι οι μήνες θα είναι ομοιόμορφοι στην εμφάνιση.

Αν χρειάζεσαι ιστορικό ανά έτος, απλά αντιγράφεις το φύλλο ΗΜΕΡΟΛΟΓΙΟ και αλλάζεις τα δεδομένα για το νέο έτος.

Στο φύλλο ΑΡΓΙΕΣ - ΕΡΓΑΖΟΜΕΝΟΙ υπάρχουν δύο πίνακες:

1. Στον πίνακα με τις αργίες μπορείς να πειραμαζίζεται με τις εορτές χωρίς να επηρεάζεται το ΗΜΕΡΟΛΟΓΙΟ.
2. Στον πίνακα με τους εργαζόμενους προσθέτεις/τροποποιείς τους εργαζόμενους. Απ' αυτή τη λίστα μπορείς να επιλέγεις στο ΗΜΕΡΟΛΟΓΙΟ τον αντίστοιχο εργαζόμενο στον εκάστοτε μήνα.

Αν πιστεύεις ότι οι προτάσεις μου δε σε καλύπτουν, τότε βλέπουμε τι μπορούμε να κάνουμε.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx ΑΥΤΟΜΑΤΟ ΗΜΕΡΟΛΟΓΙΟ.xlsx (45,9 KB, 37 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 08-07-19, 15:48
Το avatar του χρήστη christakos
Όνομα: Χρήστος
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-11-2018
Μηνύματα: 6
Προεπιλογή

Καλησπέρα Χρήστο, με αυτά που είπες αντίστοιχα θα σου απαντήσω, με την ίδια σειρά

Ναι με κάλυψε πολύ περισσότερο από ότι θα το σκεφτόμουνα έτσι.

Το ότι δεν χρησιμοποίησες μακροεντολή είναι ότι καλύτερο στην περίπτωση που ανοίξει το αρχείο σε office 2007. Τον ένα μήνα τον έβαλα διότι σε αυτόν επάνω ξεκίνησα την δημιουργία, απλά το συγκεκριμένο φύλλο έγινε αποκλειστικά για την βοήθεια που ζήτησα, ναι να ζητάμε βοήθεια, ναι υπάρχουν πρόθυμοι, αλλά βοήθεια στα τυφλά χωρίς να καταλάβει ο άλλος δεν γίνετε. Ο αριθμός εργαζομένων ναι είναι μικρός αλλά κάποια στιγμή θα αυξηθεί, καλοκαίρι - Χριστούγεννα κτλ. Όσο για τα κουμπιά περί εκτυπώσεων θα σου πω στο τέλος των απαντήσεων.

Οι πέντε κενές γραμμές είναι υπέρ αρκετές από τις τρεις που ήθελα.

Ναι η αλλαγή του έτους και τα χρώματα επίσης όλα εφικτά.

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

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

Για τους Μήνες με 30 - 31 και τον Φεβρουάριο πολύ ωραίο έτσι όπως το έκανες, ειλικρινά το ανά δίσεκτο 28-29 μου ξέφυγε τελείως

Το ιστορικό ανά έτος, ναι κατάλαβα τι εννοείς και ήταν το τελευταίο που με απασχολούσε

Στο φύλλο ΑΡΓΙΕΣ - ΕΡΓΑΖΟΜΕΝΟΙ ναι κατάλαβα τι εννοείς.....



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

------------------------------------------------------------------------------------------------------------------------------------------
Και τώρα πάμε σε αυτά που θα σου ζητήσω εφόσον μπορείς και θέλεις.........

1) Ναι οι προτάσεις σου υπερκαλύπτουν σε σχέση με αυτά που ζήτησα,

2) Αυτό που θέλω να σου ζητήσω είναι τα εξής:
α) Ένα κουμπί σε κάθε μήνα για να τυπώνεται, και ένα κουμπί για να επιλέγω ποιους θέλω (ήταν πολύ καλή η ιδέα σου, σε office 2007 θα εχει πρόβλημα?? εγω του 2016 έχω, αλλά γενικά ρωτάω)
β) Και να με βοηθήσεις στην βάση.

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

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

αναμένω λοιπόν την κίνηση σου, πάντως όποια και αν είναι αυτή, το ευχαριστώ είναι λίγο
Απάντηση με παράθεση
  #4  
Παλιά 09-07-19, 00:10
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 241
Προεπιλογή

Καλησπέρα Χρήστο,

Χαίρομαι που σε κάλυψα στις περισσότερες ανάγκες σου.

Όσον αφορά τις νέες αλλαγές, έχουμε:

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

2. Όποτε χρειάζεσαι να προσθέτεις νέους εργαζόμενους σε κάθε μήνα, κάνε τα εξής βήματα:
- Επέλεξε μια ολόκληρη γραμμή ανάμεσα στο ΟΝΟΜΑΤΕΠΩΝΥΜΟ και ΣΥΝΟΛΑ.
- Δεξί κλικ πάνω της και Εισαγωγή.
- Τέλος, αντέγραψε τους τύπους των στηλών ΣΥΝΟΛΟ, ΟΧΙ Αργίες, ΑΡΓΙΕΣ Σ/Κ και ΕΠΙΣΗΜΕΣ ΑΡΓΙΕΣ έτσι ώστε να ενημερώνονται τα σύνολα με τους τύπους.

3. Για τις υπόλοιπες τροποποιήσεις στην εμφάνιση του ημερολογίου, μπορείς να πειραματιστείς πάνω σ' ένα νέο φύλλο (αντιγράφοντας το ήδη υπάρχον). Επιλέγοντας Τύποι > Διαχείριση Ονομάτων θα δεις το εύρος του κάθε μήνα που έχω ορίσει. Αν ένας μήνας μεταφερθεί σέρνοντας τον εκεί που χρειάζεσαι, μετά θα πρέπει να ελέγξεις αν τα νέα εύρη ανταποκρίνονται στις νέες θέσεις.

Και γενικά όποιο πρόβλημα συναντάς στα πειράματά σου, εδώ είμαστε να βοηθάμε.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΑΥΤΟΜΑΤΟ ΗΜΕΡΟΛΟΓΙΟ (ver. 1.1).xlsm (63,9 KB, 25 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!

Τελευταία επεξεργασία από το χρήστη ChrisGT7 : 09-07-19 στις 08:30.
Απάντηση με παράθεση
  #5  
Παλιά 09-07-19, 12:31
Το avatar του χρήστη christakos
Όνομα: Χρήστος
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-11-2018
Μηνύματα: 6
Προεπιλογή

Καλημέρα.......

Ξεπέρασες από αυτά που ήθελα.......

1) Ωραίο με το κουμπί που έκανες, και να υπάρξει οποιοδήποτε πρόβλημα συμβατότητας με το office 2007, υπάρχει και η εργασία σου χωρίς μακροεντολή

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

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

Ναι εννοείτε να είσαι εδώ, όμως διακοπές μπορείς να πας στο επιτρέπω



Ήδη προχώρησα σε μικρού μήκους πείραμα, και όχι δεν θα πω από τώρα πρόβλημα, είναι νωρίς, θα πειραματιστώ σε μεγάλου μήκους και θα επανέλθω την Δευτέρα 15 Ιουλ.
Καθώς θα πειραματίζομαι να σε ρωτήσω, το άθροισμα με χαρακτήρες υπάρχει περίπτωση να είναι κατ' επιλογήν?? π.χ. να είναι μόνο το (χ)? και ο λόγος επειδή άν έχω το γράμμα που θα επιλέξω δεν θα κάνει άθροισμα στο σύνολο όταν βάζω το (Ρ) =Ρεπό, αν δεν γίνετε δεν πειράζει...

και επόμενο, όταν αλλάζει το έτος να γίνετε απαλοιφή περιεχομένων στης ημέρες του Μήνα??

Τελευταία επεξεργασία από το χρήστη christakos : 09-07-19 στις 15:18.
Απάντηση με παράθεση
  #6  
Παλιά 09-07-19, 17:17
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 241
Προεπιλογή

Ναι, γίνεται να επιλέξεις έναν χαρακτήρα που θα δηλώνει την ημέρα εργασίας (π.χ. Χ ελληνικό) και την ημέρα ρέπό (π.χ. Ρ ελληνικό). Φυσικά θα πρέπει να τροποποιηθούν αντίστοιχα και οι τύποι.

Για τον Ιανουάριο θα πρέπει να κάνεις τις εξής τροποποιήσεις στα παρακάτω κελιά:
[B3]: =COUNTIF(C3:AG3;"Χ")
[AI3]: =SUMPRODUCT(--(C3:AG3="Χ");--(WEEKDAY($C$1:$AG$1;2)>5);--ISERROR(MATCH($C$1:$AG$1;ARGIES;0)))
[AJ3]: =SUMPRODUCT(--(C3:AG3="Χ");--NOT(ISERROR(MATCH($C$1:$AG$1;ARGIES;0))))

Τράβα τα παραπάνω κελιά και στους υπόλοιπους εργαζόμενους του Ιανουαρίου. Ακολούθησε τη λογική και στους υπόλοιπους μήνες, πλην του [B3] του οποίου μπορείς να επικολλήσεις τον τύπο σ' όλους τους μήνες.

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

Η απαλοιφή περιεχομένων των ημερών γίνεται μόνο με κώδικα, π.χ. δημιουργία κουμπιού όπου θα αντιγράφει ολόκληρο το φύλλο (να σε ρωτάει επιπλέον ποιο έτος θες), θα δημιουργεί νέο και θα καθαρίζει τα κελιά. Θες κάτι τέτοιο;
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #7  
Παλιά 09-07-19, 21:13
Το avatar του χρήστη christakos
Όνομα: Χρήστος
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-11-2018
Μηνύματα: 6
Προεπιλογή

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

όσο για την απαλοιφή, ένα κουμπί να καθαρίζει (μόνο) τα κελιά ημερών, φτάνει.
Απάντηση με παράθεση
  #8  
Παλιά 09-07-19, 22:50
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 241
Προεπιλογή

Επισυνάπτεται ενημερωμένο το αρχείο με τις συναρτήσεις που έγραψα παραπάνω και τον καθαρισμό.

Μάντεψε τι κάνει η σκούπα...
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΑΥΤΟΜΑΤΟ ΗΜΕΡΟΛΟΓΙΟ (ver. 1.2).xlsm (70,0 KB, 31 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #9  
Παλιά 10-07-19, 20:04
Το avatar του χρήστη christakos
Όνομα: Χρήστος
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-11-2018
Μηνύματα: 6
Προεπιλογή

Και κάνοντας αυτό τελείωσε αυτό που ήθελα, και να 'σε καλά που κάθισες και ασχολήθηκες, όπως είπα το ευχαριστώ είναι λίγο......

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

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

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

1) Στο επισυναπτόμενο Δοκιμή1 έγινε στην υπάρχον δικιά σου εργασία ver. 1.2 μέσα δημιούργησα ένα νέο φύλλο εργασίας ΔΟΚΙΜΗ,
α) έκανα αντιγραφή μόνο ΙΑΝΟΥΑΡΙΟ - ΦΕΒΡΟΥΑΡΙΟ - ΜΑΡΤΙΟ, με κάποια κενά μεταξύ τους,
και ως λογικό άλλαξε θέση η καρδιά του φύλλου Β5 και ενημέρωσα της ημερομηνίες Σ/Κ και εορτές, όπως και τον Φεβρουάριο για τα δίσεκτα έτη.
β) Αφαίρεσα τον Άγιο Δημήτριο ώστε να είναι στις τοπικές εορτές.
γ) Σε καμία περίπτωση μην δώσεις σημασία τα ονοματεπώνυμα, και στα δυο φύλλα ΔΟΚΙΜΗ - ΑΡΓΙΕΣ ΕΡΓΑΖΟΜΕΝΟΙ.
δ) Δημιούργησα νέους ορισμούς ονομάτων λόγω νέου φύλλου.
Όλα καλά μέχρι εδώ.

2) Δοκιμάζοντας στον Μήνα Ιανουάριο, Εκεί που συνάντησα πρόβλημα ειναι:

α) Τα σύμβολα { } είναι ιδιαίτερης σημασίας?? λείπουν στις ΑΡΓΙΕΣ Σ/Κ κελιά ΑΙ7:ΑΙ11 και στις ΕΠΙΣΗΜΕΣ ΑΡΓΙΕΣ μόνο στο κελί AJ7, αυτό έγινε πατώντας enter μετά από αλλαγή θέσης από 1 που ειναι στο αρχικό ΗΜΕΡΟΛΟΓΙΟ σε 5 που είναι στο ΔΟΚΙΜΗ, στις ΑΡΓΙΕΣ Σ/Κ είναι σε όλα γιατι το κατέβασα εγώ με το κελί συμπλήρωσης (αν το είπα καλά).
Επίσης τα ίδια και στον Μάρτιο. Αν είναι ιδιαίτερης σημασίας πως τα ξαναβάζουμε??

3) Το κουμπί καθαρισμού δεν εκτελεί την εντολή, λογικό αφού προστέθηκε με αντιγραφή, θα χρησιμοποιήσω τον ίδιο κώδικα?? ή αλλάζει ο κώδικας λόγω νέου φύλλου και λόγω μεταξύ μεγάλο κενό στους μήνες??? φυσικά, ότι είναι διαφορετικό θα κάνω σύγκριση μεταξύ φύλλων ΔΟΚΙΜΗΣ και ΗΜΕΡΟΛΟΓΙΟ

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

5) άλλαξα τα εικονίδια και τα έκανα ποιο μεγάλα, πιστεύω να μην σε πειράζει

σε μια δημιουργία νέου εγγράφου, χωρίς αντιγραφή, ναι γίνονται όλα από την αρχή, οι τύποι ορισμού ονόματος που δημιούργησες ΜΗΝ_1 έως 12, πρέπει να γίνουν?? ή τα έκανες λόγω κουμπιών και μακροεντολών??....

6) Είναι εφικτό κλείδωμα επιλεγμένων κελιων με vba όχι με την προστασία φύλλου??
π.χ. στο φύλλο ΔΟΚΙΜΗ να κλειδωθούν τα κελιά Α5-Α18-Α31 και βλέποντας τον κώδικα αντίστοιχα θα βάζω τα κελιά που θέλω εγώ........

Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΔΟΚΙΜΗ1.xlsm (96,5 KB, 27 εμφανίσεις)
Απάντηση με παράθεση
  #10  
Παλιά 10-07-19, 23:42
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 241
Προεπιλογή

1. Όπως φαίνεται ξεκίνησες τα πειράματα, οπότε καλή αρχή!

2. Όταν βλέπεις συνάρτηση με αγκύλες στην αρχή και στο τέλος σημαίνει ότι είναι συνάρτηση-πίνακας (array formulas). Επίσης, κάποιοι τις αποκαλούν και συναρτήσεις CSE από τα αρχικά των λέξεων Control+Shift+Enter. Αυτό σημαίνει ότι μόλις ολοκληρώσεις την σύνταξή της, θα πρέπει να πατήσεις Ctrl+Shift+Enter και όχι μόνο το Enter για να λειτουργήσει σωστά. Μόλις πατήσεις Control+Shift+Enter, οι αγκύλες θα μπόυν αυτόματα για να δηλώσουν ότι η συνάρτηση "αναβαθμίστηκε" σε συνάρτηση πίνακα.

3. Αφού άλλαξε η μορφή του ημερολογίου στο φύλλο ΔΟΚΙΜΗ, προφανώς θα πρέπει να προσαρμοστεί ανάλογα και ο κώδικας. Βλέπω ότι δημιούργησες νέα ονόματα (IANDOKIMH, MARTIOSDOKIMH). Ένα δείγμα κώδικα για τη δικιά σου μορφοποίηση είναι ο παρακάτω:

Κώδικας:
Sub ClearMonths()
    If MsgBox("Να γίνει καθαρισμός του ημερολογίου;", vbQuestion + vbYesNo + vbDefaultButton2, _
        ΚΑΘΑΡΙΣΜΟΣ") = vbNo Then Exit Sub
    
    Range("IANDOKIMH").Offset(1, 0).Resize(Range("IANDOKIMH").Rows.Count - 2, Range("IANDOKIMH").Columns.Count).ClearContents
    Range("MARTIOSDOKIMH").Offset(1, 0).Resize(Range("MARTIOSDOKIMH").Rows.Count - 2, Range("MARTIOSDOKIMH").Columns.Count).ClearContents
End Sub
Κάποιες φορές η ονοματολογία στα εύρη παίζει καθοριστικό ρόλο έτσι ώστε ο κώδικας να είναι όσο γίνεται πιο συνοπτικός και κατανοητός.

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

5. Όπως ανέφερα και πιο πάνω στο 3., η ονοματολογία παίζει καθοριστικό ρόλο στον κώδικα. Αν π.χ. είχες 50 πίκανες να καθαρίσεις, με τον δικό μου τρόπο ονοματολογίας θα είχες δυο-τρεις γραμμές κώδικα (For...Next) ενώ με τον δικό σου 50 γραμμές! Όπως καταλαβαίνεις, γι' αυτό το λόγο έβαλα αριθμούς στο τέλος των ορισμάτων ώστε να εκμεταλλευτώ την εντολή επανάληψης.

6. Πριν την τροποποίηση των κελιών, θα πρέπει να σιγουρευτείς ότι το φύλλο δεν έχει προστασία. Σ' ένα φύλλο όλα τα κελιά εξ' ορισμού είναι κλειδωμένα, δηλαδή η ιδιότητά τους Locked είναι True. Τα ξεκλειδώνεις θέτοντάς την σε False. Σύμφωνα λοιπόν με τα παραπάνω, τροποποίησε τον παρακάτω κώδικα όπως σε βολεύει:

Κώδικας:
ActiveSheet.Unprotect 'Βγάζεις την προστασία από το φύλλο
Range("A5,A18,A31").Locked = False 'Ξεκλειδώνεις τα κελιά με False, τα κλειδώνεις με True
ActiveSheet.Protect 'Βάζεις την προστασία στο φύλλο
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] αυτόματο άρθροισμα rmaria Excel - Ερωτήσεις / Απαντήσεις 11 13-03-15 18:08
Αυτόματο άθροισμα KAKISDF Access - Ερωτήσεις / Απαντήσεις 4 26-08-14 16:29
[VBA] Αυτόματο μήνυμα anestaki Excel - Ερωτήσεις / Απαντήσεις 5 23-04-12 14:21
[ Υποφόρμες ] Αυτόματο φιλτράρισμα ΚΩΣΤΑΣ2 Access - Ερωτήσεις / Απαντήσεις 7 22-04-12 11:32
ΑΥΤΟΜΑΤΟ BACKUP leopet Access - Ερωτήσεις / Απαντήσεις 2 07-12-10 20:27


Η ώρα είναι 16:46.