-
選項？明確的
數組下標從0開始。
選項？基地？0
保存關鍵字數組
暗淡？Keys()？作為？線
按鈕點擊事件處理過程
Sub？Search_Click()
清除結果
暗淡？索引？作為？整數
暗淡？iResultRow？作為？整數
暗淡？bHasResult？作為？布爾代數學體系的
bHasResult？=?錯誤的
關鍵字在第二行第二列。
用+分隔關鍵字，並將它們保存在數組中。
鑰匙？=?分割(Sheet1。細胞(2，2),?"+")
行號從1開始。
索引？=?1
結果列從第二行開始。
iResultRow？=?2
搜索第壹列，直到出現空行。
什麽時候？Sheet1。單元格(索引，？1)?& lt& gt？""
如果？SearchKey(Sheet1。單元格(索引，？1))?=?真的嗎？然後
將符合條件的字符串復制到第四列。
Sheet1。單元格(iResultRow，4)?=?Sheet1。單元格(索引，？1)
iResultRow？=?iResultRow？+?1
bHasResult？=?真實的
結束？如果
索引？=?索引？+?1
行
如果？bHasResult？=?假的？然後
MsgBox？“沒有妳要找的結果！”,?vbOKOnly？+?vbInformation，？"提示"
結束？如果
結束？潛水艇
函數:判斷給定字符串是否包含所有關鍵字，如果是，返回True，否則返回False。
功能？SearchKey(strText？作為？字符串)？作為？布爾代數學體系的
為了什麽？我？=?0?去哪？UBound(鍵)
如果？InStr(1，？strText，？鍵(I))？=?0?然後
只要有壹個關鍵字找不到，就退出。
SearchKey？=?錯誤的
退出？功能
結束？如果
然後
之前沒有出口，也就是說包含了所有的關鍵詞。返回True。
SearchKey？=?真實的
結束？功能
流程功能:清空結果列，這裏只清空100行，可以根據需要修改。
Sub？ClearResult()
暗淡？索引？作為？整數
從第二行開始清理
為了什麽？索引？=?2?去哪？100
Sheet1。單元格(索引，？4)?=?""
然後
結束？潛水艇
-
運行結果如下:
如果妳需要附件，留下郵件直接發給妳。