Zmeňte veľkosť rozsahu pomocou VBA
Tento tutoriál vám ukáže, ako používať Zmeniť veľkosť majetku z Objekt dosahu zmeniť, aby sa vrátil nový rozsah zmenený z pôvodného objektu Range.
Syntax
Syntax vlastnosti Resize je:
1 | Rozsah („A1“). Zmeniť veľkosť (veľkosť riadka, veľkosť stĺpca) |
Kde Rozsah („A1“) je váš počiatočný rozsah.
Veľkosť riadka a veľkosť stĺpca musia byť väčšie ako nula. Každý vstup je voliteľný (napr. Môžete vynechať RowSize, aby ste zmenili iba počet stĺpcov, alebo naopak).
Zmeňte veľkosť počtu riadkov a stĺpcov
Nasledujúci príklad rozširuje rozsah o jednu bunku A1 na rozsah A1: D10 zvýšením počtu riadkov na 10 a stĺpcov na 5.
1 | Rozsah („A1“). Zmeňte veľkosť (10, 5). Vyberte |
Alebo bežnejšie priradíte rozsah zmeny veľkosti premennej:
12 | „Zmeňte veľkosť rozsahu na požadovanú veľkosť a priraďte premennejNastaviť newRng = ActiveSheet.Range ("A1"). Zmeniť veľkosť (10, 5) |
Zmeniť veľkosť iba počtu riadkov
Nasledujúci príklad mení iba počet riadkov:
12 | „Zmeniť iba veľkosť riadka, nový rozsah bude $ A $ 1: $ A $ 10Nastaviť newRng = rng.Resize (10) |
Zmeniť veľkosť iba počtu stĺpcov
Nasledujúci príklad mení iba počet stĺpcov:
12 | „Zmeniť iba veľkosť stĺpca, nový rozsah bude $ A $ 1: $ E $ 1Nastaviť newRng = rng.Resize (, 5) |
Zmeniť veľkosť rozsahu tabuľky tak, aby sa vylúčila hlavička
Ak máte tabuľku na aktívnom hárku s riadkom hlavičky, kód najskôr vyberie celú tabuľku a potom sa posunie o jeden riadok nadol, aby sa hlavička vylúčila pomocou metódy Range.Offset. Potom použije vlastnosť Range.Resize na zmenšenie veľkosti o jeden riadok.
1234567891011 | Sub SelectTableData ()„** DÔLEŽITÉ **'Pred spustením makra kliknite na ľubovoľnú bunku tabuľky'Posuňte sa o jeden riadok nadol pomocou položky Offset a potom zmenšite veľkosť rozsahu o jeden riadokNastaviť tbl = ActiveCell.CurrentRegion.Offset (1, 0). Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)'Údaje sú vybrané bez riadka hlavičkytbl.Address.SelectKoniec pod |
Napíšte 2-D pole na dosah
Ďalším bežným používaním je zápis 2 -rozmerného poľa na list. Pretože rozsah, ktorý sa má zapísať, by mal zodpovedať veľkosti poľa, ktorá zvyčajne nie je vopred známa, na nastavenie výstupného rozsahu sa používa metóda Resize
Nasledujúci príklad prečíta údaje v rozsahu A1: E10 v aktívnom hárku do poľa a zapíše pole na hárok „Výstup“ od bunky A1:
123456 | Sub WriteArray ()„Prečítajte údaje do poľadata = Range ("A1: E10"). Hodnota„Zmeňte veľkosť výstupného rozsahu a napíšte polePracovné listy („Výstup“). Rozsah („A1“). Zmena veľkosti (UBound (údaje, 1), UBound (údaje, 2)). Hodnota = údajeKoniec pod |
Scenár: Vinamra Chandra