计算控件列表中的差异和百分比变化

Question

在VBA中，实现以下目标的最佳方法是什么：

1. 我有两组控件，分别代表历史数据集和当前数据集
2. 我正在使用control.tag字段来指示哪个是历史的，哪个是当前的，例如：
   • 第1组包含（历史数据）
     • 历史-人数
     • 历史-汽车数量
     • 历史-房屋数量
   • 第2组包含（当前数据）
     • 当前-人数
     • 当前-汽车数量
     • 当前-房屋数量
3. 我想遍历两组控件，并为每组控件提供以下内容
   • 价值变化（例如：（当前-人数）-（历史-人数）
   • 百分比变化（例如：（（（（当前-人数）-（历史-人数））/（历史-人数））* 100）
4. 我希望避免手动调用每个控件，而是希望遍历所有控件，找到每个集合中匹配的控件并进行数学运算。

谢谢！

Answer 1

通常，您必须遍历幻灯片上的所有形状。找到哪些是ActiveX控件（如果oShape.Type = msoOLEControlObject然后），则获取ActiveX控件的.Text属性，并使用CInt等运算符将它们转换为数字，然后进行数学运算。