Question

所以我正在编写一个excel marco来自动完成一些手动任务。我正在写一个函数中的一个墙，它无法返回一个整数值给我在我调用它的子中使用。我觉得这很简单，但我不能为我的生活看到我做错了什么。

Function Find_Header(SearchTerm As String) As Integer
Dim Rng As Range
With Sheets("DATA").Range("A:CZ")
    Set Rng = .Find(What:=SearchTerm, _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlValues, _
                    lookat:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    If Not Rng Is Nothing Then
        Application.Goto Rng, True
        Find_Header = Rng.Column
    Else
        MsgBox "Nothing found"
    End If
End With
End Function

从一个子中我称之为：

Find_Header SearchTerm:="Status"

由于术语＆＃39;状态＆＃39;是在特定的范围内，是第5列我期望看到＆＃39; Find_Header＆＃39;在我的sub中等于5，但是一旦函数结束变量丢失，我不会在子例程中保留这个值吗？

谢谢，克里斯

Answer 1

您需要将结果存储在变量中 - 例如：

Dim iFoundCol as Integer
iFoundCol = Find_Header(SearchTerm:="Status")

Answer 2

一个函数返回一个需要存储在变量中的值，你不能简单地只调用函数

Excel VBA查找函数不返回整数值，无法看到我做错了什么

2 个答案: