'Object Required'错误VBA试图保存详细信息

时间:2015-02-01 21:55:55

标签: excel excel-vba vba

有人可以帮帮我吗?

基本上,我的Excel电子表格中有三个文本框,我有一个按钮,我希望将详细信息保存到另一张表格的表格中。

每行都有一个'x',这样程序就可以知道保存下一个数据的位置。

当我点击“保存”按钮时,会出现一个错误,提示“需要对象”。

我对VBA太可怕了,严重的我不知道,所以也许试着以愚蠢的方式保留答案,这样我就不会搞砸了?我可能做了一些小错误,但我不确定。这是我的代码:

Public Function findrow(texttofind As String) As Integer

Dim i As Integer
Dim firstTime As Integer
Dim bNotFound As Boolean

i = 5
bNotFound = True
Do While bNotFound
  If Cells(i, 1).Value = texttofind Then
   firstTime = i
   bNotFound = False
  End If
  i = i + 1
Loop
findrow = firstTime
End Function

Sub SaveCustomer()
 Dim rowno As Integer
 Worksheets("Customers").Select
 rowno = findrow("x")
 Range("C" & rowno).Value = Invoice.TextBox21.Text
 Range("D" & rowno).Value = Invoice.TextBox22.Text
 Range("E" & rowno).Value = Invoice.TextBox23.Text
 Worksheets("Invoice").Select
End Sub

我对VBA非常苛刻,我的老师不是很好,我只需要解决这个问题,这样我就可以完成任务。我只想将3个文本框中的信息保存到另一个工作表的表中。感谢您的任何帮助!

如果这是重复的话我很抱歉,但因为我在VBA上非常糟糕,其他问题的答案根本不能帮助我。

1 个答案:

答案 0 :(得分:2)

替换

 Range("C" & rowno).Value = Invoice.TextBox21.Text
 Range("D" & rowno).Value = Invoice.TextBox22.Text
 Range("E" & rowno).Value = Invoice.TextBox23.Text

 Range("C" & rowno).Value = Worksheets("Invoice").TextBox21.Text
 Range("D" & rowno).Value = Worksheets("Invoice").TextBox22.Text
 Range("E" & rowno).Value = Worksheets("Invoice").TextBox23.Text