VBA για να ορίσετε εύρος στο Excel (7 παραδείγματα)

Hugh West

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

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

Λήψη βιβλίου εργασίας

Μπορείτε να κατεβάσετε το δωρεάν βιβλίο ασκήσεων Excel από εδώ.

Ορισμός εύρους σε VBA.xlsm

Αντικείμενο σειράς VBA

Το Εύρος αντικείμενο στο VBA μπορεί να περιέχει ένα μόνο κελί, πολλαπλά κελιά, γραμμές, στήλες μέσα στο φύλλο εργασίας του Excel.

Η ιεραρχία του Εύρος αντικείμενο είναι το παρακάτω.

Εφαρμογή> Βιβλίο εργασίας> Φύλλο εργασίας> Εύρος

Με αυτόν τον τρόπο θα πρέπει να δηλώσετε το Εύρος αντικείμενο στο VBA .

7 παραδείγματα σχετικά με τον τρόπο ορισμού εύρους στο VBA Excel

Αυτή η ενότητα θα συζητήσει πώς να ορίσετε μια περιοχή σε ένα μόνο κελί, πολλαπλά κελιά, μια γραμμή, πολλαπλές γραμμές, μια στήλη, πολλαπλές στήλες και να ορίσετε μια περιοχή μέσω του κουμπιού εντολών στο VBA Excel.

1. Ορισμός περιοχής σε ένα μόνο κελί στην VBA

Εδώ θα δούμε πώς να Ορισμός εύρους σε ένα μεμονωμένο κύτταρο με VBA .

Βήματα:

  • Τύπος Alt + F11 στο πληκτρολόγιό σας ή πηγαίνετε στην καρτέλα Προγραμματιστής -> Visual Basic για να ανοίξετε Visual Basic Editor .

  • Στο αναδυόμενο παράθυρο κώδικα, από τη γραμμή μενού, κάντε κλικ στην επιλογή Εισαγωγή -> Ενότητα .

  • Αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον στο παράθυρο κώδικα. 
 Sub RangeOneCell() Range("B2").Value = "Hello World" End Sub

Ορίστε,

B2 = το κελί στο οποίο θέλουμε να ορίσουμε την τιμή. Μπορείτε να ορίσετε οποιονδήποτε αριθμό αναφοράς κελιού που χρειάζεστε.

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Τύπος F5 στο πληκτρολόγιό σας ή από τη γραμμή μενού επιλέξτε Εκτέλεση -> Εκτέλεση Sub/UserForm Μπορείτε επίσης να κάνετε κλικ στο μικρό εικονίδιο Play στη γραμμή υπομενού για να εκτελέσετε τη μακροεντολή.

Κελί B2 περιέχει τώρα την τιμή " Γεια σου κόσμε ".

Διαβάστε περισσότερα: VBA για κάθε κελί σε σειρά στο Excel

2. Ορισμός περιοχής σε πολλαπλά κελιά στην VBA

Εδώ θα δούμε πώς να Ορισμός εύρους στο πολλαπλά κύτταρα με VBA .

Βήματα:

  • Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
  • Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον. 
 Sub RangeCells() Range("A1:D5").Value = "Hello!" End Sub

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Εκτέλεση τη μακροεντολή και όλα τα κελιά από A1 στο D5 τώρα κρατήστε το " Γεια σας! "

3. Ορισμός εύρους σε μία μόνο γραμμή στην VBA

Εδώ θα δούμε πώς να Ορισμός εύρους σε ένα μονή σειρά με VBA .

Βήματα:

  • Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
  • Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον. 
 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(3).Value = "Hello!" End Sub

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Εκτέλεση η μακροεντολή και μόνο η 3η γραμμή από όλες τις γραμμές του A1 στο D5 τώρα κρατήστε το " Γεια σας! "

  • Rows(3).Value στον κώδικα έδινε πρόσβαση στο 3η γραμμή της συγκεκριμένης περιοχής A1:D5 .

4. Ορισμός εύρους σε πολλαπλές σειρές στην VBA

Εδώ θα δούμε πώς να Ορισμός εύρους στο πολλαπλές γραμμές με VBA .

