




免費(fèi)預(yù)覽已結(jié)束,剩余1頁(yè)可下載查看
下載本文檔
版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
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
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 自然辯證法考試重點(diǎn)與難點(diǎn)總結(jié)
- 多維度特征提取在電力系統(tǒng)擾動(dòng)識(shí)別中的應(yīng)用
- 內(nèi)部資金調(diào)劑管理辦法
- 生物炭與有機(jī)肥配施對(duì)土壤健康及設(shè)施栽培黃瓜生長(zhǎng)的影響機(jī)制研究
- 安全運(yùn)輸操作規(guī)程與案例分析
- PCR實(shí)驗(yàn)室管理與標(biāo)準(zhǔn)化操作流程
- 供電營(yíng)銷(xiāo)計(jì)劃管理辦法
- 前六個(gè)月工作總結(jié)
- 安全生產(chǎn)責(zé)任考核及獎(jiǎng)懲
- 生產(chǎn)用電安全注意事項(xiàng)
- 律師事務(wù)所客戶(hù)數(shù)據(jù)安全管理制度
- 2025數(shù)學(xué)新課程標(biāo)準(zhǔn)培訓(xùn)
- 2025-2030中國(guó)新能源行業(yè)市場(chǎng)現(xiàn)狀供需分析及重點(diǎn)企業(yè)投資評(píng)估規(guī)劃分析研究報(bào)告
- GB/T 45698-2025物業(yè)服務(wù)客戶(hù)滿(mǎn)意度測(cè)評(píng)
- 2025年新高考1卷(新課標(biāo)Ⅰ卷)語(yǔ)文試卷(含答案)
- 本土品牌“品牌年輕化”策略研究
- 湖南省永州市寧遠(yuǎn)縣2025屆七年級(jí)數(shù)學(xué)第二學(xué)期期末達(dá)標(biāo)檢測(cè)試題含解析
- 創(chuàng)新人才小升初試題及答案
- 2025年行政管理期末試題及答案
- 胰島素筆的使用操作流程
- 江山南方水泥有限公司浙江省江山市大陳鄉(xiāng)烏龍村鐵錘山水泥用灰?guī)r礦建設(shè)項(xiàng)目環(huán)境影響報(bào)告表
評(píng)論
0/150
提交評(píng)論