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

【问题标题】：Text box show next value if find zero(0) value vba excel如果找到零（0）值vba excel，文本框显示下一个值
【发布时间】：2021-04-20 10:45:02
【问题描述】：

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

此代码确实可以正常工作，但我想要sheet1.cells(i,3) 表示数量列是任何行为 0，然后文本框结果为下一个值。文本框始终显示没有零 (0) 值的值。

用户表单搜索和结果

我的工作表（Sheet1）

【问题讨论】：

这条语句不清楚：“但我想要 sheet1.cells(i,3) 表示数量列是任何行为 0 然后文本框结果为下一个值。”
当我按下搜索按钮然后 sheet1,cells(i,3) = column(qty) 任何行值为零然后文本框（项目、数量、价格、总计）显示结果下一个值。它总是忽略零 (0) 值。例如：在 textbox13 中为 1101，然后按搜索按钮，结果显示文本框（项目、数量、价格、总计）>ban、10、10、100 和 gan、10、20、200。

标签： vba

【解决方案1】：

首先检查 qty 列的值是否不为 0，如果为 true，则使用 value 填充控件：

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

【讨论】：