Diapazona lieluma maiņa, izmantojot VBA
Šī apmācība parādīs, kā lietot Mainīt īpašuma lielumu no Diapazona objekts mainīt, lai atgrieztos jauns diapazons, kura izmērs ir mainīts no sākotnējā diapazona objekta.
Sintakse
Rekvizīta lieluma maiņa ir šāda:
| 1 | Diapazons ("A1"). Mainīt izmērus (RowSize, ColumnSize) |
Kur diapazons (“A1”) ir jūsu sākuma diapazons.
RowSize un ColumnSize lielumam jābūt lielākam par nulli. Katra ievade nav obligāta (piemēram, varat izlaist RowSize, lai mainītu tikai kolonnu skaitu vai otrādi).
Mainīt rindu un kolonnu skaitu
Šis piemērs paplašina diapazonu ar vienu šūnu A1 līdz diapazonam A1: D10, palielinot rindu skaitu līdz 10 un kolonnu skaitu līdz 5.
| 1 | Diapazons ("A1"). Mainīt izmērus (10, 5). Atlasiet |
Vai biežāk maināmo diapazonu piešķirsiet mainīgajam:
| 12 | 'Mainiet diapazonu līdz vajadzīgajam izmēram un piešķiriet mainīgajamIestatīt newRng = ActiveSheet.Range ("A1"). Mainīt izmērus (10, 5) |
Mainīt tikai rindu skaitu
Šis piemērs maina tikai rindu skaitu:
| 12 | “Mainīt tikai rindas lielumu, jauns diapazons būs $ A $ 1: $ A $ 10Iestatīt newRng = rng. Izmērs (10) |
Mainīt tikai kolonnu skaitu
Šis piemērs maina tikai kolonnu skaitu:
| 12 | Mainīt tikai kolonnas lielumu, jaunais diapazons būs $ A $ 1: $ E $ 1Iestatīt newRng = rng. Izmērs (, 5) |
Mainiet tabulas diapazona lielumu, lai izslēgtu galveni
Ja jums ir tabula aktīvajā lapā ar galvenes rindu, kods vispirms atlasīs visu tabulu, pēc tam pārvietos vienu rindu uz leju, lai izslēgtu galveni, izmantojot Range.Offset metodi. Pēc tam tas izmantos rekvizītu Range.Resize, lai samazinātu izmēru par vienu rindu.
| 1234567891011 | Sub SelectTableData ()' **SVARĪGS**'Pirms makro palaišanas noklikšķiniet uz jebkuras tabulas šūnas'Pārvietojieties uz leju par vienu rindu, izmantojot nobīdi, un pēc tam samaziniet diapazona lielumu par vienu rinduIestatīt tbl = ActiveCell.CurrentRegion.Offset (1, 0). Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)“Dati ir atlasīti, izņemot galvenes rindutbl. Adrese. IzvēlietiesBeigu apakš |
Uzrakstiet 2-D masīvu diapazonā
Vēl viens izplatīts lietojums ir uz lapas rakstīt 2 dimensiju masīvu. Tā kā rakstāmajam diapazonam jāatbilst masīva lielumam, kas parasti nav zināms iepriekš, izvades diapazona iestatīšanai tiek izmantota Resize metode
Tālāk esošajā piemērā tiks nolasīti dati diapazonā A1: E10 aktīvajā lapā uz masīvu un masīvs tiks ierakstīts lapā “Izvads”, sākot no šūnas A1:
| 123456 | Sub WriteArray ()"Izlasiet datus masīvādati = diapazons ("A1: E10"). Vērtība'Mainiet izvades diapazona izmērus un uzrakstiet masīvuDarblapas ("Izvade"). Diapazons ("A1"). Mainīt izmērus (UBound (dati, 1), UBound (dati, 2)). Vērtība = datiBeigu apakš |
Autors: Vinamra Čandra
