Δημιουργήστε έναν μοναδικό αριθμό εγγραφής - Συμβουλές Excel

Η Janet από την Αγγλία έθεσε τη σημερινή ερώτηση.

Πρέπει να γνωρίζουμε πώς να δημιουργήσουμε μια μακροεντολή που θα εκχωρήσει έναν μοναδικό αριθμό τιμολογίου, πώς να δημιουργήσουμε μια δεύτερη μακροεντολή που θα αποθηκεύσει το ολοκληρωμένο τιμολόγιο ως τον μοναδικό αριθμό.

Εδώ είναι η υποθετική εφαρμογή που φαντάζομαι. Υπάρχει ένα βιβλίο εργασίας με ένα φύλλο εργασίας τιμολογίου και ένα φύλλο εργασίας μενού. Προτείνω να αποθηκεύσω τον τελευταίο αριθμό τιμολογίου σε ένα κελί εκτός του φύλλου εργασίας του Μενού, ας πούμε Z1. Εάν ο αριθμός τιμολογίου υποτίθεται ότι περιλαμβάνεται στο κελί H2 του φύλλου εργασίας τιμολογίου, τότε αυτή η μακροεντολή θα κάνει το κόλπο:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Στη συνέχεια, για να αποθηκεύσετε το τιμολόγιο, κάτι τέτοιο:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub