Promijenite veličinu raspona pomoću VBA
Ovaj će vodič pokazati kako se koristi Promijeni veličinu imovine od Objekt dometa promijeniti kako bi se vratio novi raspon promijenjen u odnosu na izvorni objekt Range.
Sintaksa
Sintaksa za svojstvo Resize je:
1 | Raspon ("A1"). Promijeni veličinu (RowSize, ColumnSize) |
Gdje je raspon (“A1”) vaš početni raspon.
RowSize i ColumnSize moraju biti veći od nule. Svaki je unos neobavezan (npr. Možete izostaviti RowSize da biste promijenili samo broj stupaca ili obrnuto).
Promijenite veličinu redaka i stupaca
Sljedeći primjer proširuje raspon s jednom ćelijom A1 na raspon A1: D10 povećanjem broja redaka na 10 i broja stupaca na 5.
1 | Raspon ("A1"). Promijenite veličinu (10, 5). Odaberite |
Ili, češće ćete raspon promijenjene veličine dodijeliti varijabli:
12 | 'Promijenite veličinu raspona na željenu veličinu i dodijelite varijabliPostavi newRng = ActiveSheet.Range ("A1"). Promijeni veličinu (10, 5) |
Promijeni veličinu samo redova
Sljedeći primjer mijenja samo broj redaka:
12 | 'Promijenite samo veličinu retka, novi raspon bit će $ A $ 1: $ A $ 10Postavi newRng = rng.Premjeri (10) |
Promijeni veličinu samo kolona
Sljedeći primjer mijenja samo broj stupaca:
12 | 'Promijeni samo veličinu stupca, novi raspon bit će $ A $ 1: $ E $ 1Postavi newRng = rng.Premjeri (, 5) |
Promijenite veličinu raspona tablice da biste isključili zaglavlje
Ako imate tablicu na aktivnom listu s retkom zaglavlja, kôd će prvo odabrati cijelu tablicu, a zatim pomaknuti jedan redak prema dolje kako bi isključio zaglavlje metodom Range.Offset. Zatim će koristiti svojstvo Range.Resize za smanjenje veličine za jedan redak.
1234567891011 | Sub SelectTableData ()'** VAŽNO **'Prije pokretanja makronaredbe kliknite bilo koju ćeliju tablice'Pomaknite se jedan redak prema dolje pomoću Offseta, a zatim smanjite veličinu raspona za jedan redakPostavi tbl = ActiveCell.CurrentRegion.Offset (1, 0) .Promijeni veličinu (tbl.Rows.Count - 1, _tbl.Columns.Count)'Podaci su odabrani isključujući redak zaglavljatbl. Adresa.OdaberiKraj podm |
Napišite 2-D niz za raspon
Druga uobičajena upotreba je upisivanje dvodimenzionalnog niza na list. Budući da raspon za pisanje treba odgovarati veličini niza, koja obično nije poznata unaprijed, metoda Resize koristi se za postavljanje izlaznog raspona
Primjer ispod očitavat će podatke u rasponu A1: E10 u aktivnom listu u niz i zapisati niz u list 'Output' počevši od ćelije A1:
123456 | Sub WriteArray ()'Očitajte podatke u nizudata = Raspon ("A1: E10"). Vrijednost'Promijenite veličinu izlaznog raspona i napišite nizRadni listovi ("Output"). Raspon ("A1"). Promjena veličine (UBound (podaci, 1), UBound (podaci, 2)). Vrijednost = podaciKraj podm |
Napisala: Vinamra Chandra