Excel VBA Resize
Změnit velikost je vlastnost dostupná ve VBA, která podle potřeby mění nebo mění velikost rozsahu buněk z aktivní buňky. Předpokládejme například, že jste v buňce B5, a pokud z této buňky chcete vybrat 3 řádky a dva sloupce, můžeme změnit velikost rozsahu pomocí vlastnosti ZMĚNIT VBA.
Syntaxe vlastnosti VBA Resize
Níže je syntaxe vlastnosti VBA RESIZE.
Rozsah (). Změna velikosti ((Velikost řádku), (Velikost sloupce))Nejprve musíme zadat, z které buňky musíme změnit velikost pomocí objektu Range .
Pak použijte vlastnost Excel VBA Resize a v této vlastnosti musíme zadat limit velikosti řádku a limit velikosti sloupce . Na základě zadaných čísel řádků a čísel sloupců se změní jeho velikost.
Příklady použití Resize ve VBA
Níže jsou uvedeny příklady použití změny velikosti v aplikaci Excel VBA.
Příklad č. 1
Předpokládejme, že máte data z buňky A1 do buňky B14 a z buňky A1, pokud chcete vybrat 3 řádky dolů a dva sloupce vlevo, můžeme to udělat pomocí vlastnosti ZMĚNIT velikost v aplikaci Excel VBA.
Níže jsou uvedena data, která používáme pro tento příklad.
Nejprve musíme zadat první odkaz na buňku nebo počáteční bod pomocí objektu RANGE. V tomto příkladu je výchozím bodem buňka A1.
Kód:
Sub Resize_Example () Range ("A1"). End Sub
Pro tento rozsah použijte vlastnost RESIZE.
Kód:
Sub Resize_Example () Range ("A1"). Resize (End Sub
Prvním argumentem RESIZE je velikost řádku, takže musíme vybrat 3 řádky dat a zadat číselnou hodnotu 3.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3, End Sub
Dalším argumentem je Velikost sloupce , zadejte, jak je třeba vybrat sloupce. Zadám 3 sloupce.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3,3) End Sub
Jakmile je změna velikosti provedena, musíme dodat, co musíme udělat s tímto rozsahem. Pro spuštění zvolím pouze metodu „Select“.
Kód:
Sub Resize_Example () Range ("A1"). Resize (3, 3). Vyberte End Sub
Spusťte kód a podívejte se, kolik řádků a kolik sloupců by vybral.
Jak vidíte výše z buňky A1, vybrala tři řádky dolů a tři sloupce vpravo.
Příklad č. 2
Nyní se podívejte na níže uvedený kód VBA.
Ve výše uvedeném kódu pro velikost řádku jsme dodali prázdné buňky a pro velikost sloupce jsme dodali 3.
Kód:
Sub Resize_Example () Range ("A1"). Resize (0, 3). Vyberte End Sub
Spusťte kód a podívejte se, kolik řádků a kolik sloupců by vybral.
Jak vidíte, vybrala pouze aktivní řádek buňky, tj. První řádek a tři sloupce. Důvodem je, že pro velikost řádku jsme dodali prázdné buňky a pro velikost sloupce jsme dodali 3 a podle toho vybral rozsah dat.
Nyní se podívejte na níže 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
Nyní z první buňky měníme velikost rozsahu od posledního použitého řádku do posledního použitého sloupce a vybereme použitou metodu. Takže teď nezáleží na tom, jak velká jsou vaše data. Dynamicky vybere data vyhledáním posledního použitého řádku a posledního použitého sloupce.
Věci k zapamatování
- Vlastnost Změnit velikost ve VBA změní velikost rozsahu od aktivní buňky (včetně aktivní buňky také).
- Musíme pouze zadat, kolik řádků a kolik sloupců se má změnit velikost z aktivní buňky ve VBA.
- U vlastnosti RESIZE nemůžeme použít záporné číslo řádku a sloupce.
