300 דוגמאות

איסוף שטחים

Areas Collection

דוגמה זו ממחישה את איסוף שטחים ב Excel VBA . להלן יש לנו טווח גבול ('B2: C3, C5: E5'). טווח זה כולל שני תחומים. הפסיק מפריד בין שני האזורים.





איסוף אזורים ב- Excel VBA

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





1. ראשית, אנו מכריזים על שני אובייקטים של טווח. אנו קוראים לאובייקטים טווח rangeToUse ו- singleArea.

אף אחדrangeToUseכפי שטווח, שטח יחידכפי שטווח

2. אנו מאתחלים את טווח אובייקט RangeToUse עם טווח ('B2: C3, C5: E5')



מַעֲרֶכֶתrangeToUse = טווח ('B2: C3, C5: E5')

3. כדי לספור את מספר האזורים של rangeToUse, הוסף את שורת הקוד הבאה:

MsgBox rangeToUse.Areas.Count

תוֹצָאָה:

ספירת אזורים

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

MsgBox rangeToUse.Areas (1). ספירה

תוֹצָאָה:

ספירת תאים, אזור ראשון

5. תוכל גם לגלול בכל אזור של rangeToUse ולספור את מספר התאים של כל אזור. המאקרו שלהלן עושה את העבודה.

ל כל אחדsingleAreaבrangeToUse.Areas
MsgBox singleArea.Count
הַבָּאsingleArea

תוֹצָאָה:

ספירת תאים, אזור ראשון

כיצד להכין תאי ספירת Excel

ספירת תאים, אזור שני

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

13/14 הושלם! למידע נוסף על אובייקט הטווח>
עבור לפרק הבא: משתנים



^