Πώς να χρησιμοποιήσετε το VBA για να επιλέξετε εύρος από το ενεργό κελί στο Excel (3 μέθοδοι)

Hugh West

20-08-2023 Μακροεντολές & Excel VBA
  • Μοιραστείτε Αυτό
Hugh West

Θα σας δείξουμε 3 μέθοδοι στο Excel VBA στο επιλέξτε εύρος από το ενεργό κύτταρο Για να το δείξουμε αυτό, επιλέξαμε ένα σύνολο δεδομένων με 3 στήλες : " Όνομα ", " Επώνυμο ", και " Ηλεκτρονικό ταχυδρομείο ". Θα επιλέξουμε ένα κύτταρο και χρησιμοποιώντας Excel VBA θα επιλέξουμε το εύρος από αυτό κύτταρο .

Κατεβάστε το βιβλίο ασκήσεων

Επιλέξτε εύρος από το ενεργό Cell.xlsm

3 τρόποι για να επιλέξετε εύρος από το ενεργό κελί χρησιμοποιώντας το VBA στο Excel

1. Χρήση της VBA για την επιλογή εύρους από το ενεργό κελί έως το τελευταίο μη κενό κελί

Για την πρώτη μέθοδο, θα χρησιμοποιήσουμε το Range.End ιδιοκτησία.

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

Βήματα:

  • Πρώτον, από το Προγραμματιστής tab>>>> select Visual Basic .

Το Visual Basic θα εμφανιστεί το παράθυρο.

  • Τέλος, από Εισαγωγή >>> επιλέξτε Ενότητα .

Αυτό θα εμφανίσει το Ενότητα παράθυρο.

1.1. Χρήση της ιδιότητας End(xlUp)

Σε αυτή την ενότητα, θα επιλέξουμε το εύρος προς τα πάνω μέχρι την τελευταία μη κενό κελί από το ενεργό κύτταρο .

Βήματα:

  • Πρώτον, εμφανίστε το Ενότητα παράθυρο.
  • Δεύτερον, τύπος τον ακόλουθο κώδικα. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Καλούμε το Υπο Διαδικασία ToUp . Στη συνέχεια, επιλέγουμε το εύρος Η πρώτη τιμή είναι η ενεργό κύτταρο Η τελευταία τιμή είναι ActiveCell.End(xlUp) . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Τρίτον, Αποθήκευση και κλείστε το παράθυρο.
  • Μετά από αυτό, επιλέξτε κύτταρο C6 . κύτταρο είναι η δική μας ενεργό κύτταρο .

Τώρα, θα φέρουμε το Μάκρο ...παράθυρο. Για να το κάνετε αυτό...

  • Από το Προγραμματιστής tab>>>> select Μακροεντολές .

Μετά από αυτό, το Μάκρο παράθυρο διαλόγου θα εμφανιστεί.

  • Στη συνέχεια, επιλέξτε " ToUp " από το " Όνομα μακροεντολής: ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Μπορούμε να το δούμε αυτό, έχουμε επιλεγμένο το εύρος κελιών C4:C6 .

Διαβάστε περισσότερα: Excel VBA: Αντιγραφή δυναμικής περιοχής σε άλλο βιβλίο εργασίας

1.2. Ενσωμάτωση της ιδιότητας End(xlDown)

Σε αυτή την ενότητα, θα επιλέξουμε το εύρος προς τα κάτω από το ενεργό κύτταρο .

Βήματα:

  • Πρώτον, εμφανίστε το Ενότητα παράθυρο.
  • Δεύτερον, τύπος τον ακόλουθο κώδικα. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Καλούμε το Υπο Διαδικασία ToDown . Στη συνέχεια, επιλέγουμε το εύρος Η πρώτη τιμή είναι η ενεργό κύτταρο Η τελευταία τιμή είναι ActiveCell.End(xlDown) . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Τρίτον, Αποθήκευση και κλείστε το παράθυρο.
  • Μετά από αυτό, επιλέξτε κύτταρο C6 Αυτό είναι το δικό μας ενεργό κύτταρο .

  • Στη συνέχεια, εμφανίστε το Παράθυρο διαλόγου μακροεντολών .
  • Επιλέξτε " ToDown ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Έτσι, έχουμε επιλεγμένο a εύρος από το ενεργό κύτταρο χρησιμοποιώντας το Excel VBA .

