请教各位老师，帮我修改这个代码

7016427 · 发表于 2023-4-17 09:38

本帖最后由 7016427 于 2023-4-17 09:41 编辑

If Not Instr(sheet1.cells(1,1),"已核") then msgbox"错误"
说明:sheet1.cells(1,1)单元格里没有“已核”提示错误。

清风竹- · 发表于 2023-4-17 09:42

试试这句，If InStr(Sheet1.Cells(1, 1), "已核") = 0 Then MsgBox "错误"

ykcbf1100 · 发表于 2023-4-17 10:47

Instr(sheet1.cells(1,1),"已核")结果是一个数字，而Not是一个逻辑值，二者不对等吧。
所以，Instr(sheet1.cells(1,1),"已核")=0来表示没有，应该更准确一点。

7016427 · 发表于 2023-4-17 13:03

ykcbf1100 发表于 2023-4-17 10:47
Instr(sheet1.cells(1,1),"已核")结果是一个数字，而Not是一个逻辑值，二者不对等吧。
所以，Instr(sheet1 ...

谢谢！学习了！

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

[求助] 请教各位老师，帮我修改这个代码