excel - 使用 VBA 的函数

Question

我想将此代码转换为函数格式。我尝试输入函数而不是子版本，但是当我在单元格中输入 =version 时，什么也没有出现。任何帮助表示赞赏

Sub Version()

    If Range("B2").Value = 20.2 Then
        Range("B22").Value = 20.3

    If Range("B2").Value = 20.3 Then
        Range("B22").Value = 20.1
    End If
    End If

End Sub

标签： excelvbafunction

Answer 1

要使用此功能，您需要=Version(B2)在您的单元格上写B22：

Option Explicit
Function Version(Target As Range) As Single

    Select Case Target.Value
        Case 20.2
            Version = 20.3
        Case 20.3
            Version = 20.1
        '...
    End Select

End Function

例子：