Рассчитать разницу и процентное изменение в списке элементов управления

Question

Как лучше всего в VBA выполнить следующее:

1. У меня есть две группы элементов управления, которые представляют исторический и текущий набор данных
2. Янапример, используя поле control.tag, чтобы указать, какие данные являются историческими, а какие текущими:
   • Группа 1 содержит (исторические данные)
     • История - Количество людей
     • Исторический - Количество автомобилей
     • Исторический - Количество домов
   • Группа 2 содержит (текущие данные)
     • Текущий - Количество человек
     • Текущий - Количество автомобилей
     • Текущий - Количество домов
3. Я хотел бы пройти через оба набора элементов управления и предоставить следующеедля каждого набора
   • Изменение значения (например: (Текущий - Количество людей) - (Историческое - Количество людей))
   • Изменение в процентах (например: (((Текущее - Количество людей)) - (Исторический - Количество человек)) / (Исторический - Количество человек)) * 100)
4. Я надеюсь избежать необходимости вызывать каждый элемент управления вручную, но предпочел бы перебрать все элементы управления, найти те, которые соответствуют в каждом наборе, и выполнить математику.

Заранее спасибо!

Answer 1

Как правило, вы должны перебирать все фигуры на слайде. Найдите, какие из них являются элементами управления ActiveX (Если oShape.Type = msoOLEControlObject Then), получите свойства .Text элементов управления ActiveX, при необходимости превратите их в числа с операторами, такими как CInt, затем выполните математические вычисления.