Διαβάστε περισσότερα: Excel VBA για βρόγχο σε σειρά μέχρι το κενό κελί (4 παραδείγματα)

Παρόμοια άρθρα

  • Excel VBA: Βρόχος μέσω στηλών σε σειρά (5 παραδείγματα)
  • Πώς να χρησιμοποιήσετε το VBA για κάθε γραμμή σε μια σειρά στο Excel
  • Μακροεντολή Excel: Ταξινόμηση πολλαπλών στηλών με δυναμικό εύρος (4 μέθοδοι)
  • VBA για να κάνετε βρόχο σε σειρές και στήλες σε μια σειρά στο Excel (5 παραδείγματα)
  • Πώς να μετατρέψετε σειρά σε συστοιχία στο Excel VBA (3 τρόποι)

1.3. Εφαρμογή της ιδιότητας End(xlToLeft)

Σε αυτή την ενότητα, θα επιλέξουμε το εύρος στο αριστερά του ενεργό κύτταρο .

Βήματα:

  • Πρώτον, εμφανίστε το Ενότητα παράθυρο.
  • Δεύτερον, τύπος τον ακόλουθο κώδικα. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Καλούμε το Υπο Διαδικασία ToLeft . Στη συνέχεια, επιλέγουμε το εύρος Η πρώτη τιμή είναι η ενεργό κύτταρο Η τελευταία τιμή είναι ActiveCell.End(xlToLeft) . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Τρίτον, Αποθήκευση και κλείστε το παράθυρο.
  • Μετά από αυτό, επιλέξτε κελί D7 Αυτό είναι το δικό μας ενεργό κύτταρο .

  • Στη συνέχεια, εμφανίστε το Παράθυρο διαλόγου μακροεντολών .
  • Επιλέξτε " ToLeft ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Έτσι, έχουμε επιλεγμένο a εύρος από το ενεργό κύτταρο χρησιμοποιώντας το Excel VBA .

1.4. Υλοποίηση της ιδιότητας End(xlToRight)

Σε αυτή την ενότητα, θα επιλέξουμε το εύρος στο δεξιά του ενεργό κύτταρο .

Βήματα:

  • Πρώτον, εμφανίστε το Ενότητα παράθυρο.
  • Δεύτερον, τύπος τον ακόλουθο κώδικα. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Καλούμε το Υποδιαδικασία ToRight . Στη συνέχεια, επιλέγουμε το εύρος Η πρώτη τιμή είναι η ενεργό κύτταρο Η τελευταία τιμή είναι ActiveCell.End(xlToRight) . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Τρίτον, Αποθήκευση και κλείστε το παράθυρο.
  • Μετά από αυτό, επιλέξτε κύτταρο C8 Αυτό είναι το δικό μας ενεργό κύτταρο .

  • Στη συνέχεια, εμφανίστε το Παράθυρο διαλόγου μακροεντολών .
  • Επιλέξτε " ToRight ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Έτσι, έχουμε επιλεγμένο a εύρος από το ενεργό κύτταρο χρησιμοποιώντας το Excel VBA .

2. Χρήση της ιδιότητας Range.Offset της VBA για την επιλογή εύρους από το ενεργό κελί με χρήση της VBA στο Excel

Για τη δεύτερη μέθοδο, θα χρησιμοποιήσουμε το VBA Range.Offset ιδιότητα για να επιλέξετε το εύρος χρησιμοποιώντας το ενεργό κύτταρο .

