在表單上拖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