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

Question

在 VBA 中，完成以下操作的最佳方法是什么：

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

提前感谢！

Answer 1

通常，您必须遍历幻灯片上的所有形状。查找哪些是 ActiveX 控件(如果 oShape.Type = msoOLEControlObject 然后(，获取 .ActiveX 控件的文本属性，如果需要，请使用 CInt 等运算符将这些属性转换为数字，然后进行数学运算。