如何改写Excel VBA中含Select Case的自定义函数？

原代码存在两个核心问题：

• 参数名与函数名重名（y既是函数名又是参数），导致赋值逻辑混乱
• Case 1 < x <= 2不符合VBA语法规范，VBA不支持连续比较写法

修正后的代码 #

Public Function CalcY(x As Double) As Double
    Select Case x
        Case Is <= 1
            CalcY = x
        Case Is > 1 And Is <= 2
            CalcY = 2 * x
        Case Is > 2
            CalcY = 3 * x
    End Select
End Function

关键修正说明 #

• 重命名函数为CalcY，避免与参数名冲突（如果原函数确实需要第二个参数，可将参数名改为非y的名称，比如inputVal，并根据实际逻辑使用）
• 将错误的区间判断Case 1 < x <= 2改为Case Is > 1 And Is <= 2，符合VBA的Select Case语法规范
• 直接给函数名赋值，明确指定返回值（原代码中因参数名与函数名重名，实际是给参数赋值而非返回值）

可选简化写法 #

如果区间是连续且无重叠的，也可以用To来简化区间（注意To是闭区间，若原逻辑是1 < x <=2，则需要调整为Case 1.0000001 To 2，但更推荐用And的写法保证逻辑精准）：

Public Function CalcY(x As Double) As Double
    Select Case x
        Case Is <= 1
            CalcY = x
        Case 1 To 2
            CalcY = 2 * x
        Case Is > 2
            CalcY = 3 * x
    End Select
End Function

注：此写法中Case 1 To 2包含x=1的情况，若需严格排除x=1，请使用带And的版本。

内容的提问来源于stack exchange，提问作者xeyiy76985