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

Πίνακας περιεχομένων

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

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

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

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

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

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

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

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

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

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

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

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

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

Κώδικας:

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

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

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

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

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

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

Κώδικας:

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

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

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

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

Κώδικας:

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

What this code will do is it will select only three rows, including the active cell row but no extra columns.

Example #3

Use Resize To Select Unknown Ranges. Resize is best utilized when you want to select an unknown range of cells. For example, look at the below image of the data range.

It has data all the ways from Column A to Column P and row-wise we have up until the 700th row.

Assume you know your data will keep changing, and you want to select the data range every now and then by manually changing the row and column number. However, by using VBA RESIZE property, we can do this easily.

Look at the below code.

Code:

Sub Resize_Example1() Dim LR As Long Dim LC As Long Worksheets("Sales Data").Select LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, 1).Resize(LR, LC).Select End Sub

First, I have declared two variables to find the last used row (LR) and the last used column (LC).

Dim LR As Long Dim LC As Long

Since our data is in the worksheet named “Sales Data,” we are choosing this worksheet by using the below code.

Worksheets(“Sales Data”).Select

Now below code will find the last used row and last used column.

LR = Cells(Rows.Count, 1).End(xlUp).Row

LC = Cells(1, Columns.Count).End(xlToLeft).Column

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

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

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

ενδιαφέροντα άρθρα...