如何在使用数字和文本值的If And语句的VBA中创建UDF？

如何解决如何在使用数字和文本值的If And语句的VBA中创建UDF？

我有一个包含3个不同类别的表格：MainLand，Island，City；每个都有2个不同的可能值，其中一个值根据“权重”分配给它们。如果'Weight' 2kg，我们需要将其四舍五入为最接近的整数，然后将0.3（对于大陆而言为0.9，对于岛屿等而言为0.9）乘以2kg以上的额外整数。然后，成本将是前2kg的原始值，然后将每个区域的小数乘以多余的整数。我尝试创建自己的函数以选择3个单元格并进行计算，因为对于excell给出的线性函数来说，它似乎太复杂了。

但是我总是会出错...

请注意，所有变量值均来自用户选择的单元格，而“位置”值只是检查单元格中存在哪些文本，以分配适当的数字进行计算。

那是我到目前为止所拥有的...有什么提示吗？

Function TotalCost(ByVal tmx As Integer,ByVal weight As Double,_
                                            ByVal Location As Text)
      Dim b As Integer
      Dim c As Integer
      Dim d As Integer

      d = 0
      c = 0
      f = 0
    
      If Location Like "Mainland" And weight <= 2 Then
          TotalCost = 1.2
      ElseIf Location Like "Mainland" And weight > 2 Then

          weight = Round(weight,0)
          c = weight - 2

          Do While c > 0
              c = c - 1
              d = d + 1
          Loop

          TotalCost = tmx * ((d * 9.55) + 1.2)
        
      ElseIf Location Like "City" And weight <= 2 Then

          TotalCost = 1.1
     
      ElseIf Location Like "City" And weight > 2 Then

           weight = Round(weight,0)
           c = weight - 2

           Do While c > 0
               c = c - 1
               d = d + 1
           Loop

           TotalCost= tmx * ((d * 0.55) + 1.1)
                    
       ElseIf Location Like "Island" And weight <= 2 Then

           TotalCost = 1.3
     
       ElseIf Location Like "Island" And weight > 2 Then

           weight = Round(weight,0)
           c = weight - 2
           Do While c > 0
               c = c - 1
               d = d + 1
           Loop
           TotalCost= tmx * ((d * 0.7) + 1.3)
    
       End If

End Function

解决方法

类似这样可能会更好：

Function TotalCost(ByVal tmx As Integer,ByVal weight As Double,_
                                            ByVal Location As String)
    
    Dim base As Double,mult As Double,tot As Double,wtExtra As Double
    
    Select Case Location
        Case "Mainland"
            base = 1.2
            mult = 9.55
        Case "City"
            base = 1.1
            mult = 0.55
        Case "Island"
            base = 1.3
            mult = 0.7
        Case Else
            TotalCost = "?Location?"
            Exit Function
    End Select
    
    If weight > 2 Then
        'round up to nearest kg and subtract 2
        wtExtra = Application.Ceiling(weight,1) - 2
        TotalCost = tmx * ((wtExtra * mult) + base)
    Else
        TotalCost = base
    End If
      
End Function

,

您可以使用相对简单的公式进行计算，但是需要一些准备工作，其中一些准备工作也与UDF相同。这是公式。我将在下面详细解释。

=VALUE(INDEX(Rates,1,MATCH($F$2,$B$1:$D$1))+(INDEX(Rates,2,$B$1:$D$1))*(-INT($G$2/-2)-1)))*INT(MAX($H$2,1))

首先，设置。

1. 我将您在问题中发布的表格放在了A1：D3范围内。
2. 我为数字B1：D3创建了一个命名范围，并将其命名为 Rates
3. 然后我在F2中创建了一个Validation下拉列表，该下拉列表涉及范围B1：D1（“城市”，“大陆”，“岛屿”）
4. 我在单元格G2中标记了要输入的重量
5. 用H2输入包裹数量。

接下来的准备工作。

• [G6] = MATCH（F2，B1：D1）返回1、2或3，具体取决于F2中选择的内容
• [G7] =（-INT（G2 / -2）-1）返回超重附加费的数量，例如0表示2（kg）以下的东西，1表示2.1至4.0，2表示2.1至6.0等
• [G5] = INT（MAX（H2,1）） 在更改F2：H2时，必须通过检查其所有结果来单独测试所有这些公式。 （我做到了。）这就是基本公式。

=INDEX(Rates,G6)+(INDEX(Rates,G6)*G7)

而且，因为它是字符串，

=VALUE(INDEX(Rates,G6)*G7))

，然后乘以包裹数，

=VALUE(INDEX(Rates,G6)*G7))*G5

现在剩下要做的就是用G5，G6和G7中的公式替换上面的G5，G6和G7。然后添加$符号以启用公式的复制，您将首先获得上面提供的结果。