Tartomány átméretezése VBA használatával
Ez az oktatóanyag bemutatja, hogyan kell használni Tulajdon átméretezése a Tartomány objektum változtatni, hogy az eredeti tartomány -objektumból átméretezett új tartományt adja vissza.
Szintaxis
Az Átméretezés tulajdonság szintaxisa a következő:
| 1 | Tartomány ("A1"). Átméretezés (RowSize, ColumnSize) |
Ahol a tartomány („A1”) a kiindulási tartomány.
A RowSize és az ColumnSize nagyobbnak kell lennie, mint a nulla. Minden bemenet opcionális (pl. Kihagyhatja a RowSize-t, hogy csak az oszlopok számát módosítsa, vagy fordítva).
Sorok és oszlopok számának átméretezése
A következő példa kiterjeszti a tartományt egy A1 cellával az A1: D10 tartományra, a sorok számát 10 -re, az oszlopokat pedig 5 -re növelve.
| 1 | Tartomány ("A1"). Átméretezés (10, 5). Válassza ki |
Vagy gyakrabban hozzárendeli az átméretezett tartományt egy változóhoz:
| 12 | 'Átméretezze a tartományt a kívánt méretre, és rendeljen hozzá egy változótNewRng = ActiveSheet.Range ("A1") beállítása. Átméretezés (10, 5) |
Csak a sorok átméretezése
Az alábbi példa csak a sorok számát módosítja:
| 12 | „Csak a sor méretének módosítása, az új tartomány $ A $ 1: $ A $ 10 leszNewRng = rng beállítása. Átméretezés (10) |
Csak az oszlopok számának átméretezése
Az alábbi példa csak az oszlopok számát módosítja:
| 12 | 'Csak az oszlopméret módosítása, az új tartomány $ A $ 1: $ E $ 1 leszNewRng = rng beállítása. Átméretezés (, 5) |
A táblázat tartományának átméretezése a fejléc kizárásához
Ha aktív táblán van fejlécesorú táblája, akkor a kód először a teljes táblázatot választja ki, majd egy sorral lejjebb lép, hogy kizárja a fejlécet a Range.Offset módszerrel. Ezután a Range.Resize tulajdonságot használja a méret egy sorral történő csökkentésére.
| 1234567891011 | Sub SelectTableData ()'** FONTOS **'Kattintson a táblázat bármely cellájára a makró futtatása előtt'Lépjen egy sorral lejjebb az eltolás használatával, majd csökkentse a tartomány méretét egy sorralTbl = ActiveCell.CurrentRegion.Offset (1, 0) beállítása. Átméretezés (tbl.Rows.Count - 1, _tbl. Oszlopok. Szám)'Az adatok a fejléc sor kivételével vannak kiválasztvatbl. Cím. Válassza kiEnd Sub |
Írjon 2-D tömböt a tartományba
Egy másik gyakori használat, hogy 2 dimenziós tömböt írnak a lapra. Mivel az írandó tartománynak meg kell egyeznie a tömb méretével, amely általában nem ismert előre, a Resize módszer a kimeneti tartomány beállítására szolgál
Az alábbi példa az A1: E10 tartomány adatait olvassa be az aktív lapon egy tömbbe, és írja ki a tömböt az „Output” lapra az A1 cellából kiindulva:
| 123456 | Sub WriteArray ()'Olvassa el az adatokat egy tömbhözadatok = Tartomány ("A1: E10"). Érték'Méretezze át a kimeneti tartományt, és írja be a tömbötMunkalapok ("Kimenet"). Tartomány ("A1"). Átméretezés (UBound (adatok, 1), UBound (adatok, 2)). Érték = adatokEnd Sub |
Írta: Vinamra Chandra