Βήματα:

  • Πρώτον, τύπος τον ακόλουθο κώδικα στο Ενότητα παράθυρο. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Δημιουργήσαμε το δικό μας Υποδιαδικασία UsingOffset . Στη συνέχεια, επιλέγουμε το εύρος Η πρώτη τιμή είναι η ενεργό κύτταρο Η τελευταία τιμή είναι ActiveCell.Offset (1,2) . Με το Ιδιότητα Offset κινούμαστε 1 σειρά προς τα κάτω και 2 στήλες δεξιά . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Δεύτερον, Αποθήκευση και κλείστε το παράθυρο.
  • Μετά από αυτό, επιλέξτε κελί Β8 Αυτό είναι το δικό μας ενεργό κύτταρο .

  • Στη συνέχεια, εμφανίστε το Παράθυρο διαλόγου μακροεντολών .
  • Επιλέξτε " UsingOffset ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Εν κατακλείδι, έχουμε επιλεγμένο a εύρος από το ενεργό κύτταρο . Επιπλέον, το τελικό βήμα θα πρέπει να μοιάζει με αυτό.

Διαβάστε περισσότερα: Excel VBA: Λήψη περιοχής κελιών με τιμές (7 παραδείγματα)

3. Επιλογή περιοχής από το ενεργό κελί με χρήση της VBA στο Excel με χρήση της ιδιότητας CurrentRegion

Για την τελευταία μέθοδο, θα χρησιμοποιήσουμε το Range.CurrentRegion ιδιοκτησία.

Βήματα:

  • Πρώτον, τύπος τον ακόλουθο κώδικα στο Ενότητα παράθυρο. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Καλούμε το Υπο Διαδικασία cRegion . Στη συνέχεια, επιλέγουμε το εύρος . Με το CurrentRegion ιδιότητα, επιλέγουμε το εύρος μέχρι και ένα κενό κελί . Τέλος, επιλέγουμε το εύρος με το Εύρος . Επιλέξτε μέθοδος.

  • Δεύτερον, Αποθήκευση και επιστρέψτε στο Excel φύλλο.
  • Μετά από αυτό, επιλέξτε κελί C10 Αυτό είναι το δικό μας ενεργό κύτταρο .

  • Στη συνέχεια, εμφανίστε το Παράθυρο διαλόγου μακροεντολών .
  • Επιλέξτε " cRegion ".
  • Τέλος, κάντε κλικ στο Εκτέλεση .

Έτσι, έχουμε επιλεγμένο το εύρος μέχρι και ένα κενό κελί .

Τμήμα πρακτικής

Έχουμε παράσχει σύνολα δεδομένων πρακτικής για κάθε μέθοδο στο Excel αρχείο.

Συμπέρασμα

Σας δείξαμε 3 μέθοδοι Excel VBA επιλέξτε εύρος από το ενεργό κύτταρο Αν αντιμετωπίζετε οποιοδήποτε πρόβλημα κατανόησης των βημάτων, μη διστάσετε να σχολιάσετε παρακάτω. Ευχαριστούμε για την ανάγνωση, συνεχίστε να διαπρέπετε!

Προηγούμενη ανάρτηση Πώς να μετατρέψετε ημερομηνία σε κείμενο YYYYMMDD (3 γρήγοροι τρόποι)
Επόμενη ανάρτηση Πώς να χρησιμοποιήσετε τη λειτουργία DIR της VBA στο Excel (7 πρακτικά παραδείγματα)

Ο Hugh West είναι ένας εξαιρετικά έμπειρος εκπαιδευτής και αναλυτής του Excel με πάνω από 10 χρόνια εμπειρίας στον κλάδο. Είναι κάτοχος πτυχίου Λογιστικής και Χρηματοοικονομικής και μεταπτυχιακού στη Διοίκηση Επιχειρήσεων. Ο Hugh έχει πάθος για τη διδασκαλία και έχει αναπτύξει μια μοναδική προσέγγιση διδασκαλίας που είναι εύκολο να ακολουθηθεί και να κατανοηθεί. Οι εξειδικευμένες γνώσεις του στο Excel έχουν βοηθήσει χιλιάδες φοιτητές και επαγγελματίες παγκοσμίως να βελτιώσουν τις δεξιότητές τους και να διαπρέψουν στην καριέρα τους. Μέσω του ιστολογίου του, ο Hugh μοιράζεται τις γνώσεις του με τον κόσμο, προσφέροντας δωρεάν μαθήματα Excel και διαδικτυακή εκπαίδευση για να βοηθήσει άτομα και επιχειρήσεις να αξιοποιήσουν πλήρως τις δυνατότητές τους.