Excel VBA用户窗体texbox输入错误

Question

我正在尝试创建一个宏，该宏将把在用户窗体文本框中编写的任何内容输入到活动单元格中。 但是，每当我尝试运行该部分代码时，都会收到错误438。这是调试中显示的部分示例。

With Selection.Font
.Bold = True
End With
ActiveCell.Value = UserForm2.Controls("TextBox" & i).Caption
ActiveCell.Offset(1, 0).Select

Answer 1

错误438表示对象不支持该属性或方法。 Textbox.Caption不存在。 有关方法/属性的完整列表，请参见MSDN TextBox属性。

关于如何修复代码： ActiveCell.Value = UserForm2.Controls("TextBox" & i).Value或ActiveCell.Value = UserForm2.Controls("TextBox" & i).Text