Question

我有一个简单的用户表单，有2个文本框。 1表示作业输入，1表示位置显示。

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

在我的用户格式中，当用户键入作业编号或将条形码扫描到第一个文本框中时，第二个文本框将显示该部件的最后记录位置。

我写的代码似乎只发现第一次记录工作号码...我不确定如何让它从下往上搜索，而不是自上而下搜索。

任何人都可以提供建议吗？我在如何使用已经写在工作表上的数据填充用户表单时遇到了很多麻烦。任何有关此事的阅读材料的建议或指示都将非常感谢！

这是我的代码：

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吗？

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

1 个答案: