Question

有人可以帮帮我吗？

基本上，我的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上非常糟糕，其他问题的答案根本不能帮助我。

Answer 1

替换

 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

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

1 个答案: