find用法.docx

F1 帮助的内容：?Find 方法?应用于 Range 对象的 Find 方法。?在区域中查找特定信息，并返回 Range 对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。?有关在 Visual Basic 中使用 Find 工作表函数的详细信息，请参阅F1帮助中在 Visual Basic 中使用工作表函数。expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)expression????必需。该表达式返回一个 Range 对象。?What????Variant 类型，必需。要有哪些信誉好的足球投注网站的数据。可为字符串或任意 Microsoft Excel 数据类型。?After????Variant 类型，可选。表示有哪些信誉好的足球投注网站过程将从其之后开始进行的单元格。此单元格对应于从用户界面有哪些信誉好的足球投注网站时的活动单元格位置。值得注意的是，After 必须是区域中的单个单元格。请记住有哪些信誉好的足球投注网站是从该单元格之后??开始的；直到本方法绕回到指定的单元格时，才对其进行有哪些信誉好的足球投注网站。如果未指定本参数，有哪些信誉好的足球投注网站将从区域的左上角单元格之后开始。?LookIn????Variant 类型，可选。信息类型。?LookAt????Variant 类型，可选。可为以下XlLookAt常量之一：xlWhole或xlPart。?SearchOrder????Variant 类型，可选。可为以下XlSearchOrder常量之一：xlByRows或xlByColumns。?SearchDirection????XlSearchDirection类型，可选。有哪些信誉好的足球投注网站的方向。XlSearchDirection可为以下XlSearchDirection常量之一。xlNext默认值xlPreviousMatchCase????Variant 类型，可选。若为 True，则进行区分大小写的查找。默认值为 False。MatchByte????Variant 类型，可选。仅在选择或安装了双字节语言支持时使用。若为 True，则双字节字符仅匹配双字节字符。若为 False，则双字节字符可匹配其等价的单字节字符。SearchFormat????Variant 类型，可选。有哪些信誉好的足球投注网站的格式。说明每次使用本方法后，参数LookIn、LookAt、SearchOrder和MatchByte的设置将保存。如果下次调用本方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找和替换”对话框中的设置，如果您忽略参数，更改“查找和替换”对话框中的设置将更改使用的保存值。若要避免这种问题的出现，每次使用该方法时请明确设置这些参数。可以使用FindNext和FindPrevious方法重复有哪些信誉好的足球投注网站。当有哪些信誉好的足球投注网站到指定的有哪些信誉好的足球投注网站区域的末尾时，本方法将绕回到区域的开始继续有哪些信誉好的足球投注网站。发生绕转后，若要停止有哪些信誉好的足球投注网站，请保存第一个找到的单元格地址，然后依据该保存地址测试每个后续查找到的单元格地址。若要进行更为复杂的模式匹配查找，请用 For Each...Next 语句和 Like 运算符。例如，下列代码在单元格区域 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