思路:创建一个窗口,一个文本框,运行时在文本框输入一个字符串然后程序自动在EXCEL的Sheet2中的的A列查找一样的,如果有返回true 否则 返回false。For i = 2 To q
x = Mid(Sheets("sheet2").[A2], 1, 20)
y = Mid(Sheets("sheet2").[B2], 1, 20)
If x = str_1 Then    IsExit = True
Else
    IsExit = False
End IfNext i变量说明:
q——Sheet2中A列数据的行数——integer
x,y——string——分别获取A、B的字符串我无法利用变来那个i替换Sheet2中A列数据的当前行数,如
x = Mid(Sheets("sheet2").[Ai], 1, 20)   这样在循环中使得输入文本框中的字符串逐一与Sheet2中A列数据进行匹配。
请各位不吝赐教。
感谢之至!!!