Excel VBA Promjena veličine
Promjena veličine svojstvo je dostupno u VBA za promjenu ili promjenu veličine raspona stanica iz aktivne ćelije po potrebi. Na primjer, pretpostavimo da ste u ćeliji B5, a iz ove ćelije, ako želite odabrati 3 retka i dva stupca, možemo promijeniti veličinu raspona pomoću svojstva RESIZE VBA.
Sintaksa svojstva VBA za promjenu veličine
Ispod je sintaksa svojstva VBA RESIZE.
Raspon (). Promjena veličine ((Veličina retka), (Veličina stupca))Prvo, moramo nabaviti iz koje ćelije moramo promijeniti veličinu pomoću objekta Range .
Zatim upotrijebite svojstvo excel VBA Resize , a u ovom svojstvu moramo navesti ograničenje veličine retka i ograničenje veličine stupca . Na temelju danih brojeva redaka i brojeva stupaca, ona će joj promijeniti veličinu.
Primjeri korištenja promjene veličine u VBA
Ispod su primjeri korištenja promjene veličine u excelu VBA.
Primjer # 1
Pretpostavimo da imate podatke od A1 do B14 ćelije i od A1 ćelije, ako želite odabrati 3 retka prema dolje i dva stupca lijevo od raspona, to možemo učiniti pomoću svojstva RESIZE u Excelu VBA.
Ispod su podaci koje koristimo za ovaj primjer.
Prvo, moramo navesti prvu referentnu ili polaznu točku ćelije pomoću objekta RANGE. U ovom primjeru početna točka je A1 ćelija.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Kraj pod
Za ovaj raspon koristite svojstvo RESIZE.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Promjena veličine (Kraj Sub
Prvi argument RESIZE je veličina retka, pa moramo odabrati 3 reda podataka i navesti brojčanu vrijednost 3.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Resize (3, End Sub
Sljedeći je argument Veličina stupca za to, unesite način na koji stupce trebate odabrati. Ući ću u 3 stupca.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Resize (3,3) Kraj Sub
Jednom kada je promjena veličine gotova, moramo pružiti što trebamo učiniti s ovim rasponom. Samo ću odabrati metodu "Select" za početak.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Promjena veličine (3, 3). Odaberite End Sub
Pokrenite kôd i pogledajte koliko bi redaka i koliko stupaca odabrao.
Kao što gore možete vidjeti iz ćelije A1, odabrala je tri retka prema dolje i tri stupca udesno.
Primjer # 2
Sada pogledajte dolje navedeni VBA kod.
U gore navedenom kodu za Row veličine, mi smo dobili prazne stanice, a za veličine stupca, mi smo dobili 3.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Promjena veličine (0, 3). Odaberite End Sub
Pokrenite kôd i pogledajte koliko bi redaka i koliko stupaca odabrao.
Kao što možete vidjeti, to je odabrati samo stanica red aktivan, tj, 1 st red i tri stupca. To je zato što smo za veličinu retka naveli prazne ćelije, a za veličinu stupca 3 i, u skladu s tim, odabrao je raspon podataka.
Sada pogledajte kod u nastavku.
Kodirati:
Sub Resize_Example () Raspon ("A1"). Promjena veličine (3). Odaberite 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
Sada iz prve ćelije mijenjamo veličinu raspona od posljednjeg korištenog retka do zadnjeg korištenog stupca i odabrana je metoda koja se koristi. Dakle, sada nije važno koliko su veliki vaši podaci. Dinamički će odabrati podatke pronalazeći zadnji korišteni redak i zadnji korišteni stupac.
Stvari koje treba zapamtiti
- Svojstvo promjene veličine u VBA promijenit će veličinu raspona od aktivne ćelije (uključujući i aktivnu ćeliju).
- Samo trebamo navesti koliko redaka i koliko stupaca treba promijeniti iz aktivne ćelije u VBA.
- Ne možemo koristiti negativni broj retka i stupca za svojstvo RESIZE.
