有没有办法简化PowerPoint中VBA中的代码？

（1*8）+（2*8）+（3*8）+（4*8）+（5*8）写为（1+2+3+4+5）*8

如何以类似的方式简化下面的代码

Private子命令按钮1\u单击（）
标签1.BackColor=&H800000F
标签2.BackColor=&H800000F
标签3.BackColor=&H800000F
Label4.BackColor=&H800000F
标签5.BackColor=&H800000F
端接头

---

事实上，我听说过一种解决方案，它将

与

结合使用，但到目前为止，我从未在PowerPoint中看到它们的应用

您不能将

与

关键字一起用于此类任务

但你可以这样做：

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 5
        Me.Controls("Label" & i).BackColor = &H8000000F
    Next i
End Sub

---

您不能将

与

关键字一起用于此类任务

但你可以这样做：

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 5
        Me.Controls("Label" & i).BackColor = &H8000000F
    Next i
End Sub

---

为标签创建一个范围，并按范围（而不是标签）调用它

私有子命令按钮1_单击（） rangeName=&H800000F

---

End Sub

为标签创建一个范围，并按范围而不是标签来调用它

私有子命令按钮1_单击（） rangeName=&H800000F

---

End Sub

代码非常简单。我想你是说你不想多次写同一件事，但有时（特别是使用userforms）你必须这么做。对于blocks，如果你对一个对象做了多个不同的事情，仅供参考，对于多个对象来说，情况并非如此。可能有一种方法可以使用字符串连接的循环，但我不确定如何让VBA将字符串结果解释为要执行的命令。代码非常简单。我想你是说你不想多次写同一件事，但有时（特别是使用userforms）你必须这么做。对于blocks，如果你对一个对象做了多个不同的事情，仅供参考，对于多个对象来说，情况并非如此。可能有一种方法可以使用带有字符串连接的循环，但我不确定如何让VBA将字符串结果解释为要执行的命令。您可以建议一点示例代码来演示如何创建一系列标签吗？您可以建议一点示例代码来演示如何创建一系列标签？很抱歉，我试过了，结果被告知“找不到方法或数据成员”。并且突出显示了

。控件
。你能进一步解释一下这应该如何工作，或者为什么我不能用这段代码来工作？我假设一个用户表单有一个
按钮
控件，以“CommandButton1”命名，还有许多
标签
控件以“Label1”、“Label2”命名，。。。。在Userform代码窗格中，有一个“CommandButton1”按钮
Click
事件处理程序，以
CommandButton1\u Click（）
命名，在用户单击该按钮时执行。在那里，
Me
关键字指向Userform对象，该对象的
.Controls
属性返回所有Userform控件的集合，每个控件通过其名称（如“Label1”）拾取，并通过其属性（如
BackColor
one）进行设置。@chin98edwin：你完成了吗？很抱歉，我试过了，有人告诉我“找不到方法或数据成员。“和
.Controls
突出显示。您能进一步解释一下这应该如何工作，或者为什么我不能用这段代码来工作？我假设一个带有
按钮
控件（以“CommandButton1”命名）和许多
标签
控件（以“Label1”、“Label2”命名）的用户窗体" ,.... 在Userform代码窗格中，有一个“CommandButton1”按钮
Click
事件处理程序，以
CommandButton1\u Click（）
命名，在用户单击该按钮时执行。在那里，
Me
关键字指向Userform对象，该对象的
.Controls
属性返回所有Userform控件的集合，每个控件通过其名称（如“Label1”）拾取，并通过其属性（如
BackColor
one）进行设置。@chin98edwin：您完成了吗？