VBA中如何通过字符串引用用户窗体控件对象的属性？

核心解决方案：利用用户窗体的Controls集合 #

你可以通过控件名称字符串结合Controls集合来动态引用按钮，这是最直接有效的方法：

Dim ButtonValue As Long
ButtonValue = 2

' 在当前用户窗体的代码模块内，用Me指代自身
Me.Controls("CommandButton" & ButtonValue).Caption = "你的新标题"

如果是在普通模块中调用，需要明确指定用户窗体名称：

UserForm1.Controls("CommandButton" & ButtonValue).Caption = "你的新标题"

循环操作多个按钮的示例 #

如果要批量处理多个按钮（比如CommandButton1到CommandButton5），直接套循环即可：

Dim i As Long
For i = 1 To 5
    Me.Controls("CommandButton" & i).Caption = "按钮" & i
Next i

为什么你最初的方法无效？ #

你尝试的CommandButton(ButtonValue)写法，只有当按钮是控件数组时才有效——也就是设计窗体时，复制按钮并选择"创建控件数组"，此时按钮会共享同一个名称，通过索引区分。如果你的按钮是单独创建的（每个都有独立名称如CommandButton1、CommandButton2），就必须用Controls集合通过名称访问。

针对字符串拼接的补充方案 #

如果你已经拼接出类似"CommandButton2.Caption"的字符串，也可以用CallByName函数实现赋值，但这种写法不如Controls直接：

Dim targetCtrl As Object
Set targetCtrl = Me.Controls("CommandButton" & ButtonValue)
CallByName targetCtrl, "Caption", vbLet, "新标题"

可选：添加错误处理 #

避免因控件不存在导致报错，可以加入简单的错误捕获：

Dim ButtonValue As Long
ButtonValue = 2

On Error Resume Next
Me.Controls("CommandButton" & ButtonValue).Caption = "新标题"
If Err.Number <> 0 Then
    MsgBox "未找到对应名称的按钮控件"
End If
On Error GoTo 0

内容的提问来源于stack exchange，提问作者Drawleeh