גודל VBA | כיצד להשתמש בשינוי גודל המאפיין ב- Excel VBA? (עם דוגמאות)

גודל VBA של Excel

שינוי גודל הוא מאפיין זמין ב- VBA לשינוי או שינוי גודל טווח התאים מהתא הפעיל לפי הצורך. לדוגמא, נניח שאתה נמצא בתא B5, ומתוך תא זה אם ברצונך לבחור 3 שורות ושתי עמודות אנו יכולים לשנות את גודל הטווח באמצעות מאפיין RESIZE של ​​VBA.

תחביר של נכס שינוי גודל VBA

להלן התחביר של מאפיין VBA RESIZE.

טווח (). שינוי גודל ([גודל שורה], [גודל עמודה])

ראשית, עלינו לספק מאיזה תא עלינו לשנות את גודל השימוש באובייקט Range .

לאחר מכן השתמש ב- Excel VBA Resize נכס ובנכס זה, עלינו לספק מגבלת גודל שורה ומגבלת גודל עמודה . בהתבסס על מספרי השורות המסופקים ומספר העמודות הוא ישנה את גודל הגודל.

דוגמאות לשימוש בגודל שינוי ב- VBA

להלן הדוגמאות לשימוש בגודל שינוי ב- VBA ב- Excel.

אתה יכול להוריד את תבנית ה- Excel לשנות את גודל VBA כאן - תבנית ה- VBA לשנות את גודל Excel

דוגמה מס '1

נניח שיש לך נתונים מתא A1 לתא B14 ומתא A1 אם ברצונך לבחור 3 שורות למטה ושתי עמודות טווח שמאלי נוכל לעשות זאת באמצעות מאפיין RESIZE ב- Excel VBA.

להלן הנתונים בהם אנו משתמשים לדוגמא זו.

אז ראשית, עלינו לספק את התייחסות התא הראשונה או נקודת ההתחלה באמצעות האובייקט RANGE, בדוגמה זו נקודת המוצא היא תא A1.

קוד:

תת גודל טווח שינוי_דוגמה () ("A1"). סיום משנה

לטווח זה השתמש במאפיין RESIZE.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). גודל גודל (משנה משנה) 

הטיעון הראשון של RESIZE הוא גודל שורה ולכן עלינו לבחור 3 שורות של הנתונים ולספק את הערך המספרי 3.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). שינוי גודל (3, סוף משנה 

הארגומנט הבא הוא גודל העמודה עבור הזן את האופן שבו אתה צריך לבחור עמודות, אני אכניס 3 עמודות.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). שינוי גודל (3,3) סיום משנה 

לאחר סיום שינוי הגודל עלינו לספק את מה שעלינו לעשות עם טווח זה. אני פשוט אבחר בשיטת "בחר" כדי להתחיל.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). שינוי גודל (3, 3). בחר סוף משנה 

הפעל את הקוד ובדוק כמה שורות וכמה עמודות הוא יבחר.

כפי שניתן לראות לעיל מתא A1 הוא בחר שלוש שורות למטה ושלוש עמודות מימין.

דוגמה מס '2

עכשיו תסתכל על קוד ה- VBA שלמטה.

בקוד לעיל עבור גודל השורות, סיפקנו תא ריק  ועבור גודל טור, סיפקנו 3.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). שינוי גודל (0, 3). בחר סוף משנה 

הפעל את הקוד ובדוק כמה שורות וכמה עמודות הוא יבחר.

כפי שאתה יכול לראות, בחר רק בשורת התאים הפעילה, כלומר בשורה הראשונה ושלוש עמודות. הסיבה לכך היא שעבור גודל שורה סיפקנו תא ריק  ועבור גודל עמודות, סיפקנו 3, ובהתאם לכך הוא בחר בטווח הנתונים.

כעת, עיין בקוד שלמטה.

קוד:

 גודל משנה משנה_דוגמה () ("A1"). גודל גודל (3). בחר סוף משנה 

מה שהקוד הזה יעשה הוא שהוא יבחר רק שלוש שורות כולל שורת התאים הפעילה אך ללא עמודות נוספות.

דוגמה מס '3

השתמש בגודל שינוי כדי לבחור טווחים לא ידועים. שינוי גודל נעשה שימוש מיטבי כאשר ברצונך לבחור טווח לא ידוע של תאים. לדוגמה, עיין בתמונה למטה של ​​טווח הנתונים.

יש בו נתונים על כל הדרכים מעמודה א 'לעמודה P ובאופן שורתית יש לנו עד לשורה 700.

נניח שאתה יודע שהנתונים שלך ימשיכו להשתנות ואתה רוצה לבחור את טווח הנתונים מדי פעם על ידי שינוי ידני של מספר השורה והעמודה. עם זאת, באמצעות מאפיין VBA RESIZE אנו יכולים לעשות זאת בקלות.

עיין בקוד שלמטה.

קוד:

 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 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

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.