引用EXCEL里的函数对LABEL标签赋值遇到类型不匹配问题

warton01 · 发表于 2018-9-18 23:35

本帖最后由 warton01 于 2018-9-21 10:08 编辑

附件已付上。a这个值就是TEXTBOX2里，也就是界面里需要输入代码的文本框。
我的意图是在点击扫描按钮后，弹出窗体，在窗体上也就是TEXTBOX1输入编码后，会根据此编码在sheet(匹配表）的相应区域找到对应的组别，然后依据不同组实现不同的抽取概率。
比如编码：902010101，此编码对应组别为A组。A组抽中条件是随机数<6。如果是B组那么是<5，以此类推
其他代码测试没问题，就是这句
Label19 = Val(Application.VLookup(Val(Mid(a, 1, 5)), Sheets("匹配表").Range("P2:Q117"), 2, 0))
执行时提示错误代码：13，我寻思了几天都没有发现问题，请大神指教！！

warton01 · 发表于 2018-9-19 08:53

请帮忙看下代码有无问题

lsdongjh · 发表于 2018-9-19 08:59

把你的想法和思路描述一下，不然根本看不懂你想干什么。如：a 是什么玩意？

long635000 · 发表于 2018-9-19 09:51

我看到你的窗体发现，是不是可以帮我修改一波。我的是每天有一个excel清单，扫描条码（上下两行条码长度不同）来判断是否一致，防止出错货。

warton01 · 发表于 2018-9-19 10:17

本帖最后由 warton01 于 2018-9-19 10:18 编辑

lsdongjh 发表于 2018-9-19 08:59
把你的想法和思路描述一下，不然根本看不懂你想干什么。如：a 是什么玩意？

恩。好的。a这个值就是TEXTBOX2里，也就是界面里需要输入代码的文本框。
我的意图是扫描代码后，会根据此代码对应的组别实现不同的抽取概率。
比如代码：902010101，此代码对应组别为A组。A组抽中条件是随机数<6。如果是B组那么是<5，以此类推

long635000 · 发表于 2018-9-19 10:53

我也有一个，估计类似的吧。

1. 每天的出货清单导入进来
2. 每个产品出库时扫描上下两行条码（长度不同）
3. 判断清单和实物产品条码是否正常
4. 正常显示或者提示框合格（OK），判断有问题则显示或者提示不合格（NG）
5. 比如今天扫描60个产品，扫描完了后有个按钮按一下，新sheet表保存这60个条码数据，名字就以当天日为sheet 名。

warton01 · 发表于 2018-9-19 17:47

顶一下，顶一下

warton01 · 发表于 2018-9-19 21:32

跪求解答，有点百思不得其解

warton01 · 发表于 2018-9-21 09:47

别沉了，求助

		自动登录	找回密码
密码			免费注册

[求助] 引用EXCEL里的函数对LABEL标签赋值遇到类型不匹配问题