如果语句VBA Excel 2010

好的，我正在用if语句计算费率

---

2千瓦时+
0.每千瓦0.4美元，首先为150千瓦时

1. 下一个150千瓦时每千瓦@ $ 0.25

2. 下一个150千瓦时每千瓦@ 0.10美元

3. 额外的千瓦时@ $ 0.05

---

我想要三行

• kWh – 使用（kWuse – 50kW，160kW，305kW，500kW，

• 千瓦时 – 价格（千瓦价格

• kWh – 成本（kWcost

用途将是他们使用多lessKw。 价格将是IF声明。 而成本将是两者的计算。

但是我需要帮助的是Price if语句。

谢谢，

Answer 1

假设你的意思是有一个2美元的基本费用+电价（4个电价），那么这个函数会给你的成本，如果你给它的使用。 由于税率固定在3层，你已经知道150,300和450千瓦时的成本是多less，所以我用这个函数。

有了这个，所有你需要的是2列。 用法和价格（这个公式）。

Function GetCost(ByVal usage As Double) As Double ' $2 kWh base + 'First 150 kWh per kW @ $0.4 'Next 150 kWh per kW @ $0.25 'Next 150 kWh per kW @ $0.10 'Additional kWh @ $0.05 If usage > 450 Then GetCost = 114.5 + ((usage - 450) * 0.05) ElseIf usage > 300 Then GetCost = 99.5 + ((usage - 300) * 0.1) ElseIf usage > 150 Then GetCost = 62 + ((usage - 150) * 0.25) Else GetCost = 2 + (usage * 0.4) End If End Function 

Answer 2

你的意思是这样吗？

 Dim Price as Double If kwPrice < 150 Then Price = 0.4 ElseIf kwPrice >= 150 And kwPrice <= 300 Then Price = 0.25 ElseIf kwPrice > 300 Then Price = 0.1 Else Price = 0.05 End If 

希望这会让你开始。