怎么承接京东空调安装:让VBA自定义函数返回多个值

来源：百度文库编辑：偶看新闻时间：2024/05/01 18:41:05

问题的提出：
    因为Excel程序中多次用到Find方法，但是这个方法中的参数过于多，所以想一次性写好封装在一个函数内，把待检查的sheet及其要查找的单元格区域作为一个参数，查找内容作为另外一个参数，Find方法返回一个Range 对象，是否可以获得该对象的行和列？

方法1：传址法
方法2：自定义数据类型法
方法3：直接对象法

'方法1：传址法
Function SearchRef(T As Range, SearchItem As String, ByRef r As Long, ByRef c As Long) As Boolean
    Dim Match As Range
    Set Match = T.Find(What:=SearchItem, After:=T.Cells(T.Cells.Count), _
        LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True)
    If Not Match Is Nothing Then    'info found
        r = Match.Row
        c = Match.Column
        SearchRef = True
    Else                            ' nothing found
        SearchRef = False
    End If
End Function

Sub RunSearchRef()
    Dim r As Long, c As Long
    If SearchRef(Sheet1.Range("A1:E10"), "SWITCH COMPONENTS", r, c) Then
        MsgBox r
        MsgBox c
    Else
        MsgBox "Nothing found !"
    End If
End Sub

'方法2：自定义数据类型法
Type SearchRange
    r As Long
    c As Long
    Found As Boolean
End Type

Function SearchType(T As Range, SearchItem As String) As SearchRange
    Dim Match As Range
    Set Match = T.Find(What:=SearchItem, After:=T.Cells(T.Cells.Count), _
        LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=True)
    If Not Match Is Nothing Then    'info found
        SearchType.r = Match.Row
        SearchType.c = Match.Column
        SearchType.Found = True
    Else                            ' nothing found
        SearchType.Found = False
    End If
End Function

Sub RunSearchType()
    Dim sr As SearchRange
    sr = SearchType(Sheet1.Range("A1:E10"), "SWITCH COMPONENTS")
    If sr.Found Then
        MsgBox sr.r
        MsgBox sr.c
    Else
        MsgBox "Nothing found !"
    End If
End Sub

'方法3 直接对象法，在本例中完全可以直接利用Range对象
Function SearchObj(T As Range, SearchItem As String) As Range
    Set SearchObj = T.Find(What:=SearchItem, After:=T.Cells(T.Cells.Count), _
    LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=True)
End Function

Sub RunSearchObj()
    Dim r As Range
    Set r = SearchObj(Sheet1.Range("A1:E10"), "SWITCH COMPONENTS")
    If Not r Is Nothing Then
        MsgBox r.Row
        MsgBox r.Column
    Else
        MsgBox "Nothing found !"
    End If
End Sub

asp 自定义函数返回值如何做？自定义一个函数,对一个二维数组排序后,如何返回排序后的数组程序返回与函数返回 ksh 函数返回值函数返回值如何利用VBA返回一列中的最大值？？？如何让sql返回自定义多维结果集合（见内容） VB函数能一次返回多个值或者数组吗？网页设计，怎样让aspx窗体接收的汉字再返回浏览器，用什么函数。 javascript函数返回值得问题。什么是用户自定义函数 VBA编程中求某列的最大值的函数 VBA中的Dlookup()函数怎么用呢？如何用VBA编写一个自定义函数，使它可以从关闭的文件中搜索数字或文本，而且该函数在工作表公式中必须可用什么是有返回值函数和无返回值函数。返回了值？？？？ c语言的自定义函数函数的返回值（C语言）用asp 写函数返回值函数必须有返回值吗？ c语言 bioskey函数返回值问题返回图片的函数是哪一个 C语言中函数如何返回字符串？ InputBox函数返回的函数值的类型是？ DOS批处理中能自定义返回码吗?