Excel vba 多個條件查詢應該怎麽做，可以用find方法嗎？

在表單上拖2個文本框控件,文本框裏輸入關鍵字,比如(張，財)

代碼裏面取關鍵字,用like和表裏的內容比較,多個查詢的話,可以用and連接.

代碼框架如下:

strKey1=textbox1.text

strKey2=textbox2.text

for iRow=1 to 100

if (strKey1 like Activesheet.Range(iRow,iCol)) and

(strKey2 like Activesheet.Range(iRow,iCol+1))

then

messagebox("查詢到")

exit for

endif

end for