find用法.docx

F1 幫助的內(nèi)容：Find 方法應(yīng)用于 Range 對(duì)象的 Find 方法。在區(qū)域中查找特定信息，并返回 Range 對(duì)象，該對(duì)象代表用于查找信息的第一個(gè)單元格。如果未發(fā)現(xiàn)匹配單元格，就返回 Nothing。本方法不影響選定區(qū)域或活動(dòng)單元格。有關(guān)在 Visual Basic 中使用 Find 工作表函數(shù)的詳細(xì)信息，請(qǐng)參閱F1幫助中在 Visual Basic 中使用工作表函數(shù)。expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)expression 必需。該表達(dá)式返回一個(gè) Range 對(duì)象。What Variant 類(lèi)型，必需。要搜索的數(shù)據(jù)?？蔀樽址蛉我?Microsoft Excel 數(shù)據(jù)類(lèi)型。After Variant 類(lèi)型，可選。表示搜索過(guò)程將從其之后開(kāi)始進(jìn)行的單元格。此單元格對(duì)應(yīng)于從用戶(hù)界面搜索時(shí)的活動(dòng)單元格位置。值得注意的是，After 必須是區(qū)域中的單個(gè)單元格。請(qǐng)記住搜索是從該單元格之后 開(kāi)始的；直到本方法繞回到指定的單元格時(shí)，才對(duì)其進(jìn)行搜索。如果未指定本參數(shù)，搜索將從區(qū)域的左上角單元格之后開(kāi)始。LookIn Variant 類(lèi)型，可選。信息類(lèi)型。LookAt Variant 類(lèi)型，可選?？蔀橐韵?XlLookAt 常量之一：xlWhole 或 xlPart。SearchOrder Variant 類(lèi)型，可選?？蔀橐韵?XlSearchOrder 常量之一：xlByRows 或 xlByColumns。SearchDirection XlSearchDirection 類(lèi)型，可選。搜索的方向。XlSearchDirection 可為以下 XlSearchDirection 常量之一。xlNext 默認(rèn)值xlPreviousMatchCase Variant 類(lèi)型，可選。若為 True，則進(jìn)行區(qū)分大小寫(xiě)的查找。默認(rèn)值為 False。MatchByte Variant 類(lèi)型，可選。僅在選擇或安裝了雙字節(jié)語(yǔ)言支持時(shí)使用。若為 True，則雙字節(jié)字符僅匹配雙字節(jié)字符。若為 False，則雙字節(jié)字符可匹配其等價(jià)的單字節(jié)字符。SearchFormat Variant 類(lèi)型，可選。搜索的格式。說(shuō)明每次使用本方法后，參數(shù) LookIn、LookAt、SearchOrder 和 MatchByte 的設(shè)置將保存。如果下次調(diào)用本方法時(shí)不指定這些參數(shù)的值，就使用保存的值。設(shè)置這些參數(shù)將更改“查找和替換”對(duì)話框中的設(shè)置，如果您忽略參數(shù)，更改“查找和替換”對(duì)話框中的設(shè)置將更改使用的保存值。若要避免這種問(wèn)題的出現(xiàn)，每次使用該方法時(shí)請(qǐng)明確設(shè)置這些參數(shù)?？梢允褂?FindNext和 FindPrevious方法重復(fù)搜索。當(dāng)搜索到指定的搜索區(qū)域的末尾時(shí)，本方法將繞回到區(qū)域的開(kāi)始繼續(xù)搜索。發(fā)生繞轉(zhuǎn)后，若要停止搜索，請(qǐng)保存第一個(gè)找到的單元格地址，然后依據(jù)該保存地址測(cè)試每個(gè)后續(xù)查找到的單元格地址。若要進(jìn)行更為復(fù)雜的模式匹配查找，請(qǐng)用 For Each.Next 語(yǔ)句和 Like 運(yùn)算符。例如，下列代碼在單元格區(qū)域 A1:C5 中搜索字體名稱(chēng)以“Cour”開(kāi)始的單元格。當(dāng) Microsoft Excel 找到匹配單元格以后，就將其字體改為“Times New Roman”。For Each c In A1:C5 If c.Font.Name Like Cour* Then c.Font.Name = Times New Roman End IfNext-下面是幾個(gè)教學(xué)示例代碼：Sub Find1() 在某列查找Dim kk = Range(A:A).Find(A).RowMsgBox kEnd SubSub Find11() 在多列查找Dim kk = Range(A:B).Find(BCD).RowMsgBox kEnd SubSub Find2() 查找的起始位置Dim kk = Range(A:B).Find(A, AFTER:=Range(A5).RowMsgBox kEnd SubSub Find3() 在值中查找Dim kk = Range(B:B).Find(SE, LookIn:=xlValues).RowMsgBox kEnd SubSub Find31() 在公式中查找Dim kk = Range(B:B).Find(C2, LookIn:=xlFormulas).AddressMsgBox kEnd SubSub Find32() 在備注中查找Dim kk = Range(B:C).Find(AB, LookIn:=xlComments).AddressMsgBox kEnd SubSub Find41() 按模糊查找 Dim kk = Range(B:C).Find(A, LookIn:=xlValues, LOOKAT:=xlPart).AddressMsgBox kEnd SubSub Find42() 匹配查找 Dim kk = Range(B:C).Find(A, LookIn:=xlValues, LOOKAT:=xlWhole).AddressMsgBox kEnd SubSub Find5() 按先行后列的方式查找 Dim kk = Range(A:B).Find(AB, LookIn:=xlValues, LOOKAT:=xlWhole, SEARCHORDER:=xlByRows).AddressMsgBox kEnd SubSub Find51() 按先列后行的方式查找Dim kk = Range(A:B).Find(AB, LookIn:=xlValues, LOOKAT:=xlWhole, SEARCHORDER:=xlByColumns).AddressMsgBox kEnd SubSub Find6() 查找方向(從后向前)Dim kk = Range(A:A).Find(A, , xlValues, xlWhole, xlByColumns, xlPrevious).AddressMsgBox kEnd SubSub Find61() 查找方向(從前向后)Dim kk = Range(A:A).Find(A, , xlValues, xlWhole, xlByColumns, xlNext).AddressMsgBox kEnd SubSub Find7() 字母大小寫(xiě)Dim kk = Range(a:b).Find(a, , xlValues, xlWhole, xlByColumns, xlNext, False).AddressMsgBox kEnd SubSub f7() 查找不到的情況Dim MRG As RangeSet MRG = Range(A:A).Find(D)If MRG Is Nothing Then MsgBox 查找不到字母DElse MsgBox 查找成功,單元格地址為: & MRG.AddressEnd IfEnd SubSub f8() 二次查找Dim MRG As RangeSet MRG = Range(A:A).Find(A)Set mrg1 = Range(A:A).FindNext(MRG)MsgBox mrg1.AddressEnd SubSub F9() 區(qū)域查找Dim MRG A