Endre størrelse på område ved hjelp av VBA
Denne opplæringen viser hvordan du bruker Endre størrelse på eiendom av Rekkevidde for å endre for å returnere et nytt område som er endret fra det opprinnelige området.
Syntaks
Syntaks for egenskapen Resize er:
| 1 | Område ("A1"). Endre størrelse (RowSize, ColumnSize) |
Hvor Range ("A1") er startområdet ditt.
RowSize og ColumnSize må være større enn null. Hver inngang er valgfri (f.eks. Kan du utelate RowSize for å bare endre antall kolonner, eller omvendt).
Endre størrelse på antall rader og kolonner
Følgende eksempel utvider området med én celle A1 til område A1: D10 ved å øke radtallet til 10 og kolonnetallet til 5.
| 1 | Område ("A1"). Endre størrelse (10, 5). Velg |
Eller, mer vanlig, vil du tildele størrelsesområdet til en variabel:
| 12 | 'Endre størrelsesområdet til ønsket størrelse og tilordne en variabelAngi newRng = ActiveSheet.Range ("A1"). Endre størrelse (10, 5) |
Endre størrelsen på antall rader bare
Følgende eksempel endrer bare antall rader:
| 12 | 'Endre bare radstørrelse, nytt område vil være $ A $ 1: $ A $ 10Angi newRng = rng.Resize (10) |
Endre størrelsen på antall kolonner bare
Følgende eksempel endrer bare antall kolonner:
| 12 | 'Endre bare kolonnestørrelse, nytt område vil være $ A $ 1: $ E $ 1Angi newRng = rng.Resize (, 5) |
Endre størrelsen på tabellområdet for å ekskludere topptekst
Hvis du har en tabell på et aktivt ark med en topptekst, vil koden først velge hele tabellen og deretter flytte nedover en rad for å ekskludere overskriften ved å bruke Range.Offset -metoden. Den vil deretter bruke egenskapen Range.Resize for å redusere størrelsen med en rad.
| 1234567891011 | Sub SelectTableData ()'** VIKTIG **'Klikk på en hvilken som helst celle i tabellen før du kjører makroen'Flytt ned en rad ved å bruke Offset og reduser deretter størrelsen på en radSett tbl = ActiveCell.CurrentRegion.Offset (1, 0) .Resize (tbl.Rows.Count - 1, _tbl.Columns.Count)'Data er valgt eksklusiv overskriftsradtbl.Adress.SelectSlutt Sub |
Skriv 2-D Array To Range
En annen vanlig bruk er å skrive en todimensjonal matrise til et ark. Siden området som skal skrives skal matche størrelsen på matrisen, som normalt ikke er kjent på forhånd, brukes Resize -metoden for å angi utgangsområdet
Eksempelet nedenfor vil lese dataene i området A1: E10 i aktivt ark til en matrise og skrive matrisen ut til "Output" -arket fra celle A1:
| 123456 | Sub WriteArray ()'Les dataene til en matrisedata = Område ("A1: E10"). Verdi'Endre størrelsen på utgangsområdet og skriv matrisenRegneark ("Output"). Område ("A1"). Endre størrelse (UBound (data, 1), UBound (data, 2)). Verdi = dataSlutt Sub |
Skrevet av: Vinamra Chandra
