查找值的最后一次出现并显示在文本框中

我有一个简单的用户窗体有2个文本框。 1个工作条目，1个位置显示。

我想通过扫描条形码来追踪零件的位置，每次到达我们设施的新位置时。 这意味着我可能有相同的条形码＃4或5次。

在我的用户表单中，当用户键入一个工作号码，或扫描条形码到第一个文本框中时，第二个文本框将显示该部分的最后logging位置。

我写的代码似乎只是find了第一次的工作号码logging，虽然…我不确定如何让它从底部search，而不是自上而下。

任何人都可以build议吗？ 我在计算如何使用已经写在工作表上的数据填充用户表单时遇到了很多麻烦。 任何build议或指导阅读材料具体这一点将不胜感激！

这是我的代码：

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 

Answer 1

你有没有试过For X = WSLR To 2 Step -1 ？