【运行时错误，424，要求对象】应如何解决？内有详细附件，新人求帮忙，非常感谢~~~

BGYqiuzi

附件见下
表格设置的初衷，是想点击弹出对话框，在对话框中输入客户名字，点击确定按钮后，数据可自动保存到表格中
但是在调试的时候，发现提示【运行时错误，424，要求对象】
新人求大神搭理，非常感谢~~~

蓝桥玄霜

请见代码。

1. Private Sub CommandButton1_Click()
   
2. Dim xrow As Long
   
3. xrow = Range("A1").CurrentRegion.Rows.Count + 1 '工作表中第一条空行是在第几行
   
4. Cells(xrow, "a").Value = TextBox1.Text
   
5. TextBox1.Value = ""
   
6. End Sub
   

复制代码

chxw68

详见附件。

獨一無2

将TestBox的名称改成客户姓名。

BGYqiuzi

獨一無2 发表于 2018-7-15 09:34
将TestBox的名称改成客户姓名。

成功了，谢谢你哟~

BGYqiuzi

谢谢各位老师的指点，已成功，感谢感谢~

BGYqiuzi

chxw68 发表于 2018-7-15 08:57
详见附件。

我明白了，谢谢您哟~

BGYqiuzi

蓝桥玄霜 发表于 2018-7-15 08:55
请见代码。

弄好了，非常谢谢您哟~