Excel VBA -koko
Muuta kokoa on VBA: ssa käytettävissä oleva ominaisuus, jolla voidaan muuttaa tai muuttaa aktiivisen solun solualueita tarpeen mukaan. Oletetaan esimerkiksi, että olet solussa B5, ja jos haluat valita tästä solusta 3 riviä ja kaksi saraketta, voimme muuttaa alueen kokoa käyttämällä VBA: n KOKO-ominaisuutta.
Syntaksi VBA Resize Property
Alla on VBA RESIZE -ominaisuuden syntakse.
Alue (). Muuta kokoa ((rivikoko), (sarakekoko))Ensinnäkin meidän on toimitettava mistä solusta meidän täytyy muuttaa kokoa käyttämällä Range- objektia.
Käytä sitten excel VBA Resize -ominaisuutta, ja tässä ominaisuudessa meidän on annettava rivikoko- ja sarakekokorajoitus . Annettujen rivien ja sarakkeiden numeroiden perusteella se muuttaa sen kokoa.
Esimerkkejä koon käyttämisestä VBA: ssa
Alla on esimerkkejä koon käytöstä excel VBA: ssa.
Esimerkki 1
Oletetaan, että sinulla on tietoja A1: stä B14-soluun ja A1-solusta, jos haluat valita 3 riviä alaspäin ja kaksi saraketta vasemmalle alueelle, voimme tehdä tämän käyttämällä RESIZE-ominaisuutta Excel VBA: ssa.
Alla on tietoja, joita käytämme tässä esimerkissä.
Ensinnäkin meidän on toimitettava ensimmäinen soluviite tai aloituspiste käyttämällä RANGE-objektia. Tässä esimerkissä lähtökohta on A1-solu.
Koodi:
Alakoko_Example () -alue ("A1"). End Sub
Käytä tälle alueelle RESIZE-ominaisuutta.
Koodi:
Sub Resize_Example () -alue ("A1"). Resize (End Sub
RESIZE: n ensimmäinen argumentti on Rivin koko, joten meidän on valittava 3 riviä tietoja ja annettava 3: n numeerinen arvo.
Koodi:
Sub Resize_Example () -alue ("A1"). Muuta kokoa (3, End Sub
Seuraava argumentti on tämän sarakekoko , kirjoita kuinka sarakkeet haluat valita. Annan 3 saraketta.
Koodi:
Sub Resize_Example () Range ("A1"). Resize (3,3) End Sub
Kun koon muuttaminen on tehty, meidän on toimitettava mitä meidän on tehtävä tällä alueella. Aloitan vain valitsemalla ”Valitse” -menetelmän.
Koodi:
Sub Resize_Example () -alue ("A1"). Muuta kokoa (3, 3). Valitse End Sub
Suorita koodi ja katso kuinka monta riviä ja kuinka monta saraketta se valitsisi.
Kuten yllä olevasta A1-solusta näkyy, se on valinnut kolme riviä alaspäin ja kolme saraketta oikealle.
Esimerkki 2
Katsokaa nyt alla olevaa VBA-koodia.
Edellä mainituissa koodi Row Koko, olemme toimittaneet tyhjiä soluja, ja pylvään koko, olemme toimittaneet 3.
Koodi:
Sub Resize_Example () -alue ("A1"). Muuta kokoa (0, 3). Valitse End Sub
Suorita koodi ja katso kuinka monta riviä ja kuinka monta saraketta se valitsisi.
Kuten näette, se on valita vain aktiivisen solun rivin, eli 1 s rivi ja kolme saraketta. Tämä johtuu siitä, että rivikoolle olemme toimittaneet tyhjät solut, ja sarakekokoon olemme toimittaneet 3, ja vastaavasti se on valinnut tietoalueen.
Katso nyt alla oleva koodi.
Koodi:
Sub Resize_Example () -alue ("A1"). Muuta kokoa (3). Valitse End Sub
What this code will do is it will select only three rows, including the active cell row but no extra columns.
Example #3
Use Resize To Select Unknown Ranges. Resize is best utilized when you want to select an unknown range of cells. For example, look at the below image of the data range.
It has data all the ways from Column A to Column P and row-wise we have up until the 700th row.
Assume you know your data will keep changing, and you want to select the data range every now and then by manually changing the row and column number. However, by using VBA RESIZE property, we can do this easily.
Look at the below code.
Code:
Sub Resize_Example1() Dim LR As Long Dim LC As Long Worksheets("Sales Data").Select LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(1, Columns.Count).End(xlToLeft).Column Cells(1, 1).Resize(LR, LC).Select End Sub
First, I have declared two variables to find the last used row (LR) and the last used column (LC).
Dim LR As Long Dim LC As Long
Since our data is in the worksheet named “Sales Data,” we are choosing this worksheet by using the below code.
Worksheets(“Sales Data”).Select
Now below code will find the last used row and last used column.
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Ensimmäisestä solusta muutamme nyt aluetta viimeksi käytetystä rivistä viimeksi käytettyyn sarakkeeseen ja valitse käytettävä menetelmä. Joten nyt ei ole väliä kuinka suuri tietosi ovat. Se valitsee tiedot dynaamisesti etsimällä viimeksi käytetty rivi ja viimeksi käytetty sarake.
Muistettavaa
- Resurssien koon muuttaminen VBA: ssa muuttaa aktiivisen solun (mukaan lukien aktiivinen solu) alueen kokoa.
- Meidän on vain annettava, kuinka monta riviä ja kuinka monta saraketta muutetaan VBA: n aktiivisesta solusta.
- Emme voi käyttää negatiivista rivin ja sarakkeen numeroa RESIZE-ominaisuudelle.
