VBA Formaat wijzigen

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 vanuit deze cel, als u 3 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.

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 kolomnummer wordt het formaat aangepast.

Voorbeelden van het gebruik van Resize in VBA

Hieronder staan ​​de voorbeelden van het gebruik van resize in Excel VBA.

U kunt deze VBA Resize Excel-sjabloon hier downloaden - VBA Resize Excel-sjabloon

Voorbeeld 1

Stel dat u gegevens hebt van cel A1 tot B14 en van cel A1 als u 3 rijen naar beneden en twee kolommen links wilt selecteren, dan kunnen we dit doen door de eigenschap RESIZE in Excel VBA te gebruiken.

Hieronder staan ​​de gegevens die we voor dit voorbeeld gebruiken.

Dus 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 voor dit bereik de eigenschap RESIZE.

Code:

 Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (End Sub 

Het eerste argument van RESIZE is Row Size, 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 Kolomgrootte, hiervoor voer je in hoe kolommen je 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 een lege cel  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, heeft het alleen de actieve celrij geselecteerd, dwz de eerste rij en drie kolommen. Dit komt omdat we voor rijgrootte een lege cel hebben geleverd  en voor kolomgrootte hebben we er 3 geleverd, en dienovereenkomstig heeft het het gegevensbereik geselecteerd.

Kijk nu naar de onderstaande code.

Code:

 Sub Resize_Example () Bereik ("A1"). Formaat wijzigen (3). Selecteer End Sub 

Wat deze code zal doen, is dat het slechts drie rijen selecteert, inclusief de actieve celrij, maar geen extra kolommen.

Voorbeeld # 3

Gebruik Formaat wijzigen om onbekende bereiken te selecteren. Formaat wijzigen kan het beste worden gebruikt als u een onbekend celbereik wilt selecteren. Kijk bijvoorbeeld naar de onderstaande afbeelding van het gegevensbereik.

Het heeft gegevens over alle wegen van kolom A naar kolom P en rijgewijs hebben we tot de 700e rij.

Stel dat u weet dat uw gegevens blijven veranderen en dat u het gegevensbereik zo nu en dan wilt selecteren door het rij- en kolomnummer handmatig te wijzigen. Door de eigenschap VBA RESIZE te gebruiken, kunnen we dit echter eenvoudig doen.

Kijk naar de onderstaande code.

Code:

 Sub Resize_Example1 () Dim LR As Long Dim LC As Long Worksheets ("Verkoopgegevens"). Selecteer LR = Cells (Rows.Count, 1) .End (xlUp) .Row LC = Cells (1, Columns.Count) .Einde (xlToLeft) Kolomcellen (1, 1) Grootte aanpassen (LR, LC) Selecteer End Sub 

Eerst heb ik twee variabelen gedeclareerd om de laatst gebruikte rij (LR) en laatst gebruikte kolom (LC) te vinden.

 Dim LR zo lang Dim LC zo lang 

Omdat onze gegevens in het werkblad met de naam "Verkoopgegevens" staan, kiezen we dit werkblad met behulp van de onderstaande code.

Werkbladen ("Verkoopgegevens") Selecteer

Nu vindt de onderstaande code de laatst gebruikte rij en de laatst gebruikte kolom.

LR = Cellen (Rows.Count, 1) .End (xlUp) .Row

LC = Cellen (1, Columns.Count) .End (xlToLeft) .Column

Now from the first cell, we resizing the range from last used row to last used column and select is the method used. So now it doesn’t matter how big your data is it will dynamically select the data by finding the last used row and last used column.

Things to Remember

• Resize property in VBA will change the size of the range from the active cell (including the active cell as well).
• We just need to provide how many rows and how many columns to be resized from the active cell in VBA.
• We cannot use negative row & column number for RESIZE property.