Excel VBA - Επιλογή του επόμενου κενού κελιού στη σειρά

Η εφαρμογή Visual Basic ή VBA, όταν χρησιμοποιείται στο Microsoft Excel, είναι ένα αποτελεσματικό εργαλείο, καθώς οι επαναλαμβανόμενες εργασίες μπορούν να αυτοματοποιηθούν με τη βοήθεια αυτής της εφαρμογής. Οι χρήστες μπορούν να γράψουν προσαρμοσμένο κώδικα VBA για να καλύψουν τις ανάγκες προγραμματισμού τους. Μέσω ενδιαφέρουσες ιδιότητες, όπως η αντιστάθμιση, μπορεί κανείς να λειτουργήσει σε διαφορετικά κελιά στο Excel. Οι λειτουργίες όπως η επιλογή του επόμενου κενού κειμένου στη σειρά μπορούν να γίνουν αυτόματα, αλλά μόνο όταν αυτή η ιδιότητα είναι επιλεγμένη στο VBA.

Θέμα

Χρησιμοποιώ το Excel 2002

Ο παρακάτω κώδικας λειτουργεί ωραία, εκτός από το ότι θέλω να επιλέξω το επόμενο κενό κελί στα δεξιά της γραμμής κάθε φορά που εισάγεται η βαθμολογία του ίδιου παίκτη.

Όπως διαβάζει τώρα, απλά αντικαθιστά την προηγούμενη καταχώρηση.

 Φύλλα (Classic) Επιλέξτε ActiveSheet.Unprotect Range ("B1") Επιλέξτε Do Until ActiveCell.Value = Player.Value ActiveCell.Offset (1, 0) .Επιλέξτε Loop ActiveCell.Value = Player.Value Activecell.offset ( 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

Λύση

ΔΟΚΙΜΑΣΤΕ ΑΥΤΟ:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'βρείτε το τελευταίο χρησιμοποιημένο κελί στη σειρά στα δεξιά του ActiveCell.End (xlToRight) .Επιλέξτε' μετακινήστε ένα κελί στα δεξιά από το τελευταίο χρησιμοποιημένο κελί ActiveCell.Offset (0, 1) .Επιλέξτε