[已解决]怎么用find语句做100%完整的判断,而不是包含判断?

markang

如附件,我在sheet1.range("A1")输入一个数值,如果这个数值不完全等于sheet2中A列的数值,则显示msgbox.
现在如果用find语句,只要我在A1输入包含的信息,他都不显示msgbox,这个该怎么改呢?
举例,我在sheet1.range("A1")输入k,不会弹出msgbox,但实际上sheet2中A列的数值没有一个单元格是"K"的,我希望他能弹出,谢谢. find 语句.rar (12.78 KB, 下载次数: 4)

2015-2-11 13:05 上传

点击文件名下载附件
Dim a, i, x
    x = Sheets(1).Range("a1")
    a = Sheets(2).Range("a1").CurrentRegion
    If Sheets(2).Range("a1").CurrentRegion.Find(x) Is Nothing Then
    MsgBox "输入错误或机型数据不存在，请点确定重新输入", , "警告"
   
    End If

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-11 13:38

………………

跳转到最佳答案楼层

dsmch

………………

markang

谢谢! 最近放慢了学习的脚步要跟上才对