Excel VBA Formaat wijzigen
Formaat wijzigen is een eigenschap die beschikbaar is in VBA om het celbereik van de actieve cel naar behoefte te wijzigen of aan te passen. Stel dat u zich in cel B5 bevindt, en als u vanuit deze cel drie rijen en twee kolommen wilt selecteren, kunnen we de grootte van een bereik wijzigen met de eigenschap RESIZE van VBA.
Syntaxis van VBA Resize-eigenschap
Hieronder vindt u de syntaxis van de eigenschap VBA RESIZE.
Bereik (). Formaat wijzigen ((Rijgrootte), (Kolomgrootte))Eerst moeten we aangeven van welke cel we de grootte moeten wijzigen door het Range- object te gebruiken.
Maak dan gebruik van excel VBA Resize eigendom, en in deze woning, moeten we leveren rij size limit en de grootte kolom limiet. Op basis van de opgegeven rijnummers en kolomnummers, wordt het formaat aangepast.
Voorbeelden van het gebruik van Resize in VBA
Hieronder staan de voorbeelden van het gebruik van resize in Excel VBA.
Voorbeeld 1
Stel dat u gegevens hebt van cel A1 tot cel B14 en van cel A1, als u 3 rijen omlaag en twee kolommen links wilt selecteren, kunnen we dit doen door de eigenschap RESIZE in Excel VBA te gebruiken.
Hieronder staan de gegevens die we voor dit voorbeeld gebruiken.
Eerst moeten we de eerste celverwijzing of startpunt opgeven met behulp van het RANGE-object. In dit voorbeeld is het startpunt de A1-cel.
Code:
Sub Resize_Example () Bereik ("A1"). Einde Sub
Gebruik de eigenschap RESIZE voor dit bereik.
Code:
Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (End Sub
Het eerste argument van RESIZE is Rijgrootte, dus we moeten 3 rijen met gegevens selecteren en de numerieke waarde 3 opgeven.
Code:
Sub Resize_Example () Bereik ("A1") Formaat wijzigen (3, End Sub
Het volgende argument is hiervoor Kolomgrootte , voer in hoe kolommen u moet selecteren. Ik zal 3 kolommen invoeren.
Code:
Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (3,3) End Sub
Zodra het wijzigen van de grootte is voltooid, moeten we leveren wat we met dit bereik moeten doen. Ik zal gewoon de "Select" -methode kiezen om te beginnen.
Code:
Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (3, 3). Selecteer End Sub
Voer de code uit en kijk hoeveel rijen en hoeveel kolommen het zou selecteren.
Zoals je hierboven kunt zien in de A1-cel, heeft deze drie rijen naar beneden en drie kolommen naar rechts geselecteerd.
Voorbeeld 2
Bekijk nu de onderstaande VBA-code.
In de bovenstaande code voor rijgrootte hebben we lege cellen geleverd en voor kolomgrootte hebben we er 3 geleverd .
Code:
Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (0, 3). Selecteer End Sub
Voer de code uit en kijk hoeveel rijen en hoeveel kolommen het zou selecteren.
Zoals u kunt zien, is het alleen de actieve cel rij, dat wil zeggen, 1 selecteert st rij en drie kolommen. Dit komt omdat, voor Rijgrootte, we hebben geleverd lege cellen, en voor Column Maat, hebben we geleverd 3, en daarom is het de gegevens bereik geselecteerd.
Kijk nu naar de onderstaande code.
Code:
Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (3). Selecteer 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
Vanaf de eerste cel wijzigen we het bereik van de laatst gebruikte rij naar de laatst gebruikte kolom en selecteren is de gebruikte methode. Dus nu maakt het niet uit hoe groot uw gegevens zijn. Het zal de gegevens dynamisch selecteren door de laatst gebruikte rij en laatst gebruikte kolom te zoeken.
Dingen om te onthouden
- De eigenschap Formaat wijzigen in VBA zal de grootte van het bereik van de actieve cel wijzigen (inclusief de actieve cel).
- We hoeven alleen maar op te geven hoeveel rijen en hoeveel kolommen het formaat van de actieve cel in VBA moet wijzigen.
- We kunnen geen negatief rij- en kolomnummer gebruiken voor de eigenschap RESIZE.
