有人可以帮帮我吗?
基本上,我的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上非常糟糕,其他问题的答案根本不能帮助我。
答案 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