vba - 根据数值范围在行中设置值

Question

我正在使用 excel 将数据导入我公司的订单系统。我需要导入的最重要的值是包代码，即定义需要订购哪个包的代码）。为了定义需要哪个包代码，我们查看一个数值。

假设我有以下 3 个包代码：

• ES000034 - 当数值 = 9 时使用
• ES000035 - 当数值 = > 大于 9 且 < 小于 16 时使用
• ES000036 - 当数值 = > 16 时使用

我希望Excel根据上面提到的条件设置需要使用哪个包代码的值。有人可以解释一下代码的样子。

Answer 1

在一个公式中：

像这样的东西，其中 A1 是您正在检查的单元格： =IF(A1=9,"ES000034",IF(AND(A1>=9, A1 <16),"ES000035",IF(A1>=16,"ES000036","")))

在 VBA 中，类似这样的使用如下=PackageCode(A1)：

Function PackageCode(value As Variant) As String
    If IsNumeric(value) Then
        Select Case value
            Case 9
                PackageCode = "ES000034"
            Case 9 To 16
                PackageCode = "ES000035"
            Case Is > 16
                PackageCode = "ES000036"
            Case Else
                PackageCode = ""
        End Select
    End If
End Function