Πώς να αυξήσετε αυτόματα έναν αριθμό κατά το άνοιγμα του βιβλίου εργασίας;
Εάν θέλετε να αυξήσετε αυτόματα ένα αριθμητικό κελί κατά 1 όταν ανοίγετε το βιβλίο εργασίας κάθε φορά, φυσικά, μπορείτε να προσθέσετε 1 μη αυτόματα. Υπάρχει, όμως, καλύτερη μέθοδος για την αυτόματη προσθήκη 1 για τον αριθμό κατά το άνοιγμα του εγγράφου Excel;
Αυξάνεται αυτόματα ένας αριθμός όταν ανοίγει το βιβλίο εργασίας με κωδικό VBA
Αυξάνεται αυτόματα ένας αριθμός όταν ανοίγει το βιβλίο εργασίας με κωδικό VBA
Ο παρακάτω απλός κωδικός VBA μπορεί να σας βοηθήσει να προσθέσετε αυτόματα 1 για το κελί αριθμών όταν το βιβλίο εργασίας ανοίγει κάθε φορά, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στην Έργο-VBAProject παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας για να ανοίξετε το Μονάδα μέτρησης, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ενότητα, δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Αυξάνεται αυτόματα ένας αριθμός όταν ανοίγει το βιβλίο εργασίας:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Note: Στον παραπάνω κώδικα, Sheet1 και A2 είναι το φύλλο και το κελί που περιέχει τον αριθμό που θέλετε να αυξήσετε αυτόματα. Αλλάξτε τα σύμφωνα με τις ανάγκες σας.
3. Στη συνέχεια, θα πρέπει να αποθηκεύσετε το αρχείο Excel ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφή, δείτε το στιγμιότυπο οθόνης:
Από εδώ και στο εξής, όταν ανοίγετε αυτό το συγκεκριμένο βιβλίο εργασίας, ο αριθμός στο κελί A2 στο Sheet1 θα προστίθεται αυτόματα 1.
Note: Αυτός ο κωδικός εφαρμόζεται μόνο στο αριθμητικό κελί.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!