我有一个搜索命令,只要我使用数据从工作表中激活它(从Visual Basic运行它),该命令就会起作用,但是命令按钮与数据在单独的工作表中,我无法获取如果不使用Visual Basic,它将返回数据到用户窗体。命令按钮在“ STOCK”工作表中,数据在“ StockData”中
我看过很多搜索或查找代码,但是所有工作都在当前工作表中进行,因此我的也可以工作。努力理解如何使代码从一张纸上读取并返回到用户表格的另一张纸上
Private Sub cmdFindR_Click()
Dim totalrow As Long
Dim wStock As Worksheet
Set wStock = ThisWorkbook.Worksheets("StockData")
With wStock
totalrow = wStock.Range("A1").CurrentRegion.Rows.Count
For currentrow = 2 To totalrow
If Trim(txtRecLine.Text) = Trim(Cells(currentrow, 1)) Then
txtTransactionCd.Text = Cells(currentrow, 3)
txtTrip.Text = Cells(currentrow, 4)
txtDate.Text = Cells(currentrow, 5)
End If
Next currentrow
End With
End Sub
Private Sub UserForm_Initialize()
currentrow = 2
End Sub
我期待正确的解决方法,希望有人能提供帮助。我敢肯定这并不难,但这是我的第一个数据库,我喜欢学习,但是在这里和那里都在努力。
谢谢,T