vba - 返回select语句结果

Question

我有一个带有 select 语句的函数。我希望这个函数返回一个将分配给单元格的值，但我不断收到错误。这是我调用 select 语句函数的代码:

Sub ChangeSizes()

    For i = 2 To 50
        Range("G" & i) = LookupSize(Range("G" & i).value)
    Next i

End Sub

这是我的函数，我想返回一个将分配给该范围的值:

Public Function LookupSize(Size) As String

    Select Case Size
        Case Is = 1
            Return '5/8" or 1/4"'
        Case Is = 43
            Return '3/8"'
    End Select

End Function

但是，就目前情况而言，我收到一个错误:Return without Gosub

如何返回 case 语句的结果并将其分配给一个范围？

Answer 1

您将返回值分配给函数本身。单引号创建注释，双引号用于引用字符串。

Public Function LookupSize(Size) As String

    Select Case Size
        Case 1
            LookupSize = "5/8" or "1/4"
        Case 43
            LookupSize = "3/8"
    End Select

End Function