Βήματα:

  • Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
  • Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον. 
 Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(1).Value = "Hello!" iRow.Rows(3).Value = "Hello!" iRow.Rows(5).Value = "Hello!" End Sub

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Εκτέλεση η μακροεντολή και η 1η , 3η και 5η σειρές από όλες τις σειρές από A1 στο D5 τώρα κρατήστε το " Γεια σας! "

Παρόμοιες αναγνώσεις:

  • Πώς να επιλέξετε σειρά με βάση την τιμή κελιού VBA (7 τρόποι)
  • Χρήση του αντικειμένου Range της VBA στο Excel (5 ιδιότητες)
  • Πώς να χρησιμοποιήσετε το VBA Range Offset (11 τρόποι)
  • Σειρά VBA με μεταβλητό αριθμό γραμμής στο Excel (4 παραδείγματα)

5. Ορισμός σειράς σε μεμονωμένη στήλη στη VBA

Εδώ θα δούμε πώς να Ορισμός εύρους σε ένα μονή στήλη με VBA .

Βήματα:

  • Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
  • Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον. 
 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" End Sub

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Εκτέλεση η μακροεντολή και μόνο η 2η από όλες τις στήλες του A1 στο D5 τώρα κρατήστε το " Γεια σας! "

  • iCol.Columns(2).Value στον κώδικα έδινε πρόσβαση στο 2η στήλη του συγκεκριμένου εύρους A1:D5 .

6. Ορισμός εύρους σε πολλαπλές στήλες στην VBA

Εδώ θα δούμε πώς να Ορισμός εύρους στο πολλαπλές στήλες με VBA .

Βήματα:

  • Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
  • Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον. 
 Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "Hello!" iCol.Columns(4).Value = "Hello!" End Sub

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

  • Εκτέλεση η μακροεντολή και η 2η και 4η στήλες από A1 στο D5 τώρα κρατήστε το " Γεια σας! "

7. Ορισμός εύρους μέσω κουμπιού εντολών στην VBA

Εδώ θα μάθουμε πώς να Ορισμός εύρους χρησιμοποιώντας το Κουμπί εντολών στο VBA .

Βήματα:

  • Πηγαίνετε στο Προγραμματιστής -> Εισαγωγή -> Κουμπί εντολών .
    • Βεβαιωθείτε ότι έχετε Λειτουργία σχεδιασμού ενεργοποιήθηκε.

  • Drag γύρω από το Κουμπί εντολών στο φύλλο.

  • Διπλό κλικ στο κουμπί και θα σας μεταφέρει στο παράθυρο του κώδικα, που δημιουργείται αυτόματα με ένα Κώδικας υπο-διαδικασίας VBA .

  • Μέσα στο Sub, γράψτε τον κώδικά σας και Αποθήκευση.

  • Επιστρέψτε στο φύλλο εργασίας που σας ενδιαφέρει και κάντε κλικ στο κουμπί Κουμπί εντολών Το αποτέλεσμα με βάση τον κώδικά σας θα εμφανιστεί στο φύλλο εργασίας.

Πλεονεκτήματα της VBA Set Range

  • Είναι πολύ εύκολο να εφαρμοστεί.
  • Τα ορίσματα μέσα στην εντολή Εύρος δεν είναι σταθερές. Έτσι μπορούμε να τροποποιήσουμε τις τιμές του επιχειρήματος ανάλογα με τις ανάγκες μας.
  • Περισσότερες από 1 τιμές μπορούν να περάσουν ως ορίσματα.

Πράγματα που πρέπει να θυμάστε

  • ΚΥΤΤΑΡΑ ιδιότητες σε VBA μπορεί επίσης να χρησιμοποιηθεί για να ρυθμίσετε το Εύρος στο VBA .
  • Οι μεταβλητές αντικειμένων θα πρέπει να οριστούν ως αναφορά του αντικειμένου από την εντολή SET

Συμπέρασμα

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

Προηγούμενη ανάρτηση Πώς να χρησιμοποιήσετε τη συνάρτηση ISNUMBER στο Excel (7 παραδείγματα)
Επόμενη ανάρτηση Πώς να κάνετε το VLOOKUP ευαίσθητο στην περίπτωση στο Excel (4 μέθοδοι)

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