从用户表单文本框中获取工作表中当前选定单元格的文本值

Question

Cliffnotes：我正在尝试将在Userform的TextBox2中输入的值插入活动单元格。目前，我收到一条错误消息，上面写着"；需要对象"；。

完整的故事：我是VBA的新手，正在尝试创建一个Userform，您可以在TextBox2中输入一个值，然后点击一个按钮，该按钮将运行我的宏，该宏执行以下操作：查找名为"的列；Dummy"；，在伪列的左侧添加一列，将公式从右侧复制到该新列，并将我在TextBox2中输入的值插入活动单元格(从新列的第1行向下4行(。感谢您的帮助。非常感谢。

'Adding a column to the left of DUMMY
Sheets("Collateral Strat").Select
Dim DUMMY As Range
Set DUMMY = Range("C5:DD5").Find("DUMMY")
If DUMMY Is Nothing Then
MsgBox "DUMMY column was not found."
Exit Sub
Else
Columns(DUMMY.Column).Offset(, 0).Resize(, 1).Insert
End If

'CTRL+Spacebar
ActiveCell.EntireColumn.Select
'CTRL+R
Selection.FillRight
ActiveCell.Offset(4, 0).Select
'this doesnt work yet
ActiveCell.Text = TextBox2.Text

Answer 1

替换：

ActiveCell.Text=文本框2.文本

带有：

ActiveCell.Value=文本框2.文本

请记住，.Text是只读的。