Match函数查找有错误

吃饭要吃三大碗

新手小白正在学习VBA中，刚接触Match函数，作为练习自己试做一个案例，不知道附件中的代码有啥问题，我譬如在窗口中输入猪肉，弹窗显示了2次猪肉的销量，但是表格中只有1个猪肉，希望有老师能帮忙解答。


代码如下

Sub查询2()
区域 = Array("零食", "水果", "肉类", "蔬菜")
On Error Resume Next
查询值 = InputBox("请输入查询品名", "查询")
If 查询值 Is Not Empty Then
  For Each n In 区域
    查找位置 = WorksheetFunction.Match(查询值, Sheets(n).Columns(1), 0)
    If 查找位置 <> "" Then
      MsgBox (查询值 & "的销量是：" & Sheets(n).Cells(查找位置, 2))
    End If
  Next n
End If
End Sub

小凡、、、

附件传了个寂寞

吃饭要吃三大碗

小凡、、、 发表于 2024-10-16 18:05
附件传了个寂寞

不好意思，重新传下，没注意

吃饭要吃三大碗

重新上传了，麻烦帮忙看下

暴走的小兔牙

运行了下，没有出现弹窗2次的情况出现。

吃饭要吃三大碗

暴走的小兔牙 发表于 2024-10-17 09:58
运行了下，没有出现弹窗2次的情况出现。

不好意思，是我的问题，vba窗口中有2个sub，我重新上传了附件
你是不是运行了查询1，查询1只能查询1次，我把查询1的代码去掉了，你直接运行sheet【代码问题】中的窗体按键【查询2】，输入猪肉，就会跳2次出来

暴走的小兔牙

查询截图。。。

吃饭要吃三大碗

暴走的小兔牙 发表于 2024-10-17 10:09
查询截图。。。

为啥我这边会跳出2次啊，你这边按钮3的代码就是我写的那个代码吗

暴走的小兔牙

吃饭要吃三大碗 发表于 2024-10-17 10:07
不好意思，是我的问题，vba窗口中有2个sub，我重新上传了附件
你是不是运行了查询1，查询1只能查询1次， ...

这个附件增加了一条，

吃饭要吃三大碗

暴走的小兔牙 发表于 2024-10-17 10:46
这个附件增加了一条，

好厉害，可以了，想问下，为啥要加 查找位置 = "" ，这个语句的意思是啥，我的代码缺了这个语句就发生错误了