|
Αυτόματη Ταξινόμηση 1 Συνημμένο(α) Φίλοι του φόρουμ Καλησπέρα. Πριν γράφω το πρόβλημά μου κοίτα αν υπάρχει κάποιο θέμα στο φόρουμ και βρήκα αρκετά, αλλά όλα ήταν διαφορετικά από το δικό μου. Όπως θα δείτε και στο συνημμένο στο φύλλο Ευρετήριο έρχονται τα δεδομένα με σύνδεση Θα ήθελα αν π.χ πάω στο φύλλο 22 και γράψω ένα όνομα να ταξινομηθεί αυτόματα μαζί με τα άλλα δεδομένα του φύλλου. Πιστεύω να μην σας μπέρδεψα. Σας ευχαριστώ για τον χρόνο σας. |
Αυτόματη Ταξινόμηση 1 Συνημμένο(α) Καλημέρα Χρήστο Σε κάθε φύλο αντέγραψε τον παρακάτω κώδικα Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range)Καταχωρείς τις εγγραφές σου και προχωράς στο επόμενο κελί με tab. Μόλις καταχωρήσεις το ποσό στη στήλη ΠΙΣΤΩΣΗ και πατήσεις tab θα γίνει η ταξινόμηση αυτόματα με κριτήριο το ΟΝΟΜΑΤΕΠΩΝΥΜΟ ( key1:=Range("b5")) Αν θέλεις να γίνει ως προς άλλη στήλη άλλαξε το b5 Στο συνημμένο ο κώδικας είναι στο πρώτο φύλο Προσοχή: 1) Δεν μπορείς να κάνεις undo. 2) Αν δε φτάσεις μέχρι τη στήλη F δε θα γίνει ταξινόμηση 3) Έχω προσθέσει μια ενδιάμεση γραμμή για να γίνετε η ταξινόμηση επειδή η πρώτη γραμμή είναι merged Γιώργος |
Καλημέρα Φίλε Χρήστο δεν έχω καταλάβει τι θέλεις να κάνεις με αυτό το project που στήνεις. Μήπως πρέπει να το ξανασκεφτείς τώρα που είναι αρχή ακόμα; Έχεις καρτέλες τιμολογίων χωρίς να υπάρχει πουθενά στήλη με τα στοιχεία τιμολογίων. Αν έρθει πελάτης 31 και του φτιάξεις καρτέλα που θα είναι το όνομα του στο ευρετήριο αν λέγετε Βαγγέλης ... στον πάτο της λίστας; Τι ρόλο παίζει η στήλη πελάτη σε κάθε καρτέλα αν κάθε πελάτης έχει δική του καρτέλα; Πάντα οι αρνητικές τιμές τιμές σε καρτέλα δείχνουν πιστωτικό υπόλοιπο. Εδώ θέλεις να είναι αρνητικό αυτό που σου χρωστάνε....(χρεωστικό) Γιατί πρέπει να επαναλαμβάνεται το τελευταίο υπόλοιπο; Τι θα γράψεις και που αν κάποιος πελάτης επιστρέψει κάτι και πρέπει να εκδοθεί πιστωτικό τιμολόγιο; Και τεχνικά δύο πράγματα που έχουμε κατ' επανάληψιν πει είναι 1. Μην βάζετε συγχωνευμένα (επέλεξε μου την Β στήλη μιας καρτέλας) 2. Μην ονομάζετε καρτέλες με αριθμούς 1,2...κλπ Συγνώμη για τις "παρατηρήσεις" αλλά αν έχω καταλάβει θέλεις να φτιάξεις κάτι που να διαχειρίζεται πελάτες, εισαγωγή εξαγωγή προϊόντος, και τιμολόγια και υπόλοιπα πελατών Φίλε Χρήστο αυτό δεν θα σου κάνει την δουλειά... |
1 Συνημμένο(α) Φίλοι του φόρουμ Καλησπέρα. Φίλοι Γιώργο & Σπύρο σας ευχαριστώ για τον χρόνο σας και την βοήθειά σας. Πρώτα θέλω να σας πω ένα μεγάλο ΣΥΓΝΩΜΗ γιατί σας έστειλα λάθος συνημμένο, το οποίο δεν απέχει πολύ από το σωστό. Φίλε Γιώργο θα απευθυνθώ πρώτα σε σένα. Σε ευχαριστώ για το κωδικό και θα το χρησιμοποιήσω όταν το χρειαστώ, αλλά εγώ ήθελα να γίνεται η αυτόματη ταξινόμηση στο φύλο ΕΥΡΕΤΗΡΙΟ και φυσικά να ταξινομείται κάθε εγγραφή όλη μαζί μαζί με τα ποσά. Δηλ. όταν πάω στο φύλλο 25 και γράψω όνομα Βήτα και τα ποσά στο φύλλο ΕΥΡΕΤΗΡΙΟ να ταξινομείται με τα ποσά μαζί. Τώρα φίλε Σπύρο να σου απαντήσω στα ερωτήματά σου Παράθεση:
απλά είναι βοηθητικά. Παράθεση:
Παράθεση:
Παράθεση:
Παράθεση:
Παράθεση:
Έγραψα πολλά αλλά είμαι της άποψης ότι όσα περισσότερα γράφεις τόσο το καλύτερο γιατί μπορεί να βγει κάτι καινούργιο. Θέλω να σας πω και πάλι ΣΥΓΝΩΜΗ για το λάθος συνημμένο αλλά όπως θα δείτε δεν διαφέρει πολύ στο ότι θέλω να γίνεται η αυτόματη ταξινόμηση στο φύλλο ΕΥΡΕΤΗΡΙΟ Σας ευχαριστώ και πάλι |
Γιώργο επανέρχομαι στο λανθασμένο συνημμένο που σου είπα ότι θα το χρησιμοποιήσω αλλού. Πήγα όπως μου είπες και έβαλα τον κώδικα στα άλλα φύλλα αλλά δεν λειτουργεί. Που έχω κάνει λάθος;;;; Σε ευχαριστώ |
1 Συνημμένο(α) Σας στέλνω το συνημμένο που ξέχασα |
Αυτόματη Ταξινόμηση Καλησπέρα Χρήστο Θα πρέπει να βάλεις τον κώδικα στο Worksheet_SelectionChange event για να λειτουργήσει. Όχι σε ένα module. Στο παράθυρο του κώδικα επέλεξε από τις αναπτυσσόμενες λίστες Worksheet στο αριστερό βελάκι και Selection Change στο δεξί. Θα πρέπει: 1) όλα τα φύλα να έχουν την ίδια μορφή που έχει το φύλο 1 που έχει τον κώδικα. Δηλαδή η τρίτη γραμμή κενή και ο πίνακας με τα στοιχεία σου να ξεκινάει από τη γραμμή 4. 2) να ονομάσεις τον πίνακα με τα δεδομένα σου range1 όπως το έχω βάλει. Αν δε θες να τον ονομάσεις, πρέπει να ορίσεις εσύ την περιοχή ταξινόμησης. Σε κάθε φύλο να έχεις διαφορετικό όνομα περιοχής range1, range2 κοκ 3) ο πίνακας σε όλα τα φύλα να έχει τις ίδιες διαστάσεις (μέχρι τη γραμμή 39) Αν υπάρχει περίπτωση να αλλάξουν οι πίνακες δομή θα χρειαστεί κάτι πιο δυναμικό και ερχόμαστε σε αυτό που σωστά παρατήρησε ο Σπύρος. Τη δομή που θέλεις να έχεις Για την ταξινόμηση στο πρώτο φύλο θα επανέρθω Ελπίζω να σε βοήθησα Γιώργος |
1 Συνημμένο(α) Φίλε Γιώργο σε ευχαριστώ για την αμεσότητά σου βλέπω και οι δύο ήμαστε μπροστά στον Η/Υ :048: Λοιπόν έκανα ότι είπες Παράθεση:
Παράθεση:
Παράθεση:
αλλά και πάλι όπως θα δεις δεν λειτουργεί. ΥΣ: Σου υπενθυμίζω ότι την ταξινόμηση στο καινούργιο συνημμένο που έστειλα πριν την απάντησή σου είναι στο φύλλο ΕΥΡΕΤΗΡΙΟ |
1 Συνημμένο(α) Χρήστο, Είχες ξεχάσει να ορίσεις την περιοχή που χαρακτηρίζεται σαν range2. Στο συνημμένο στο διόρθωσα. Αριστερά από τη formula bar, στο πλαίσιο που έχει και αφού πρώτα έχεις επιλέξει μια περιοχή κελιών, πληκτρολογείς το όνομα που θες και πατάς enter. Η περιοχή που επέλεξες αποθηκεύεται με το όνομα που της έδωσες. Γιώργος |
Για την ταξινόμηση στο φύλο Ευρετήριο βάλε την παρακάτω macro στο event Worksheet Activate. Κώδικας: Private Sub Worksheet_Activate() |
1 Συνημμένο(α) Γιώργο σε έχω ζαλίσει το ξέρω:025: Αλλά δεν γνωρίζω πολλά από κώδικες αλλά καλό είναι να μάθω γιατί θα ξανατύχει και θα πρέπει να γνωρίζω. όταν λες Παράθεση:
όπως θα δεις στο συνημμένο δεν βλέπω πουθενά την μπάρα Επίσης αν μπορείς να μου το περιγράψεις βήμα-βήμα θα είναι το καλύτερο. Το ξέρω είναι βάσανο, αλλά δεν γνωρίζω πολλά όπως σου είπα. Όσες φορές φίλοι του φόρουμ μου έχουν περιγράψει βήμα-βήμα το έχω καταλάβει και το έχω εφαρμόσει και σε άλλα έγγραφα. Σε υπέρ ευχαριστώ για τον χρόνο σου και την βοήθειά σου |
1 Συνημμένο(α) Γεια σου Χρήστο, Δε με έχεις ζαλίσει καθόλου. Λάθος μου και εμένα που στα είπα γρήγορα. Στο word που έχεις συνημμένο φαίνεται το παράθυρο του κώδικα, το οποίο είναι μια χαρά. Αυτό θα πρέπει να υπάρχει σε κάθε φύλο, αν βέβαια θες να το χρησιμοποιήσεις σε κάθε φύλο. Στην τέταρτη γραμμή υπάρχει το λεκτικό Range("range2"). Με αυτήν την πρόταση λες στο πρόγραμμα να κάνει κάτι με την περιοχή range2. Το κάτι στη δική σου περίπτωση είναι η ταξινόμηση. Ονόματα στην excel μπορείς να ορίσεις και μέσω κώδικα, κάτι που δεν μας απασχολεί επί του παρόντος, αλλά και πολύ πιο εύκολα στο φύλο εργασίας σου. Εννοούσα τη formula bar στο φύλο εργασίας σου. Αριστερά από εκεί που πληκτρολογείς τους τύπους. Στη φωτογραφία είναι κυκλωμένη και δείχνει Ε8. Εκεί πληκτρολογείς τα ονόματα. Επιλέγεις πρώτα μια περιοχή κελιών και μετά πληκτρολογείς το όνομα που θες στο σημείο που φαίνεται στη φωτογραφία και πατάς enter. Έτσι αντί να αναφέρεσαι σε μια περιοχή ως πχ: A1:F50 μπορείς να τη χρησιμοποιείς μέσω του ονόματος της. Όχι μόνο στον κώδικα αλλά και σε συναρτήσεις στο φύλο εργασίας. Αντί να λες πχ: SUM(A1:A3) μπορείς να γράφεις SUM(το όνομα της περιοχής που έχεις ορίσει) Οπότε συνοψίζοντας, στο παράθυρο του κώδικα μπορείς σε κάθε φύλο να χρησιμοποιήσεις στην τέταρη γραμμή το όνομα που έχεις ορίσει για την περιοχή που θες να ταξινομήσεις. Βέβαια, για να μην παιδεύεσαι μπορείς, αντί για όνομα, να βάλεις κατευθείαν το εύρος που θα ταξινομηθεί χρησιμοποιώντας την κλασσική αναφορά περιοχών, δηλαδή range("A4:F39") που είναι η περιοχή ταξινόμησης που ενδιαφέρει εσένα. Σε βοήθησα με τα παραπάνω; |
Γιώργο :thanks: όσο αφορά την καρτέλα Τώρα θέλω να μου πεις και για το ευρετήριο γιατί όταν λες Παράθεση:
Αυτό και τέλος :a044: Σε υπέρ ευχαριστώ:biggrin: |
Στο παράθυρο κώδικα του πρώτου φύλου από την αριστερή λίστα επέλεξε Worksheet και από τη δεξιά λίστα Αctivate. Επειδή η πρώτη και τελευταία γραμμή που σου έγραψα πριν θα μπουν αυτόματα εσύ ανάμεσα τους βάλε μόνο το υπόλοιπο κομμάτι, δηλαδή Κώδικας: Range("A1:C31").Select |
2 Συνημμένο(α) Γιώργο έκανα ότι μου είπες θα τα δεις στα συνημμένα αλλά τίποτα γαμότο μου. Μόλις έβαλα τον κώδικα και πάω στο ευρετήριο μου βγάζει λάθος. Αλήθεια πως γίνεται το δικό σου συνημμένο Μαζί με τις λύσεις θα ήθελα να μου πεις για να μην τα αποθηκεύω σε word Περιμένω με αγωνία για να ολοκληρωθεί η χαρά μου |
Λογικά έχεις γράψει διαφορετικά τη λέξη Ευρετήριο στο tab από ότι εγώ. Μπορεί να έχεις spaces στην αρχή ή στο τέλος, Αγγλικό το αρχικό Ε ή κάτι άλλο. Για να ξεμπλέξεις εύκολα βάλε το παρακάτω Κώδικας: ActiveWorkbook.Worksheets(1)Κώδικας: ActiveWorkbook.Worksheets("Ευρετήριο"). |
Γιώργο ένα ΕΥΧΑΡΙΣΤΩ δεν φτάνει. Με έχεις κάνει πολύ χαρούμενο όχι μόνο γιατί με βοήθησες αλλά γιατί έμαθα κάτι που δεν γνώριζα. Μια τελευταία βοήθεια Τον ίδιο κωδικό θα βάλω στο ΕΥΡΕΤΗΡΙΟ στο νέο συνημμένο που σου στέλνω;;;; Και δεν μου είπες πως κάνεις την αποθήκευση στο συνημμένο που μου έστειλες για να μου επεξηγήσεις που θα γράψω το range. :thumbup: :yahoo: |
Γιώργο άλλαξα στον κώδικα τα στοιχεία που θα βλέπει και δουλεύει μια χαρά ΣΕ ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ :friends: |
Παρακαλώ Χρήστο |
1 Συνημμένο(α) Καλημέρα σε όλους! Δείτε μια λίγο διαφορετική προσέγγιση με χρήση πίνακα (ListObject). Στο επισυναπτόμενο παράδειγμα το φύλλο είναι προστατευμένο και επιτρέπει την εισαγωγή νέας γραμμής μόνο από το κουμπί "Νέα εγγραφή". Με το πάτημα του κουμπιού προστίθεται νέα γραμμή στην κορυφή του πίνακα και τα υπόλοιπα δεδομένα της στήλης B ταξινομούνται αλφαβητικά. Με δεξί κλικ πάνω στα δεδομένα του πίνακα εμφανίζεται μενού που επιτρέπει τη διαγραφή της επιλεγμένης γραμμής του πίνακα. Αν θελήσει κάποιος να διαγράψει περισσότερες γραμμές ταυτόχρονα, μπορεί να αφαιρέσει την προστασία του φύλλου και να εφαρμόσει τη διαγραφή με τις ενσωματωμένες εντολές της εφαρμογής. Το φύλλο "Καταχώρηση" μπορεί να αντιγραφεί όσες φορές χρειαστεί στο ίδιο βιβλίο. Δεν χρειάζονται τροποποιήσεις στον κώδικα. Καλή συνέχεια! Τάσος |
Φίλε Τάσο σε ευχαριστώ. Αν και με βοήθησε πάρα πολύ ο Γιώργος και έλυσα το πρόβλημά μου μου έδωσες νέες ιδέες για να το εφαρμόσω σε άλλα σχέδιά μου και όπως πάντα είναι πάντα απλά και δυναμικά. Νάσε καλά να μας βοηθάς |
Φίλοι του φόρουμ Καλησπέρα. Θα απευθυνθώ στον φίλο τον Γιώργο που με βοήθησε στο σχετικό πρόβλημα. Πήγα και έβαλα τον κώδικα σε ένα ίδιο έγγραφο σε άλλον Η/Υ με office 2003 και μου έβγαλε το ίδιο πρόβλημα όπως φαίνεται στο συνημμένο "Κώδικας" στην απάντηση #15# Υπάρχει λύση;;; Και μία άλλη ερώτηση. Υπάρχει πρόβλημα αν κάποιος πάει και κάνει ταξινόμηση μέσω του excel;;; ή πρέπει να κλειδώσουμε το φύλλο;;; Σε ευχαριστώ για την βοήθειά σου και τον χρόνο σου |
Γεια σου Χρήστο Το πρόβλημα οφείλεται στην ονομασία του φύλου όπως και την προηγούμενη φορά. Δοκίμασε με ένα άλλο όνομα φύλου. Για το δεύτερο ερώτημα αν κάνει κάποιος ταξινόμηση διαφορετική. Θα τον "προλάβει" ο κώδικας. Η μόνη περίπτωση είναι μόλις ανοίγει το βιβλίο εργασίας στο φύλο ευρετήριο να ταξινομήσει κάπως αλλιώς τα δεδομένα από ότι ήδη είναι. πχ: σε φθίνουσα σειρά. Αλλά και πάλι με το που πάει σε άλλο φύλο για να καταχωρήσει εγγραφή και γυρίσει στο πρώτο φύλο θα γίνει η ταξινόμηση που εσύ ζήτησες. Η λογική του κώδικα είναι: μόλις ενεργοποιηθεί το φύλο εργασίας Ευρετήριο κάνε μου ταξινόμηση. Οπότε ότι και να έχει κάνει κάποιος στο πρώτο φύλο μόλις φύγει για να κάνει κάτι άλλο σε άλλο φύλο και επιστρέψει στο πρώτο αυτό θα έχει ταξινομηθεί όπως του έχουμε ορίσει. Αν θες βέβαια μπορείς να το κλειδώσεις ούτως ή άλλως για μεγαλύτερη ασφάλεια. Γιώρος |
| Η ώρα είναι 20:13. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.