VBA循环中拼接控件名批量赋值文本框问题求助

你尝试直接拼接控件名的写法在VBA里不生效，要通过Controls集合按名称引用控件。以下是修正后的代码，可实现批量赋值逻辑：

你之前的错误尝试代码 #

For i = 1 To 2
    Task & i.value = Worksheets("BoardItems").Range("D" & i + 1)
    When & i.value = Worksheets("BoardItems").Range("G" & i + 1)
Next i
End Sub

正确实现代码 #

Sub UpdateControls()
    Dim i As Integer
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("BoardItems")
    
    For i = 1 To 30
        ' 列表框赋值
        Me.Controls("Priority" & i).List = PriorityArray
        Me.Controls("Who" & i).List = WhoArry
        
        ' 文本框/输入控件赋值
        Me.Controls("Task" & i).Value = ws.Range("D" & i + 1).Value
        Me.Controls("When" & i).Value = ws.Range("G" & i + 1).Value
        Me.Controls("Who" & i).Value = ws.Range("F" & i + 1).Value
        Me.Controls("Date" & i).Value = ws.Range("C" & i + 1).Value
        Me.Controls("Priority" & i).Value = ws.Range("E" & i + 1).Value
        Me.Controls("Comments" & i).Value = ws.Range("J" & i + 1).Value
    Next i
End Sub

关键注意事项 #

• 控件引用规则：VBA中必须通过Me.Controls("控件名称字符串")动态获取控件，不能直接拼接变量名。如果是在标准模块中调用，要把Me替换为具体窗体对象名（比如UserForm1.Controls(...)）。
• 名称匹配要求：确保窗体上的控件名称和代码拼接的完全一致（如Task1、When2，拼写准确即可，大小写不敏感）。
• 错误防护：担心控件不存在报错的话，可添加判断：

  If Not Me.Controls("Task" & i) Is Nothing Then
      Me.Controls("Task" & i).Value = ws.Range("D" & i + 1).Value
  End If
  

• 控件属性区分：列表框用List属性设置选项数组，文本框用Value属性赋值，注意区分使用。

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