/ / מ פעילים תא כניסה אחרונה ב - VBA

מ פעילים תא כניסה אחרונה ב - Excel

דוגמה זו ממחישה את המאפיין End של אובייקט Range ב- Excel VBA. נשתמש במאפיין זה כדי לבחור את הטווח מהתא הפעיל לערך האחרון בעמודה.

מצב:

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

מ פעילים תא כניסה אחרונה ב - Excel

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

1. כדי לבחור את הערך האחרון בעמודה, פשוט הוסף את שורת הקוד הבאה:

Range("A5").End(xlDown).Select

הערה: במקום טווח ("A5"), ניתן גם להשתמש בטווח ("A1"), טווח ("A2") וכו '. קוד השורה הזה זהה ללחיצה על חץ + END + DOWN.

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

כניסה אחרונה

2. כדי לבחור את הטווח מתא A5 לרשומה האחרונה בעמודה, הוסף את שורת הקוד הבאה:

Range(Range("A5"), Range("A5").End(xlDown)).Select

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

מתא A5 עד כניסה אחרונה

3. לבחירת הטווח מהתא הפעיל לערך האחרון בעמודה, פשוט החלף את טווח ("A5") עם ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

תוצאה כאשר אתה בוחר בתא A2 ולחץ על לחצן הפקודה בגיליון:

מתא פעיל לתוצאה אחרונה

הערה: ניתן להשתמש בקביעות xlUp, xlToRight ו- xlToLeft כדי לעבור לכיוונים אחרים. בדרך זו ניתן לבחור טווח מהתא הפעיל לערך האחרון ברציפות.

קרא גם: