![]() |
Τασο σε ευχαριστω , δοκιμασα το αρχειο και λειτουργει , ομως οπως ειπες και εσυ το εξελισω. Σο φυλλο 1 οι ημερομηνιες στηλη Α και η κατοικιες στηλη Β προερχονται απο αλλο τροφοδοτη αρχειο με συνεπεια ο κωδικας να μην βρισκει τιμες αυτουσιες αλλα τυπους απο τους οποιους προκυπτουν οι τιμες .Αλλαζει αυτο ? |
3 Συνημμένο(α) Σταύρο, αν πρόκειται για τους τύπους που υπήρχαν στο αρχικό συνημμένο του θέματος, τότε στον κώδικα άλλαξε τη γραμμή: Set f = rngSourceDates.Find(c) με τη γραμμή: Set f = rngSourceDates.Find(What:=c, LookIn:=xlValues). Εναλλακτικά (αυτό που θα σου πρότεινα), αφού οι τύποι δεν υπολογίζουν αλλά απλά επιστρέφουν την τιμή του κελιού στο οποίο αναφέρονται, είναι ευκολότερο και αποδοτικότερο να εισάγεις δεδομένα με τη μέθοδο Εισαγωγής εξωτερικών δεδομένων από το αρχείο-πηγή (Access, Excel, αρχείο κειμένου κ.ά.) και να τα ανανεώνεις όποτε θέλεις από το τελικό αρχείο. Τα πλεονεκτήματα πολλά και ευεργετικά ειδικά σε μεγάλο όγκο δεδομένων. Στο μενού "Δεδομένα > Εισαγωγή εξωτερικών δεδομένων" κάνε κλικ στην επιλογή "Εισαγωγή δεδομένων". Στο διάλογο που θα εμφανιστεί επέλεξε το αρχείο από όπου θα αντλείς τα δεδομένα (VILLAS 2011-καθάρισμα.xls). Στον επόμενο διάλογο που θα εμφανιστεί επιλέγεις το φύλλο που περιέχει τα δεδομένα προς εισαγωγή. Στον επόμενο διάλογο που θα εμφανιστεί κάνε κλικ στην επιλογή "Ιδιότητες" και κάνε τις ρυθμίσεις όπως δείχνει η εικόνα: Συνημμένο Αρχείο 1903 και κλείσε τους 2 διαλόγους μς OK. Σου επισυνάπτω 2 συνημμένα για να το δεις σε λειτουργία:
Καλή συνέχεια! Τάσος |
1 Συνημμένο(α) καλησπερα και παλι κ ενα μεγαλο ευχαριστω. εχω εξελιξει το αρχικο αρχειο οπως το συννημενο , προσπαθω να εφαρμοσω τις συμβουλες σου αλλα δεν γινεται τιποτα , επισης μπορει να βαζει Κin οταν παιρνει απο το check in στηληΑ και να βαζει Κout οταν παιρνει απο στηλη Β (και ισως να αλλαζει κ χρωμα κελιου ?) |
2 Συνημμένο(α) Καλημέρα Σταύρο! Πριν εξελίξεις μια εφαρμογή θα πρέπει να την έχεις σχεδιάσει πρώτα. Δεν το κάνεις αυτό με αποτέλεσμα να έχει αλλάξει το σενάριο του ζητούμενου σου 3 ή 4 φορές! Θα πρέπει να πειραματιστείς αρκετά αφού θέλεις να προγραμματίσεις στην Excel. Καλά κάνεις και ζητάς βοήθεια από το φόρουμ αλλά δεν θα έχεις όφελος αν σου δίνονται παραδείγματα που δεν είσαι ακόμα σε θέση να μελετήσεις. Σου δόθηκε ένα παράδειγμα που όπως είπες δεν μπορείς να το προσαρμόσεις παρά τις υποδείξεις που σου δόθηκαν, κάτι που είναι φυσιολογικό αφού τώρα κάνεις τα "πρώτα βήματα" στην Excel. Παρόλα αυτά, θα πρέπει να κατανοήσεις τους τύπους, τον κώδικα αλλά και τη συμπεριφορά της Excelαν θέλεις να προχωρήσεις σε νέους αυτοματισμούς πάνω στην εφαρμογή σου. Τι νόημα θα έχει αν κάποιος βρει το χρόνο να τροποποιήσει το αρχείο σου όταν εσύ δεν μπορείς να ακολουθήσεις; Επισυνάπτω 2 συνημμένα με αυτά που προτείνω. Μέσα στα αρχεία αυτά θα βρεις τις τεχνικές που θα χρειαστείς προκειμένου να τελειώσεις το έργο σου:
Δεν έχω δυστυχώς άλλο χρόνο να ασχοληθώ με το θέμα αυτό. Φιλικά Τάσος |
Τασο , σε ευχαριστω για τον χρονο που εχεις διαθεσει .Η βοηθεια σου ειναι σημαντικη . Επειδη ασχολουμαι με σχεδιασμους οχι προγραμματων αλλα με αλλου ειδους, πολλες φορες φευγεις απο τα αρχικα σεναρια και ψαχνεις διεξοδους και επανασχεδιαζεις , μεχρι να καταληξεις σε ενα ικανοποιητικο αποτελεσμα .Δεν θα ενοχλησω ξανα με αυτο το θεμα |
| Η ώρα είναι 18:57. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.