find用法.docx_第1頁
find用法.docx_第2頁
find用法.docx_第3頁
find用法.docx_第4頁
find用法.docx_第5頁
免費預(yù)覽已結(jié)束,剩余1頁可下載查看

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

F1 幫助的內(nèi)容:Find 方法應(yīng)用于 Range 對象的 Find 方法。在區(qū)域中查找特定信息,并返回 Range 對象,該對象代表用于查找信息的第一個單元格。如果未發(fā)現(xiàn)匹配單元格,就返回 Nothing。本方法不影響選定區(qū)域或活動單元格。有關(guān)在 Visual Basic 中使用 Find 工作表函數(shù)的詳細信息,請參閱F1幫助中在 Visual Basic 中使用工作表函數(shù)。expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)expression 必需。該表達式返回一個 Range 對象。What Variant 類型,必需。要搜索的數(shù)據(jù)??蔀樽址蛉我?Microsoft Excel 數(shù)據(jù)類型。After Variant 類型,可選。表示搜索過程將從其之后開始進行的單元格。此單元格對應(yīng)于從用戶界面搜索時的活動單元格位置。值得注意的是,After 必須是區(qū)域中的單個單元格。請記住搜索是從該單元格之后 開始的;直到本方法繞回到指定的單元格時,才對其進行搜索。如果未指定本參數(shù),搜索將從區(qū)域的左上角單元格之后開始。LookIn Variant 類型,可選。信息類型。LookAt Variant 類型,可選??蔀橐韵?XlLookAt 常量之一:xlWhole 或 xlPart。SearchOrder Variant 類型,可選??蔀橐韵?XlSearchOrder 常量之一:xlByRows 或 xlByColumns。SearchDirection XlSearchDirection 類型,可選。搜索的方向。XlSearchDirection 可為以下 XlSearchDirection 常量之一。xlNext 默認值xlPreviousMatchCase Variant 類型,可選。若為 True,則進行區(qū)分大小寫的查找。默認值為 False。MatchByte Variant 類型,可選。僅在選擇或安裝了雙字節(jié)語言支持時使用。若為 True,則雙字節(jié)字符僅匹配雙字節(jié)字符。若為 False,則雙字節(jié)字符可匹配其等價的單字節(jié)字符。SearchFormat Variant 類型,可選。搜索的格式。說明每次使用本方法后,參數(shù) LookIn、LookAt、SearchOrder 和 MatchByte 的設(shè)置將保存。如果下次調(diào)用本方法時不指定這些參數(shù)的值,就使用保存的值。設(shè)置這些參數(shù)將更改“查找和替換”對話框中的設(shè)置,如果您忽略參數(shù),更改“查找和替換”對話框中的設(shè)置將更改使用的保存值。若要避免這種問題的出現(xiàn),每次使用該方法時請明確設(shè)置這些參數(shù)??梢允褂?FindNext和 FindPrevious方法重復(fù)搜索。當搜索到指定的搜索區(qū)域的末尾時,本方法將繞回到區(qū)域的開始繼續(xù)搜索。發(fā)生繞轉(zhuǎn)后,若要停止搜索,請保存第一個找到的單元格地址,然后依據(jù)該保存地址測試每個后續(xù)查找到的單元格地址。若要進行更為復(fù)雜的模式匹配查找,請用 For Each.Next 語句和 Like 運算符。例如,下列代碼在單元格區(qū)域 A1:C5 中搜索字體名稱以“Cour”開始的單元格。當 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-下面是幾個教學示例代碼: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() 字母大小寫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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論