VBA中为指定Range添加文本框值报错‘object required’求正确语法

你的代码存在几个明显问题，直接导致了报错，以下是问题分析和修正方案：

问题点梳理 #

• 错误引用变量：你已经通过Set A = Cells(4,3)定义了Range类型变量A，但后续用Range("A")会被VBA解析为引用A列的单元格，和你定义的变量完全无关。
• 滥用Set关键字：Set仅用于给对象类型变量赋值，而单元格的Value是普通属性，赋值时不需要加Set。
• 文本框类型未处理：文本框默认返回字符串类型，直接和单元格数值相加可能触发类型错误，需转成数值类型。
• 文本框引用错误：工作表上的ActiveX文本框直接用TextBox1.Value即可，不需要forms.前缀。

修正后的代码（ActiveX文本框场景） #

Private Sub CommandButton1_Click()
    Dim A As Range
    Set A = Cells(4, 3)
    
    ' 用Val()把文本框内容转成数值，避免类型错误
    A.Value = A.Value + Val(TextBox1.Value)
End Sub

表单控件文本框场景（非ActiveX） #

如果你的文本框是表单控件，获取值的方式不同，代码如下：

Private Sub CommandButton1_Click()
    Dim A As Range
    Dim textBoxVal As Double
    Set A = Cells(4, 3)
    
    ' 获取表单文本框的内容并转成数值
    textBoxVal = Val(Sheet1.Shapes("TextBox1").TextFrame2.TextRange.Text)
    A.Value = A.Value + textBoxVal
End Sub

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