Ændre størrelsesområdet ved hjælp af VBA
Denne vejledning viser, hvordan du bruger Ændre størrelse på ejendom af Områdeobjekt at ændre for at returnere et nyt område ændret fra det originale områdeobjekt.
Syntaks
Syntaks for egenskaben Resize er:
| 1 | Område ("A1"). Tilpas størrelse (RowSize, ColumnSize) |
Hvor Range ("A1") er dit startområde.
RowSize og ColumnSize skal være større end nul. Hvert input er valgfrit (f.eks. Kan du udelade RowSize for kun at ændre antallet af kolonner eller omvendt).
Ændre størrelsen på antal rækker og kolonner
Følgende eksempel udvider området med en celle A1 til område A1: D10 ved at øge rækken til 10 og kolonnetallet til 5.
| 1 | Område ("A1"). Tilpas størrelse (10, 5). Vælg |
Eller mere almindeligt tildeler du størrelsen til en variabel:
| 12 | 'Tilpas størrelsesområdet til den ønskede størrelse, og tildel en variabelIndstil newRng = ActiveSheet.Range ("A1"). Tilpas størrelse (10, 5) |
Ændre kun størrelsen på antal rækker
Følgende eksempel ændrer kun antallet af rækker:
| 12 | 'Skift kun rækkestørrelse, nyt område vil være $ A $ 1: $ A $ 10Indstil newRng = rng.Resize (10) |
Ændre kun størrelsen på antallet af kolonner
Følgende eksempel ændrer kun antallet af kolonner:
| 12 | 'Skift kun kolonnestørrelse, det nye område vil være $ A $ 1: $ E $ 1Indstil newRng = rng.Resize (, 5) |
Ændre størrelsen på tabelområdet for at ekskludere overskrift
Hvis du har en tabel på et aktivt ark med en overskriftsrække, vil koden først markere hele tabellen og derefter flytte en række ned for at ekskludere overskriften ved hjælp af Range.Offset -metode. Det vil derefter bruge egenskaben Range.Resize til at reducere størrelsen med en række.
| 1234567891011 | Sub SelectTableData ()'** VIGTIGT **'Klik på en vilkårlig celle i tabellen, før du kører makroen'Flyt en række nedad med Offset, og reducer derefter størrelsen med en rækkeIndstil tbl = ActiveCell.CurrentRegion.Offset (1, 0) .Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)'Data er valgt eksklusiv overskriftsrækketbl.Adress.SelectAfslut Sub |
Skriv 2-D-array til rækkevidde
En anden almindelig anvendelse er at skrive et 2 -dimensionelt array til et ark. Da det område, der skal skrives, skal matche størrelsen på arrayet, som normalt ikke er kendt på forhånd, bruges metoden Resize til at indstille outputområdet
Eksempel nedenfor vil læse dataene i intervallet A1: E10 i aktivt ark til en matrix og skrive arrayet ud til 'Output' -ark fra celle A1:
| 123456 | Sub WriteArray ()'Læs dataene til et arraydata = Område ("A1: E10"). Værdi'Ændre størrelsen på outputområdet, og skriv matrixenRegneark ("Output"). Område ("A1"). Tilpas størrelse (UBound (data, 1), UBound (data, 2)). Værdi = dataAfslut Sub |
Skrevet af: Vinamra Chandra
