可实现精确查找、模糊查找和继续查找的自定义函数

醉风 · 发表于 2010-3-14 01:33

本帖最后由爱疯于 2012-9-10 15:18 编辑

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2010-3-14 16:15:20编辑过]

liutaijun · 发表于 2010-3-14 09:05

付了金币啦

刘志文 · 发表于 2010-3-14 15:33

看看[em01]

坏多多 · 发表于 2010-3-14 15:34

楼上你看了，里面是啥内容？

joyark · 发表于 2010-3-14 23:03

付了金币啦

joyark · 发表于 2010-3-14 23:07

可实现精确查找、模糊查找和继续查找的自定义函数　　在Excel中，VLOOKUP()是最常被使用的查找引用函数，但这个函数有一个问题，就是被查找的对象必须位于所查找区域的第一列位置上，引用是使用相对地址进行操作的，而且，当被查找区域不存在被查找对象时，函数返回值是不正确的。　　下面第一个函数 S_FIND在以前介绍过，该函数正是针对这一问题，即所查找对象可以位于被查找区域的任意列上，查找的应用也使用绝对地址，即直接通过列标来引用。　　但我最初设计的时候，该函数仅能完成对单元格的精确查找，无法完成模糊查找和继续查找。　　重新设计的查找函数包括以下组合：S_FIND(M_code, M_SHEET, M_AREA, M_COL As String)实现对被查找对象的精确查找、S_FINDP(M_code, M_SHEET, M_AREA, M_COL As String)实现对被查找对象的模糊查找、S_FINDN(M_code, M_SHEET, M_AREA, M_COL As String)实现对被查找对象的继续查找。其中，实现继续查找需引入全局变量，即在模块首部进行变量定义，而且S_FINDN函数的使用必须在S_FIND或S_FINDP被使用后才起作用。同时，当第四个函数变量M_COL被以空字符（即""）代入时，该三函数返回值为被查找对象的行标。Dim M_CBUT, M_CROW As IntegerFunction S_FIND(M_code, M_SHEET, M_AREA, M_COL As String) '在 M_SHEET 工作表 M_AREA 范围中
精确查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。 '以上函数参数均为文本或其值为文本的单元格或表达式。    Dim M_ROW As Integer    Dim M_STEP As Integer    M_CBUT = 0    M_CROW = 0    M_RANGE = ""    On Error GoTo 100    M_code = Trim(M_code)    If M_SHEET = "" Then     M_ROW = Range(M_AREA).Find(Trim(M_code), LOOKAT:=xlWhole).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_COL & M_ROW)     End If    Else     M_ROW = Range(M_SHEET & "!" & M_AREA).Find(Trim(M_code), LOOKAT:=xlWhole).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_SHEET & "!" & M_COL & M_ROW)     End If    End If    M_CBUT = 1    M_CROW = M_ROW100:    S_FIND = M_RANGEEnd FunctionFunction S_FINDP(M_code, M_SHEET, M_AREA, M_COL As String) '在 M_SHEET 工作表 M_AREA 范围中
模糊查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。 '以上函数参数均为文本或其值为文本的单元格或表达式。    Dim M_ROW As Integer    Dim M_STEP As Integer    M_CBUT = 0    M_CROW = 0    M_RANGE = ""    On Error GoTo 100    M_code = Trim(M_code)    If M_SHEET = "" Then     M_ROW = Range(M_AREA).Find(Trim(M_code), LOOKAT:=xlPart).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_COL & M_ROW)     End If    Else     M_ROW = Range(M_SHEET & "!" & M_AREA).Find(Trim(M_code), LOOKAT:=xlPart).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_SHEET & "!" & M_COL & M_ROW)     End If    End If    M_CBUT = 1    M_CROW = M_ROW100:    S_FINDP = M_RANGEEnd FunctionFunction S_FINDN(M_code, M_SHEET, M_AREA, M_COL As String) '在 M_SHEET 工作表 M_AREA 范围中
再次查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。 '以上函数参数均为文本或其值为文本的单元格或表达式。 '此函数必须在S_FIND或S_FINDP被点击后使用    Dim M_ROW As Integer    Dim M_STEP As Integer    M_RANGE = ""    On Error GoTo 100    If M_CBUT = 0 Then GoTo 100    M_code = Trim(M_code)    If M_SHEET = "" Then     M_ROW = Range(M_AREA).FindNext(AFTER:=Cells(M_CROW, Range(M_AREA).Column)).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_COL & M_ROW)     End If    Else     M_ROW = Range(M_SHEET & "!" & M_AREA).FindNext(AFTER:=Cells(M_CROW, Range(M_AREA).Column)).Row     If M_COL = "" Then      M_RANGE = M_ROW     Else      M_RANGE = Range(M_SHEET & "!" & M_COL & M_ROW)     End If    End If    M_CBUT = M_CBUT + 1    M_CROW = M_ROW100:    S_FINDN = M_RANGEEnd Function使用时可在VBA编辑器中新建模块，并将上述函数及全局变量定义复制到该模块即可。

醉风 · 发表于 2010-3-14 23:26

兄弟，你太不厚道了吧，俺刚来想赚点学费而已啊，怎么断俺财路哈[em06]

jmxili · 发表于 2010-3-16 21:50

付了金币啦

深秋的红叶 · 发表于 2010-3-16 22:05

付了钱了

zjsxzgx · 发表于 2010-3-16 23:33

谢谢分享

		自动登录	找回密码
密码			注册

[VBA] 可实现精确查找、模糊查找和继续查找的自定义函数