如何把IF判断写入VBA?
2个回答
展开全部
现有公式
=IF(OR(H1="客户自付",I1=0),0,ROUND(IF(I1>99999,99999,IF(I1<2695,2695,I1))*19%,2))
按你现有公式,逻辑判断如下
首先单元格H6等于"客户自负"和单元格I6=0,两个条件任意一个符合的情况下,单元格M6数值为0,反之,那么进行下列数据计算
分为2中条件
1.1第一种条件
I6>9999,那么M6=9999*0.19,结果四舍五入保留2为小数
1.2第二种条件,,又分为两个条件
2.1第二种第一个条件
I6<2695,那么M6=2695*0.19,结果四舍五入保留2为小数
2.2第二种第二个条件
i6>2695,那么M6=I6*0.19,结果四舍五入保留2为小数
最后代码如下
本例演示工作表名称为Sheet1,不同请修改
Public Sub tt()
vSheetName = "Sheet1"
Sheets(vSheetName).Select
If Range("H1") = "客户自付" Or Range("I1") = 0 Then
If Range("I1") > 9999 Then
Range("J1") = Round(9999 * 0.19, 2)
End If
If Range("I1") < 2695 Then
Range("J1") = Round(2695 * 0.19, 2)
Else
Range("J1") = Round(Range("I1") * 0.19, 2)
End If
Else
Range("J1") = 0
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询