Forum

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

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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-10-19, 15:41
Όνομα: Διογένης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-10-2019
Μηνύματα: 5
Προεπιλογή Αυτόματη αρίθμηση τιμολογίων στο Εxcel

Kαλησπερα,
θα ηθελα να μου πειτε πως μπορω να εχω αυτοματη αριθμηση τιμολογιων στο excel, εχω φτιαξει ενα εντυπο τιμολογιου και θελω αυτοματη αριθμηση.
θελω κι΄αλλα αλλα μετα.

ευχαριστω
διογενης
Απάντηση με παράθεση
  #2  
Παλιά 17-10-19, 12:16
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-06-2017
Μηνύματα: 8
Προεπιλογή

Αν κατάλαβα καλά αυτό ψάχνεις

ΔΗΜΙΟΥΡΓΙΑ ΜΕΤΡΗΤΗ ΓΙΑ ΠΑΡΑΣΤΑΤΙΚΑ

Η παρακάτω μακροεντολή είναι μια απλή αλλά ασφαλής λύση για την δημιουργία ενός μετρητή σε ένα έγγραφο (παραστατικό, τιμολόγιο, δελτίο αποστολής, απόδειξη κλπ) στο οποίο θέλετε να υπάρχει συνεχής αρίθμηση. Η διαδικασία καλείται μετά από ένα άλλο συμβάν, παράδειγμα μετά την εκτύπωση του παραστατικού ή μετά την διαγραφή του η μετά από το συμβάν 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
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Αυτόματη αρίθμηση τιμολογίων devcon Access - Ερωτήσεις / Απαντήσεις 8 12-11-16 19:53
αυτόματη αρίθμηση ευη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


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