Αλλαγή μεγέθους VBA | Πώς να χρησιμοποιήσετε το Resize Property στο Excel VBA; (Με παραδείγματα)

Αλλαγή μεγέθους Excel VBA

Η αλλαγή μεγέθους είναι μια ιδιότητα διαθέσιμη στο VBA για αλλαγή ή αλλαγή μεγέθους του εύρους κελιών από το ενεργό κελί, όπως απαιτείται. Για παράδειγμα, ας υποθέσουμε ότι βρίσκεστε στο κελί B5 και από αυτό το κελί εάν θέλετε να επιλέξετε 3 σειρές και δύο στήλες, μπορούμε να αλλάξουμε το μέγεθος ενός εύρους χρησιμοποιώντας την ιδιότητα RESIZE του VBA.

Σύνταξη ιδιότητας αλλαγής μεγέθους VBA

Ακολουθεί η σύνταξη της ιδιότητας VBA RESIZE.

Εύρος (). Αλλαγή μεγέθους ([Μέγεθος γραμμής], [Μέγεθος στήλης])

Πρώτον, πρέπει να παρέχουμε από ποιο κελί πρέπει να αλλάξουμε το μέγεθος χρησιμοποιώντας το αντικείμενο Range .

Στη συνέχεια, χρησιμοποιήστε το excel VBA Resize properti και σε αυτήν την ιδιότητα, πρέπει να παρέχετε όριο μεγέθους σειράς και όριο μεγέθους στήλης . Με βάση τους αριθμούς σειράς και τον αριθμό στήλης, θα αλλάξει το μέγεθός του.

Παραδείγματα χρήσης αλλαγής μεγέθους στο VBA

Ακολουθούν τα παραδείγματα χρήσης αλλαγής μεγέθους στο excel VBA.

Μπορείτε να κατεβάσετε αυτό το Πρότυπο αλλαγής μεγέθους VBA εδώ - Πρότυπο αλλαγής μεγέθους VBA

Παράδειγμα # 1

Ας υποθέσουμε ότι έχετε δεδομένα από το κελί A1 έως B14 και από το κελί A1 εάν θέλετε να επιλέξετε 3 σειρές προς τα κάτω και δύο στήλες αριστερά, μπορούμε να το κάνουμε αυτό χρησιμοποιώντας την ιδιότητα RESIZE στο Excel VBA

Ακολουθούν τα δεδομένα που χρησιμοποιούμε για αυτό το παράδειγμα.

Έτσι, πρώτα, πρέπει να παρέχουμε την πρώτη αναφορά κελιού ή το σημείο εκκίνησης χρησιμοποιώντας το αντικείμενο RANGE, σε αυτό το παράδειγμα το σημείο εκκίνησης είναι το κελί A1.

Κώδικας:

Sub Resize_Example () Εύρος ("A1"). Τέλος Υποτ

Για αυτό το εύρος χρησιμοποιήστε την ιδιότητα RESIZE.

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (End Sub 

Το πρώτο όρισμα του RESIZE είναι το Row Size, οπότε πρέπει να επιλέξουμε 3 σειρές δεδομένων και να δώσουμε την αριθμητική τιμή του 3.

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (3, End Sub 

Το επόμενο όρισμα είναι Μέγεθος στήλης για αυτό εισάγετε πώς στήλες πρέπει να επιλέξετε, θα εισαγάγω 3 στήλες.

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (3,3) End Sub 

Μόλις ολοκληρωθεί η αλλαγή μεγέθους, πρέπει να παρέχουμε αυτό που πρέπει να κάνουμε με αυτό το εύρος. Θα επιλέξω απλώς τη μέθοδο «Επιλογή» για να ξεκινήσω.

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (3, 3). Επιλέξτε End Sub 

Εκτελέστε τον κώδικα και δείτε πόσες σειρές και πόσες στήλες θα επέλεγε.

Όπως μπορείτε να δείτε παραπάνω από το κελί Α1 έχει επιλέξει τρεις σειρές προς τα κάτω και τρεις στήλες προς τα δεξιά.

Παράδειγμα # 2

Τώρα ρίξτε μια ματιά στον παρακάτω κώδικα VBA.

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

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (0, 3). Επιλέξτε End Sub 

Εκτελέστε τον κώδικα και δείτε πόσες σειρές και πόσες στήλες θα επέλεγε.

Όπως μπορείτε να δείτε, έχει επιλέξει μόνο την ενεργή σειρά κελιού, δηλαδή 1η σειρά και τρεις στήλες. Αυτό συμβαίνει επειδή για το Row Size έχουμε προμηθεύσει κενό κελί  και για το Column Size, έχουμε προμηθεύσει 3, και κατά συνέπεια έχει επιλέξει το εύρος δεδομένων.

Τώρα, δείτε τον παρακάτω κώδικα.

Κώδικας:

 Sub Resize_Example () Range ("A1"). Resize (3). Επιλέξτε End Sub 

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

Παράδειγμα # 3

Χρησιμοποιήστε το μέγεθος για να επιλέξετε άγνωστες σειρές. Η αλλαγή μεγέθους χρησιμοποιείται καλύτερα όταν θέλετε να επιλέξετε ένα άγνωστο εύρος κελιών. Για παράδειγμα, δείτε την παρακάτω εικόνα του εύρους δεδομένων.

Διαθέτει δεδομένα από όλους τους τρόπους από τη στήλη Α έως τη στήλη P και κατά σειρά έχουμε μέχρι την 700η σειρά.

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

Κοιτάξτε τον παρακάτω κώδικα.

Κώδικας:

 Sub Resize_Example1 () Dim LR As Long Dim LC As Long Worksheets ("Data Sales"). Επιλέξτε LR = Cells (Rows.Count, 1). End (xlUp). Row LC = Cells (1, Columns.Count). End (xlToLeft). Κελιά στήλης (1, 1). Αλλαγή μεγέθους (LR, LC). Επιλέξτε End Sub 

Πρώτα έχω δηλώσει δύο μεταβλητές για να βρω την τελευταία χρησιμοποιημένη σειρά (LR) και την τελευταία χρησιμοποιημένη στήλη (LC).

 Dim LR Όσο Long Dim LC Όσο καιρό 

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

Φύλλα εργασίας ("Δεδομένα πωλήσεων"). Επιλέξτε

Τώρα κάτω από τον κώδικα θα βρείτε την τελευταία χρησιμοποιημένη σειρά και την τελευταία χρησιμοποιημένη στήλη.

LR = Κελιά (Rows.Count, 1). End (xlUp). Row

LC = Κελιά (1, Στήλες. Αριθμός). Τέλος (xlToLeft). Στήλη

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

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

  • Η αλλαγή μεγέθους της ιδιότητας στο VBA θα αλλάξει το μέγεθος του εύρους από το ενεργό κελί (συμπεριλαμβανομένου και του ενεργού κελιού).
  • Πρέπει απλώς να παρέχουμε πόσες σειρές και πόσες στήλες θα αλλάξουν το μέγεθός τους από το ενεργό κελί στο VBA.
  • Δεν μπορούμε να χρησιμοποιήσουμε αρνητικό αριθμό γραμμής και στήλης για την ιδιότητα RESIZE.