Όταν γράφουμε την κωδικοποίηση VBA για να σωθούμε από την επαναλαμβανόμενη εργασία, η επιλογή δεδομένων παίζει πολύ σημαντικό ρόλο. Έτσι, σε αυτό το άρθρο θα μάθετε πώς μπορείτε να επιλέξετε τα δεδομένα κατά σειρά, στήλη και δεδομένα ολόκληρων εγγράφων μέσω κωδικοποίησης VBA στο Microsoft Excel.
Θα μάθετε:
- Πώς να επιλέξετε ολόκληρη τη στήλη;
- Πώς να επιλέξετε ολόκληρη τη σειρά;
- Πώς να επιλέξετε ολόκληρα δεδομένα;
Πώς να επιλέξετε ολόκληρη τη στήλη μέσω VBA;
Έχουμε δεδομένα στο εύρος A1: C19, στα οποία η στήλη A περιέχει όνομα, η στήλη B φύλο και η στήλη C περιέχει ηλικία.
Για να επιλέξετε ολόκληρη τη στήλη Α σε αυτά τα δεδομένα, ακολουθήστε τα παρακάτω βήματα και κωδικό:-
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11
- Εισαγάγετε μια ενότητα
- Γράψτε τον παρακάτω κωδικό:
Sub Columnselect () Range ("A1"). Entirecolumn.Select End Sub
- Πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Η στήλη Α θα επιλεγεί
Εάν θέλετε τα δεδομένα να επιλέγονται μέχρι το τελευταίο ενεργό κελί στη στήλη, ακολουθήστε τα παρακάτω βήματα και τον κωδικό:-
- Γράψτε τον παρακάτω κωδικό:-
Sub Columnselect () lastrow = Worksheets ("Sheet1"). Cells (Rows.count, 1). End (xlUp). Row Works Sheets ("Sheet1"). Range ("A1: A" & lastrow). Selection End Sub
Επεξήγηση κώδικα:- Πρώτα θα ορίσουμε τι θα είναι το τελευταίο ενεργό κελί στα δεδομένα και, στη συνέχεια, την τελευταία γραμμή θα χρησιμοποιήσουμε για να ορίσουμε το εύρος στην κωδικοποίηση.
- Πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Η στήλη A1: A19 θα επιλεγεί
Με αυτόν τον τρόπο, χρησιμοποιώντας το VBA, μπορείτε να επιλέξετε τον κώδικα για να επιλέξετε τη στήλη μέχρι το τελευταίο ενεργό κελί. Όταν δεν γνωρίζουμε ποιο είναι το τελευταίο ενεργό κελί, μπορούμε να χρησιμοποιήσουμε αυτόν τον κωδικό κατά τη σύνταξη του κώδικα VBA για την επιλογή στο Microsoft Excel.
Πώς να επιλέξετε ολόκληρη τη σειρά μέσω VBA;
Έχουμε δεδομένα στο εύρος A1: C19, στα οποία η στήλη A περιέχει όνομα, η στήλη B φύλο και η στήλη C περιέχει ηλικία.
Για να επιλέξετε ολόκληρη τη σειρά σε αυτά τα δεδομένα, ακολουθήστε τα παρακάτω βήματα και κωδικό:-
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11
- Εισαγάγετε μια ενότητα
- Γράψτε τον παρακάτω κωδικό:-
Sub rowselect () Range ("A2"). EntireRow.Select End Sub
- Πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Η στήλη Α θα επιλεγεί
Εάν θέλετε, τα δεδομένα θα πρέπει να επιλεγούν μέχρι το τελευταίο ενεργό κελί στη σειρά, ακολουθήστε τα παρακάτω βήματα και κωδικό:-
- Γράψτε τον παρακάτω κωδικό:-
Sub rowselect () Dim lastcolumn As Long lastcolumn As Long lastcolumn = Worksheets ("Sheet1"). Cells (1, Columns.count). End (xlToLeft). Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn )). Επιλέξτε Τέλος υπο
Επεξήγηση κώδικα: Σε αυτόν τον κώδικα είχαμε ορίσει πρώτα την τελευταία στήλη και μετά θα την χρησιμοποιήσουμε για να ορίσουμε το εύρος.
- Πατήστε F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Η πρώτη σειρά θα επιλεγεί μέχρι το τελευταίο ενεργό κελί της σειράς
Με αυτόν τον τρόπο μπορούμε να επιλέξουμε ολόκληρη τη σειρά ή να επιλέξουμε τη σειρά μέχρι το τελευταίο ενεργό κελί στο Microsoft Excel μέσω VBA.
Πώς να επιλέξετε ολόκληρα δεδομένα μέσω VBA;
Ας πάρουμε ένα παράδειγμα και καταλάβουμε:-
Έχουμε δεδομένα στο εύρος A1: C19, στα οποία η στήλη A περιέχει όνομα, η στήλη B φύλο και η στήλη C περιέχει ηλικία.
Για να επιλέξετε τα δεδομένα από το πρώτο κελί στο τελευταίο ενεργό κελί ακολουθήστε τα παρακάτω βήματα και κωδικό:-
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11
- Εισαγάγετε μια ενότητα
- Γράψτε τον παρακάτω κωδικό:
Υποεπιλογή .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Επιλέξτε End Sub
Επεξήγηση κώδικα: Πρώτα ορίσαμε το όνομα θέματος του κώδικα και μετά ορίσαμε όλες τις μεταβλητές. Στη συνέχεια, ορίσαμε ποια θα ήταν η τελευταία σειρά και η τελευταία στήλη μας.
- Πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Στο φύλλο εργασίας θα επιλεγούν όλα τα δεδομένα
Τώρα, εάν θέλετε να αντιγράψετε τα ίδια δεδομένα και να τα επικολλήσετε, χρησιμοποιήστε τον παρακάτω κωδικό:-
Υποεπιλογή .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub
Εκτελέστε τον κώδικα όλα τα δεδομένα θα αντιγραφούν και θα επικολληθούν στο φύλλο 2.
Αυτός είναι ο τρόπος με τον οποίο μπορούμε να γράψουμε τη μακροεντολή για την επιλογή των δεδομένων από το πρώτο κελί στο τελευταίο ενεργό κελί και στη συνέχεια να επικολλήσουμε σε άλλο φύλλο στο Microsoft Excel.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email.