Vba 查找最后一次出现的值并显示在文本框中
我有一个简单的用户表单,它有两个文本框。1个用于作业输入,1个用于位置显示 我想通过每次零件到达我们工厂的新位置时扫描条形码来跟踪零件的位置。这意味着我可能有相同的条形码,如4或5次 在my userform中,当用户输入作业编号或将条形码扫描到第一个文本框中时,第二个文本框将显示零件的最后记录位置 我写的代码似乎只在第一次记录工号时才找到。。。我不确定如何让它从下到上搜索,而不是从上到下搜索 有人能提供建议吗?我很难弄清楚如何用已经写在工作表上的数据填充用户表单。任何有关阅读材料的建议或指导都将不胜感激 这是我的密码:Vba 查找最后一次出现的值并显示在文本框中,vba,excel,Vba,Excel,我有一个简单的用户表单,它有两个文本框。1个用于作业输入,1个用于位置显示 我想通过每次零件到达我们工厂的新位置时扫描条形码来跟踪零件的位置。这意味着我可能有相同的条形码,如4或5次 在my userform中,当用户输入作业编号或将条形码扫描到第一个文本框中时,第二个文本框将显示零件的最后记录位置 我写的代码似乎只在第一次记录工号时才找到。。。我不确定如何让它从下到上搜索,而不是从上到下搜索 有人能提供建议吗?我很难弄清楚如何用已经写在工作表上的数据填充用户表单。任何有关阅读材料的建议或指导都
Private Sub txtSCAN_BARCODE_FIND_Change()
'LOOP THROUGH DATABASE AND FIND THE PART LOCATION
Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("DATABASE")
WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row
For X = 2 To WSLR
'This is the job number we're looking for
If WS.Cells(X, 1) = Me.txtSCAN_BARCODE_FIND Then
'This is where the last recorded position is going to display
Me.txtLOCATION_FIND = WS.Cells(X, "F")
Exit Sub
End If
Next X
End Sub
您是否尝试过将X=WSLR转换为2步骤-1 你试过将X=WSLR改为2步骤-1吗?成功了!如此接近,但至今为止:我真的很感激!我应该加上它作为答案吗我也是。我花了很长时间找一个问类似问题的人。。。也许我们也可以帮助另一个nooblet!可以使用许多替代方案,braX回答解决OP问题。