如果找到零（0）值vba excel，则文本框显示下一个值

此代码确实可以正常工作，但我需要

sheet1。单元格（I，3）

表示数量列为0，则文本框结果为下一个值。“所有时间”文本框显示不带零（0）值的值

用户表单搜索和结果

我的工作表（表1）

---

首先检查数量列的值是否不是0，如果为真，则用值填充控件：

For i = 1 To 20


If Sheet1.Cells(i, 1) = Val(Me.TextBox13) Then
cn = cn + 1

Me("txtItem" & cn) = Sheet1.Cells(i, 2)

Me("Qty" & cn) = Sheet1.Cells(i, 3)

Me("Price" & cn) = Sheet1.Cells(i, 4)

Me("Total" & cn) = Sheet1.Cells(i, 5)

End If

Next i

用于i=1到20
如果Sheet1.单元格（i，1）=Val（Me.TextBox13），则
如果Sheet1.单元格（i，3）为0，则“在此行中添加以检查数量列的值”
cn=cn+1
Me（“txtItem”和cn）=表1.单元格（i，2）
Me（“数量”和cn）=表1.单元格（i，3）
Me（“价格”和cn）=表1.单元格（i，4）
Me（“总计”和cn）=表1.单元格（i，5）
如果“在此行中添加”，则结束
如果结束
接下来我

这句话不清楚：“但我想要sheet1。单元格（I，3）表示数量列为任意一行为0，然后文本框结果下一个值。”当我按下搜索按钮，然后按下sheet1时，单元格（I，3）=列（数量）任意一行值为零，然后文本框（项目、数量、价格、总计）显示结果下一个值。它总是忽略零（0）值。例如：在文本框13是1101，然后按下搜索按钮，结果是显示文本框（项目、数量、价格、总额）>ban、10、10、100和gan、10、20、200。非常感谢

For i = 1 To 20
    If Sheet1.Cells(i, 1) = Val(Me.TextBox13) Then
                
        If Sheet1.Cells(i, 3) <> 0 Then 'add in this line to check value of Qty column
            cn = cn + 1
            
            Me("txtItem" & cn) = Sheet1.Cells(i, 2)
            Me("Qty" & cn) = Sheet1.Cells(i, 3)
            Me("Price" & cn) = Sheet1.Cells(i, 4)
            Me("Total" & cn) = Sheet1.Cells(i, 5)
        End If 'add in this line
    End If
Next i