VBA用户窗体：如何用变量指定文本框名称实现值累加至单元格

我在用户窗体上有一系列命名规则为TBFW_1、TBFW_2……的文本框，想要编写代码将它们的值累加至命名规则为FW_1、FW_2……的单个单元格区域中。尝试用For-Next循环通过变量替换实现，但在With Me.B行出现错误，后续引用B时也有同样问题。我知道当前B是字符串而非控件对象，请问该如何正确指定？

用户提供的错误代码：

Dim A
Dim B
Dim C
For A = 1 To 2
B = "TBFW_" & A
C = "FW_" & A

With Me.B
    .Value = Format(.Value, "0.0")
    If .Value = "" Then Return
End With
Range(C).Value = (Range(C).Value + B)
B = ""
Next A

Exit Sub

问题根源 #

Me.B是错误的引用方式——B是存储控件名称的字符串，不能直接通过Me.B获取控件对象，必须通过Me.Controls(B)来访问对应名称的文本框。另外，直接用字符串B参与数值计算也会报错，需要提取文本框的数值内容。

修正后的代码 #

Dim A As Integer
Dim txtBox As MSForms.TextBox
Dim targetRange As Range
Dim txtValue As Double

For A = 1 To 2
    ' 获取对应名称的文本框控件
    Set txtBox = Me.Controls("TBFW_" & A)
    ' 获取目标单元格
    Set targetRange = Range("FW_" & A)
    
    ' 处理文本框空值或非数值情况
    If Trim(txtBox.Value) = "" Or Not IsNumeric(txtBox.Value) Then
        txtValue = 0
    Else
        txtValue = CDbl(txtBox.Value)
        ' 格式化文本框显示（可选）
        txtBox.Value = Format(txtValue, "0.0")
    End If
    
    ' 累加至目标单元格，单元格为空则按0处理
    targetRange.Value = CDbl(IIf(IsEmpty(targetRange.Value), 0, targetRange.Value)) + txtValue
Next A

Exit Sub

关键说明 #

• 使用Me.Controls("控件名称字符串")获取对应的文本框对象，这是通过动态名称引用控件的正确方式。
• 增加了对文本框空值、非数值内容的判断，避免运行时错误，空值或非数值按0处理。
• 单元格累加时用IIf(IsEmpty(targetRange.Value), 0, targetRange.Value)处理单元格为空的情况，确保数值计算正常。
• 变量声明时指定类型（如As Integer、As MSForms.TextBox），比变体类型更高效且不易出错。

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