Vahemiku suuruse muutmine VBA abil
See õpetus näitab, kuidas Kinnistu suuruse muutmine selle Vahemiku objekt muutmiseks, et tuua tagasi uus vahemik, mille suurust on muudetud algsest vahemiku objektist.
Süntaks
Atribuudi suuruse muutmine on järgmine:
1 | Vahemik ("A1"). Suuruse muutmine (RowSize, ColumnSize) |
Kus vahemik („A1”) on teie lähtevahemik.
RowSize ja ColumnSize peavad olema suuremad kui null. Iga sisend on valikuline (nt saate RowSize välja jätta, et muuta ainult veergude arvu või vastupidi).
Muuda ridade ja veergude arvu
Järgnev näide laiendab vahemikku ühe lahtriga A1 vahemikku A1: D10, suurendades ridade arvu 10 -ni ja veergude arvu 5 -ni.
1 | Vahemik ("A1"). Suuruse muutmine (10, 5). Valige |
Või määrate sagedamini muudetud vahemiku muutujale:
12 | 'Muutke vahemik soovitud suuruseks ja määrake muutujaleMäära newRng = ActiveSheet.Range ("A1"). Suuruse muutmine (10, 5) |
Muutke ainult ridade arvu
Järgmine näide muudab ainult ridade arvu:
12 | „Muutke ainult rea suurust, uus vahemik on $ A $ 1: $ A $ 10Määra newRng = rng. Suurus (10) |
Muutke ainult veergude arvu
Järgmine näide muudab ainult veergude arvu:
12 | „Muutke ainult veeru suurust, uus vahemik on $ A $ 1: $ E $ 1Määra newRng = rng. Suuruse muutmine (, 5) |
Päise välistamiseks muutke tabeli vahemiku suurust
Kui teil on aktiivsel lehel päisereaga tabel, valib kood kõigepealt kogu tabeli ja liigub seejärel ühe rea võrra allapoole, et päis Range.Offset meetodiga välistada. Seejärel kasutab see atribuuti Range.Resize, et vähendada suurust ühe rea võrra.
1234567891011 | Sub SelectTableData ()'** TÄHTIS **"Enne makro käivitamist klõpsake tabeli mis tahes lahtrit'Liikuge nihke abil ühe rea võrra allapoole ja seejärel vähendage vahemikku ühe rea võrraMäära tbl = ActiveCell.CurrentRegion.Offset (1, 0). Muuda suurust (tbl.Rows.Count - 1, _tbl. Veerud. Loend)„Andmed on valitud, välja arvatud päise ridatbl. Aadress. ValigeEnd Sub |
Kirjutage vahemikku 2-D massiiv
Teine levinud kasutusviis on kahemõõtmelise massiivi kirjutamine lehele. Kuna kirjutatav vahemik peaks vastama massiivi suurusele, mida tavaliselt ette ei teata, kasutatakse väljundvahemiku määramiseks suuruse muutmise meetodit
Allolev näide loeb aktiivse lehe vahemikus A1: E10 olevad andmed massiivi ja kirjutab massiivi väljale „Väljund” alates lahtrist A1:
123456 | Sub WriteArray ()"Lugege andmeid massiiviandmed = Vahemik ("A1: E10"). Väärtus'Muutke väljundvahemiku suurust ja kirjutage massiivTöölehed ("Väljund"). Vahemik ("A1"). Suuruse muutmine (UBound (andmed, 1), UBound (andmed, 2)). Väärtus = andmedEnd Sub |
Kirjutas: Vinamra Chandra