Excel VBA Resize
Zmena veľkosti je vlastnosť dostupná vo VBA, ktorá umožňuje podľa potreby meniť alebo meniť veľkosť buniek z aktívnej bunky. Predpokladajme napríklad, že sa nachádzate v bunke B5 a z tejto bunky, ak chcete vybrať 3 riadky a dva stĺpce, môžeme zmeniť veľkosť rozsahu pomocou vlastnosti VEĽKOSŤ VBA.
Syntax vlastnosti VBA Resize
Nižšie je uvedená syntax vlastnosti VBA RESIZE.
Rozsah (). Zmena veľkosti ((Veľkosť riadku), (Veľkosť stĺpca))Najskôr musíme pomocou objektu Range dodať, z ktorej bunky potrebujeme zmeniť veľkosť .
Potom použite vlastnosť Excel VBA Resize a v tejto vlastnosti musíme dodať limit veľkosti riadku a limit veľkosti stĺpca . Na základe poskytnutých čísel riadkov a čísel stĺpcov sa zmení jeho veľkosť.
Príklady použitia zmeny veľkosti vo VBA
Nižšie uvádzame príklady použitia zmeny veľkosti v programe Excel VBA.
Príklad č
Predpokladajme, že máte údaje z bunky A1 do bunky B14 a z bunky A1, ak chcete vybrať 3 riadky nadol a dva stĺpce v ľavom rozmedzí, môžeme to urobiť pomocou vlastnosti ZMENIŤ VEĽKOSŤ v Exceli VBA.
Ďalej uvádzame údaje, ktoré používame pre tento príklad.
Najprv musíme zadať prvý odkaz na bunku alebo začiatočný bod pomocou objektu RANGE. V tomto príklade je východiskovým bodom bunka A1.
Kód:
Sub Resize_Example () Rozsah ("A1"). Koniec Sub
Pre tento rozsah použite vlastnosť RESIZE.
Kód:
Sub Resize_Example () Range ("A1"). Resize (End Sub
Prvý argument funkcie RESIZE je Veľkosť riadku, takže musíme vybrať 3 riadky údajov a zadať číselnú hodnotu 3.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3, End Sub
Ďalším argumentom je Veľkosť stĺpca , zadajte, ako je potrebné vybrať stĺpce. Vstúpim do 3 stĺpcov.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3,3) End Sub
Po dokončení zmeny veľkosti musíme dodať, čo musíme urobiť s týmto rozsahom. Na začiatok si zvolím iba metódu „Select“.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3, 3). Vyberte End Sub
Spustite kód a uvidíte, koľko riadkov a koľko stĺpcov by vybral.
Ako vidíte vyššie z bunky A1, má vybraté tri riadky nadol a tri stĺpce vpravo.
Príklad č
Teraz sa pozrite na nižšie uvedený kód VBA.
Vo vyššie uvedenom kóde pre veľkosť riadku sme dodali prázdne bunky a pre veľkosť stĺpca sme zadali 3.
Kód:
Sub Resize_Example () Range ("A1"). Resize (0, 3). Vyberte End Sub
Spustite kód a uvidíte, koľko riadkov a koľko stĺpcov by vybral.
Ako vidíte, má vybraný iba aktívny riadok bunky, tj. Prvý riadok a tri stĺpce. Je to tak preto, že pre veľkosť riadku sme dodali prázdne bunky a pre veľkosť stĺpca sme dodali 3 a podľa toho vybral rozsah údajov.
Teraz sa pozrite na nižšie uvedený kód.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3). Vyberte 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
Teraz z prvej bunky meníme veľkosť rozsahu od posledného použitého riadku po posledný použitý stĺpec a vyberieme použitú metódu. Takže teraz nezáleží na tom, aké veľké sú vaše dáta. Dynamicky vyberie údaje vyhľadaním posledného použitého riadku a naposledy použitého stĺpca.
Na čo treba pamätať
- Vlastnosť Zmena veľkosti vo VBA zmení veľkosť rozsahu od aktívnej bunky (vrátane tiež aktívnej bunky).
- Musíme len uviesť, koľko riadkov a koľko stĺpcov sa má zmeniť veľkosť z aktívnej bunky vo VBA.
- Pre vlastnosť RESIZE nemôžeme použiť záporné číslo riadka a stĺpca.
