Овај пример илуструје Прикупљање површина у Екцел ВБА. Испод имамо омеђен распон ("Б2: Ц3, Ц5: Е5"). Овај распон има две области. Зарез раздваја две области.
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларирамо два Ранге објекта. Објекте Ранге називамо рангеТоУсе и синглеАреа.
Дим рангеТоУсе Ас Ранге, синглеАреа Ас Ранге
2. Покрећемо објекат Ранге рангеТоУсе са Ранге ("Б2: Ц3, Ц5: Е5")
Сет рангеТоУсе = Ранге ("Б2: Ц3, Ц5: Е5")
3. Да бисте пребројали број области рангеТоУсе, додајте следећи кодни ред:
МсгБок рангеТоУсе.Ареас.Цоунт
Резултат:
4. Можете се позвати на различита подручја рангеТоУсе користећи вредности индекса. Следећа линија кода броји ћелије прве области.
МсгБок рангеТоУсе.Ареас (1) .Цоунт
Резултат:
5. Такође можете проћи кроз свако подручје рангеТоУсе и избројати број ћелија сваке области. Макро испод чини трик.
За сваки синглеАреа Ин рангеТоУсе.Ареас
МсгБок синглеАреа.Цоунт
Нект синглеАреа
Резултат:
За практичан пример прикупљања подручја погледајте наш пример програма Упореди опсеге.