דוגמה זו ממחישה את איסוף שטחים ב Excel VBA . להלן יש לנו טווח גבול ('B2: C3, C5: E5'). טווח זה כולל שני תחומים. הפסיק מפריד בין שני האזורים.
להניח כפתור הפקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
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.AreasMsgBox singleArea.Count
הַבָּאsingleArea
תוֹצָאָה:
כיצד להכין תאי ספירת Excel
לקבלת דוגמה מעשית של אוסף האזורים, עיין בתוכנית לדוגמא שלנו השווה טווחים .
עבור לפרק הבא: משתנים