Αλλαγή μεγέθους εύρους χρησιμοποιώντας VBA
Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε το Αλλαγή μεγέθους ιδιοκτησίας απο Εύρος αντικειμένου για αλλαγή για να επιστρέψετε ένα νέο εύρος που έχει αλλάξει μέγεθος από το αρχικό αντικείμενο εύρους.
Σύνταξη
Η σύνταξη για την ιδιότητα Αλλαγή μεγέθους είναι:
| 1 | Εύρος ("A1"). Αλλαγή μεγέθους (RowSize, ColumnSize) |
Όπου το εύρος ("A1") είναι το εύρος εκκίνησης.
Το RowSize και το ColumnSize πρέπει να είναι μεγαλύτερα από μηδέν. Κάθε είσοδος είναι προαιρετική (π.χ. μπορείτε να παραλείψετε το RowSize για να αλλάξετε μόνο τον αριθμό των στηλών ή αντίστροφα).
Αλλαγή μεγέθους αριθμού σειρών και στηλών
Το ακόλουθο παράδειγμα διευρύνει το εύρος με ένα κελί A1 στο εύρος A1: D10 αυξάνοντας τον αριθμό σειρών σε 10 και τις στήλες σε 5.
| 1 | Εύρος ("A1"). Αλλαγή μεγέθους (10, 5) .Επιλέξτε |
Or, πιο συχνά θα εκχωρήσετε το εύρος αλλαγής μεγέθους σε μια μεταβλητή:
| 12 | «Αλλαγή μεγέθους εύρους στο επιθυμητό μέγεθος και εκχώρηση σε μια μεταβλητήΟρισμός newRng = ActiveSheet.Range ("A1"). Αλλαγή μεγέθους (10, 5) |
Αλλαγή μεγέθους μόνο αριθμού σειρών
Το ακόλουθο παράδειγμα αλλάζει τον αριθμό των γραμμών μόνο:
| 12 | «Αλλάξτε μόνο το μέγεθος σειράς, το νέο εύρος θα είναι $ A $ 1: $ A $ 10Ρύθμιση newRng = rng. Αλλαγή μεγέθους (10) |
Αλλαγή μεγέθους μόνο αριθμών στηλών
Το ακόλουθο παράδειγμα αλλάζει τον αριθμό των στηλών μόνο:
| 12 | "Αλλάξτε μόνο το μέγεθος στήλης, το νέο εύρος θα είναι $ A $ 1: $ E $ 1Ορισμός newRng = rng. Αλλαγή μεγέθους (, 5) |
Αλλαγή μεγέθους εύρους πίνακα για εξαίρεση κεφαλίδας
Εάν έχετε έναν πίνακα σε ενεργό φύλλο με μια γραμμή κεφαλίδας, ο κώδικας θα επιλέξει πρώτα ολόκληρο τον πίνακα και μετά θα μετακινηθεί προς τα κάτω κατά μία σειρά για να εξαιρέσει την κεφαλίδα χρησιμοποιώντας τη μέθοδο εύρους. Στη συνέχεια, θα χρησιμοποιήσει την ιδιότητα Range.Resize για να μειώσει το μέγεθος κατά μία γραμμή.
| 1234567891011 | Sub SelectTableData ()' **ΣΠΟΥΔΑΙΟΣ**Κάντε κλικ σε οποιοδήποτε κελί του πίνακα πριν εκτελέσετε τη μακροεντολή«Μετακινηθείτε προς τα κάτω κατά μία γραμμή χρησιμοποιώντας το Offset και, στη συνέχεια, μειώστε το μέγεθος εύρους κατά μία σειράΟρισμός tbl = ActiveCell.CurrentRegion.Offset (1, 0). Αλλαγή μεγέθους (tbl.Rows.Count - 1, _tbl.Columns.Count)'Τα δεδομένα επιλέγονται χωρίς τη γραμμή κεφαλίδαςtbl. Διεύθυνση. ΕπιλέξτεΤέλος υπο |
Γράψτε 2-D Array To Range
Μια άλλη κοινή χρήση είναι να γράψετε έναν πίνακα 2 διαστάσεων σε ένα φύλλο. Δεδομένου ότι το εύρος προς εγγραφή πρέπει να ταιριάζει με το μέγεθος του πίνακα, το οποίο συνήθως δεν είναι γνωστό εκ των προτέρων, η μέθοδος αλλαγής μεγέθους χρησιμοποιείται για να ορίσει το εύρος εξόδου
Το παρακάτω παράδειγμα θα διαβάσει τα δεδομένα στην περιοχή A1: E10 στο ενεργό φύλλο σε έναν πίνακα και θα γράψει τον πίνακα στο φύλλο «Έξοδος» ξεκινώντας από το κελί A1:
| 123456 | Sub WriteArray ()«Διαβάστε τα δεδομένα σε έναν πίνακαδεδομένα = Εύρος ("A1: E10"). Τιμή«Αλλάξτε το μέγεθος της περιοχής εξόδου και γράψτε τον πίνακαΦύλλα εργασίας ("Έξοδος"). Εύρος ("A1"). Αλλαγή μεγέθους (UBound (δεδομένα, 1), UBound (δεδομένα, 2)). Τιμή = δεδομέναΤέλος υπο |
Συγγραφέας: Vinamra Chandra
