Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Excel07] Πεδίο αυτόματης αρίθμησης των αποθηκεύσεων σε ένα αρχείο xltx (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3755-pedio-aytomatis-arithmisis-ton-apothikeiseon-se-ena-arxeio-xltx.html)

Σταυρούλα 10-07-15 12:48
Πεδίο αυτόματης αρίθμησης των αποθηκεύσεων σε ένα αρχείο xltx
 
1 Συνημμένο(α)
Σε ένα αρχείο του excel που είναι παραστατικό παραγγελίας για παράδειγμα επιθυμώ σε ένα κελί αυτού του πίνακα να αλλάζει ένας αύξον αριθμός κάθε φορά που κάνω αποθήκευση.
Μπορεί να με βοηθήσει κάποιος αν και πως μπορεί να γίνει αυτό;
Επισυνάπτω και ένα παράδειγμα για να γίνω ποιο κατανοητή.

Ευχαριστώ

Spirosgr 10-07-15 13:50
Καλημέρα και καλώς ήλθες στην παρέα.
Ανέβασε ένα αρχείο.

Σταυρούλα 10-07-15 17:11
Ευχαριστώ Σπύρο για το καλωσόρισμα σου!
Ανέβασα φωτογραφία γιατί αν και είναι μικρή η εργασία μου σε byte ξεπερνά τα όρια των 512 για να το ανεβάσω σε μορφή excel. Έχεις να μου προτείνεις κάποιο τρόπο εσύ να με βοηθήσεις να το ανεβάσω;;

Spirosgr 10-07-15 17:50
Ένα οποιοδήποτε παραδειγματικό αρχείο, με ένα φύλλο και το
συγκεκριμένο κελί στο οποίο θα αλλάζει ο αριθμός

Σταυρούλα 10-07-15 18:55
1 Συνημμένο(α)
Μετά από προσπάθειες κατάφερα το αρχείο που ανεβάζω

Spirosgr 10-07-15 21:49
Αποθηκεύουμε το βιβλίο ως .xlsm
Στο νέο βιβλίο και στο συμβάν BeforeSave, βάζουμε τον κώδικα:

Κώδικας:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sh1.Range("d1").Value = Sh1.Range("d1").Value + 1
End Sub
Στο φύλλο, στο οποίο αναφέρεται ο κώδικας, αλλάζουμε το κωδικό όνομά του σε Sh1.

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

Σταυρούλα 11-07-15 09:12
Ευχαρστώ για την τόσο άμεση βοήθεια.
Μήπως σου είναι εύκολο να με βοηθήσεις με το συμβαν BeforeSave με περισσότερες λεπτομέρειες;

Spirosgr 11-07-15 11:58
1 Συνημμένο(α)
Μπορείς να διαβάσεις την βοήθεια της Microsoft.
Δες την εφαρμογή του, στο παράδειγμα.
Πίσω στον VBA editor, στο ThisWorkbook (Αυτό το βιβλίο εργασίας)

Σταυρούλα 11-07-15 12:26
Αγαπητέ Σπύρο έκανα ότι μου είπες αλλά ο αριθμός δεν αλλάζει όταν κάνω αποθήκευση, τι μπορεί να φταίει.

Spirosgr 11-07-15 12:59
Ούτε μια στο δισεκατομμύριο....
Εφάρμοσε το παράδειγμα...


Η ώρα είναι 06:29.

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


Search Engine Optimization by vBSEO 3.3.2