Spreminjanje velikosti VBA - Kako uporabiti spreminjanje velikosti lastnosti v Excelu VBA? (Z primeri)

Spreminjanje velikosti programa Excel VBA

Spreminjanje velikosti je lastnost, ki je na voljo v VBA, da po potrebi spremeni ali spremeni obseg celic iz aktivne celice. Na primer, predpostavimo, da ste v celici B5, in iz te celice, če želimo izbrati 3 vrstice in dva stolpca, lahko spremenimo velikost obsega z uporabo lastnosti RESIZE VBA.

Sintaksa lastnosti VBA za spreminjanje velikosti

Spodaj je sintaksa lastnosti VBA RESIZE.

Obseg (). Spremeni velikost ((Velikost vrstice), (Velikost stolpca))

Najprej moramo opredeliti, iz katere celice moramo spremeniti velikost z uporabo predmeta Range .

Nato uporabite lastnost excel VBA Resize in v tej lastnosti moramo navesti omejitev velikosti vrstic in velikosti stolpcev . Glede na podane številke vrstic in številk stolpcev ga bo spremenila.

Primeri uporabe Resize v VBA

Spodaj so primeri uporabe spreminjanja velikosti v excelu VBA.

Primer # 1

Predpostavimo, da imate podatke od celice A1 do celice B14 in celice A1, če želite izbrati 3 vrstice navzdol in dva stolpca levo območje, lahko to storimo z uporabo lastnosti RESIZE v Excelu VBA.

Spodaj so podatki, ki jih uporabljamo za ta primer.

Najprej moramo navesti prvo referenco ali izhodišče za celico z uporabo predmeta RANGE. V tem primeru je izhodišče celica A1.

Koda:

Sub Resize_Example () Obseg ("A1"). Končaj pod

Za ta obseg uporabite lastnost RESIZE.

Koda:

Sub Resize_Example () Obseg ("A1"). Resize (End Sub

Prvi argument RESIZE je Velikost vrstice, zato moramo izbrati 3 vrstice podatkov in vnesti številčno vrednost 3.

Koda:

Sub Resize_Example () Obseg ("A1"). Resize (3, End Sub

Naslednji argument je Velikost stolpca za to, vnesite, kako stolpce morate izbrati. Vnesel bom 3 stolpce.

Koda:

Sub Resize_Example () Obseg ("A1"). Resize (3,3) End Sub

Ko je velikost končana, moramo zagotoviti, kaj moramo storiti s tem obsegom. Za začetek bom izbral samo metodo »Select«.

Koda:

Sub Resize_Example () Obseg ("A1"). Spremeni velikost (3, 3). Izberite End Sub

Zaženite kodo in si oglejte, koliko vrstic in koliko stolpcev bi izbrala.

Kot lahko vidite zgoraj iz celice A1, je izbrala tri vrstice navzdol in tri stolpce na desni.

2. primer

Zdaj si oglejte spodnjo kodo VBA.

V zgornji kodi za Velikost vrstice smo navedli prazne celice, za Velikost stolpca pa 3.

Koda:

Sub Resize_Example () Obseg ("A1"). Spremeni velikost (0, 3). Izberite End Sub

Zaženite kodo in si oglejte, koliko vrstic in koliko stolpcev bi izbrala.

Kot lahko vidite, je izbrati le aktivno celično vrsto, to je 1 st vrstico in tri stolpce. To je zato, ker smo za Velikost vrstice pripravili prazne celice, za Velikost stolpca pa 3, zato je izbral obseg podatkov.

Zdaj si oglejte spodnjo kodo.

Koda:

Sub Resize_Example () Obseg ("A1"). Velikost (3). Izberite 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

Zdaj iz prve celice spreminjamo velikost obsega od zadnje uporabljene vrstice do zadnjega uporabljenega stolpca in izberite uporabljena metoda. Torej zdaj ni vseeno, kako veliki so vaši podatki. Podatke bo dinamično izbral tako, da bo poiskal zadnjo uporabljeno vrstico in zadnji uporabljeni stolpec.

Stvari, ki si jih je treba zapomniti

  • Lastnost spreminjanja velikosti v VBA bo spremenila velikost obsega od aktivne celice (vključno z aktivno celico tudi).
  • Navesti moramo le, koliko vrstic in koliko stolpcev je treba spremeniti iz aktivne celice v VBA.
  • Za lastnost RESIZE ne moremo uporabiti negativne številke vrstice in stolpca.

Zanimive Članki...