我有一个带有 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 语句的结果并将其分配给一个范围?
最佳答案
您将返回值分配给函数本身。单引号创建注释,双引号用于引用字符串。
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
关于vba - 返回select语句结果,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49436615/