Pakeiskite diapazono dydį naudodami VBA
Ši pamoka parodys, kaip naudotis Pakeisti nuosavybės dydį iš Diapazono objektas pakeisti, kad būtų grąžintas naujas diapazonas, kurio dydis pakeistas iš pradinio diapazono objekto.
Sintaksė
Nuosavybės dydžio keitimas yra tokia:
| 1 | Diapazonas („A1“). Keisti dydį („RowSize“, „ColumnSize“) |
Kur diapazonas („A1“) yra jūsų pradinis diapazonas.
„RowSize“ ir „ColumnSize“ turi būti didesni už nulį. Kiekvienas įvestis yra neprivaloma (pvz., Galite praleisti „RowSize“, kad pakeistumėte tik stulpelių skaičių arba atvirkščiai).
Pakeiskite eilučių ir stulpelių skaičių
Šis pavyzdys išplečia diapazoną su vienu langeliu A1 iki diapazono A1: D10, padidindamas eilučių skaičių iki 10 ir stulpelių skaičių iki 5.
| 1 | Diapazonas („A1“). Keisti dydį (10, 5). Pasirinkite |
Arba dažniau priskiriate keičiamo dydžio diapazoną kintamajam:
| 12 | „Pakeiskite diapazoną iki norimo dydžio ir priskirkite kintamajamNustatyti newRng = ActiveSheet.Range ("A1"). Keisti dydį (10, 5) |
Keisti tik eilučių skaičių
Šis pavyzdys keičia tik eilučių skaičių:
| 12 | „Keisti tik eilutės dydį, naujas diapazonas bus $ A $ 1: $ A $ 10Nustatyti newRng = rng. Dydis (10) |
Keisti tik stulpelių skaičių
Šis pavyzdys keičia tik stulpelių skaičių:
| 12 | „Keisti tik stulpelio dydį, naujas diapazonas bus $ A $ 1: $ E $ 1Nustatyti newRng = rng. Dydis (, 5) |
Pakeiskite lentelės diapazono dydį, kad neįtrauktumėte antraštės
Jei turite lentelę aktyviame lape su antraštės eilute, kodas pirmiausia pasirenka visą lentelę, o tada pereina viena eilute žemyn, kad pašalintų antraštę naudodami diapazoną. Tada jis naudos ypatybę „Range.Resize“, kad sumažintų dydį viena eilute.
| 1234567891011 | Sub SelectTableData ()'** SVARBU **„Prieš paleisdami makrokomandą spustelėkite bet kurį lentelės langelį„Pereikite viena eilute žemyn naudodami poslinkį, tada sumažinkite diapazono dydį viena eiluteNustatykite tbl = ActiveCell.CurrentRegion.Offset (1, 0). Keisti dydį (tbl.Rows.Count - 1, _tbl. Stulpeliai. Skaičius)„Pasirinkti duomenys, išskyrus antraštės eilutętbl. Adresas. PasirinkitePabaiga Sub |
Rašykite 2-D masyvą į diapazoną
Kitas įprastas naudojimas yra rašyti 2 matmenų masyvą į lapą. Kadangi įrašomas diapazonas turi atitikti masyvo dydį, kuris paprastai nėra iš anksto žinomas, išvesties diapazonui nustatyti naudojamas Resize metodas
Žemiau pateiktame pavyzdyje bus perskaityti A1: E10 diapazono duomenys aktyviame lape į masyvą ir išrašyti masyvas į „Išvesties“ lapą, pradedant nuo A1 langelio:
| 123456 | Sub WriteArray ()„Perskaitykite duomenis į masyvąduomenys = Diapazonas ("A1: E10"). Reikšmė„Pakeiskite išvesties diapazono dydį ir parašykite masyvąDarbo lapai ("Išvestis"). Diapazonas ("A1"). Keisti dydį (UBound (duomenys, 1), UBound (duomenys, 2)). Vertė = duomenysPabaiga Sub |
Parašė: Vinamra Chandra
