Πώς να προσδιορίσετε το επόμενο δωρεάν κελί σε μια στήλη χρησιμοποιώντας μια μακροεντολή
Σε πολλές μακροεντολές, τα δεδομένα πρέπει να προστίθενται συνεχώς. Στη συνέχεια, είναι απαραίτητο να προσδιορίσετε το επόμενο κελί σε μια στήλη όπου μπορείτε να εισαγάγετε δεδομένα. Μπορείτε να το λύσετε χρησιμοποιώντας έναν τύπο Excel.
Ωστόσο, εάν θέλετε να προσδιορίσετε το τελευταίο κελί σε μια μακροεντολή, χρειάζεστε εντολές VBA. Υπάρχουν διάφορες προσεγγίσεις για την επίλυση του προβλήματος. Εδώ είναι μια κατάλληλη μακροεντολή:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile Όσο καιρό
Αν Val (Αριστερά (Εφαρμογή. Έκδοση, 2))> 11 Τότε
Μέγιστη γραμμή = 1048576
Αλλού
Μέγιστη γραμμή = 65536
Τέλος εαν
Ορισμός κελιού = Κελιά (Maxzeile, 1). Τέλος (xlUp). Offset (1, 0)
MsgBox "Το επόμενο δωρεάν κελί είναι" & cell.Address (False, False)
Τέλος υπο
Μόλις ξεκινήσει, η μακροεντολή καθορίζει το επόμενο δωρεάν, αχρησιμοποίητο κελί στη στήλη A. Η διεύθυνση αυτού του κελιού εμφανίζεται σε ένα παράθυρο.
Η μακροεντολή απευθύνεται στην τελευταία σειρά στη στήλη Α του ενεργού πίνακα και, ξεκινώντας από εκεί, καθορίζει το τελευταίο κελί που χρησιμοποιήθηκε παραπάνω. Προκειμένου η μακροεντολή να λειτουργεί στο Excel έως την έκδοση 2003 καθώς και στο Excel από την έκδοση 2007, γίνεται στην αρχή μια κατάλληλη διάκριση πεζών -κεφαλαίων. Αυτή η διάκριση πεζών είναι απαραίτητη επειδή ο αριθμός των διαθέσιμων γραμμών έχει αυξηθεί με την έκδοση 2007 από 65536 σε 1048576.
Εάν θέλετε να βρείτε το δωρεάν κελί σε μια στήλη αντί για το ελεύθερο κελί στη στήλη Α, αντικαταστήστε τον πρώτο αριθμό 1 σε αγκύλες μετά την εντολή Κύτταρα με τον αριθμό της αντίστοιχης στήλης.
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
