函数在VBA Excel中使用IF

大家好，stackoverflow社区，我对下面的代码有问题，我想创建一个函数，如果“条件”为真，则对所选单元格求和，如果不是减法

 Function balance(condition As Double, amount As Integer, residue As Integer)
 
     If condition = "PAGO" Or "PAGO AGENC" Then 
         balance = amount - residue
     ElseIf Tipo = "DEBITO" Then 
         balance = amount + residue
     End If

     balance = Application.Round(balance, 2) 

End Function

---

一些小的修正：

Function balance(condition As String, amount As Integer, residue As Integer)

If condition = "PAGO" Or condition = "PAGO AGENC" Then
    balance = amount - residue
ElseIf condition = "DEBITO" Then
    balance = amount + residue
End If
balance = Application.Round(balance, 2)
End Function

---

一些小的修正：

Function balance(condition As String, amount As Integer, residue As Integer)

If condition = "PAGO" Or condition = "PAGO AGENC" Then
    balance = amount - residue
ElseIf condition = "DEBITO" Then
    balance = amount + residue
End If
balance = Application.Round(balance, 2)
End Function

---

与Gary的学生相同，但在条件不是“PAGO”、不是“PAGO AGENC”或“DEBITO”的情况下添加了一条警告线：

---

与Gary的学生相同，但在条件不是“PAGO”、不是“PAGO AGENC”或“DEBITO”的情况下添加了一条警告线：

---

非常好地使用

变量（+1）非常好地使用
变量（+1）只需注意一点：如果两个值​​（数量和剩余数）都是整数类型，因此不需要使用舍入。因为我们谈论的是钱，所以这些变量的类型很可能是双重的。注意：如果两个值都是​​（数量和剩余数）都是整数类型，因此不需要使用舍入。因为我们谈论的是钱，这些变量的类型很可能是双重的