Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αυτόματη αρίθμηση τιμολογίων στο Εxcel
Kαλησπερα, θα ηθελα να μου πειτε πως μπορω να εχω αυτοματη αριθμηση τιμολογιων στο excel, εχω φτιαξει ενα εντυπο τιμολογιου και θελω αυτοματη αριθμηση. θελω κι΄αλλα αλλα μετα. ευχαριστω διογενης |
#2
| |||
| |||
Αν κατάλαβα καλά αυτό ψάχνεις ΔΗΜΙΟΥΡΓΙΑ ΜΕΤΡΗΤΗ ΓΙΑ ΠΑΡΑΣΤΑΤΙΚΑ Η παρακάτω μακροεντολή είναι μια απλή αλλά ασφαλής λύση για την δημιουργία ενός μετρητή σε ένα έγγραφο (παραστατικό, τιμολόγιο, δελτίο αποστολής, απόδειξη κλπ) στο οποίο θέλετε να υπάρχει συνεχής αρίθμηση. Η διαδικασία καλείται μετά από ένα άλλο συμβάν, παράδειγμα μετά την εκτύπωση του παραστατικού ή μετά την διαγραφή του η μετά από το συμβάν open κλπ. Φυσικά μπορείτε να καλέσετε την ρουτίνα και χειριστικά από ένα πλήκτρο. Η μάκρο αποθηκεύει τον αύξοντα αριθμό του εγγράφου σε ένα «καθορισμένο όνομα» και επιστρέφει την τιμή αυξημένη κατά 1. Αν ο αριθμός στο κελί σβηστεί δεν δημιουργείται πρόβλημα διότι έχει αποθηκευτεί η τιμή του κελιού στο όνομα. Αν διαγραφτεί το όνομα πάλι δεν δημιουργείται πρόβλημα διότι η μάκρο δημιουργεί το όνομα σε κάθε κάλεσμά της και συνεχίζει με τον επόμενο αριθμό του κελιού. Πρόβλημα θα έχετε αν σβηστούν ταυτόχρονα το κελί και το όνομα. Αν φοβάστε και αυτή την περίπτωση τότε αλλάξτε στην τελευταία γραμμή του κώδικα την ιδιότητα Visible του ονόματος, από True σε False και το όνομα θα γίνει …αόρατο . Η μάκρο εισάγει τον αύξοντα αριθμό στο κελί Α1 του φύλλου “test”. Προσαρμόστε την διεύθυνση του κελιού και το όνομα του φύλλου στο δικό σας βιβλίο. Sub meter() Dim keli As Range Dim helpmeter As Long Dim mymeter As Long Set keli = ActiveWorkbook.Sheets("test").Range("a1") On Error Resume Next helpmeter = Evaluate(ActiveWorkbook.Names("helpname").RefersTo ) mymeter = Application.WorksheetFunction.Max(keli, helpmeter) mymeter = mymeter + 1 keli = mymeter ActiveWorkbook.Names.Add Name:="helpname", RefersTo:=mymeter, Visible:=True End Sub |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] Αυτόματη αρίθμηση τιμολογίων | devcon | Access - Ερωτήσεις / Απαντήσεις | 9 | 20-04-22 13:23 |
αυτόματη αρίθμηση | ευη79 | Access - Ερωτήσεις / Απαντήσεις | 3 | 17-02-15 00:19 |
[Γενικά] Αυτόματη αρίθμηση τιμολογίων | ΤΑΣΟΣ | Excel - Ερωτήσεις / Απαντήσεις | 9 | 17-02-12 21:33 |
Αυτόματη αρίθμηση | sagper | Access - Ερωτήσεις / Απαντήσεις | 10 | 10-01-12 16:34 |
Αυτόματη αρίθμηση | NIC | Access - Ερωτήσεις / Απαντήσεις | 2 | 30-08-10 23:00 |
Η ώρα είναι 06:36.