当前位置：文江博客话题详情

If 语句 VBA Excel 2010

发布于 2024-11-25 09:59:34 字数 458 浏览 1 评论 0原文

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

$2 kWh +
0. 首个每千瓦 150 千瓦时 @ 0.4 美元

接下来
接下来每千瓦 150 千瓦时 @ 0.25 美元
接下来每千瓦 150 千瓦时 @ 0.10 美元
额外 kWh @ $0.05

我想要三排

kWh - 使用 (kWuse - 50kW、160kW、305kW、500kW、
kWh - 价格 (kWprice
kWh - 成本 (kWcost

使用将是多少 Kw价格将是 IF 语句，成本将是两者的计算，

的是价格 if 语句。

但我需要帮助

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

你的呼吸 2024-12-02 09:59:34

你的意思是这样的吗？

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

希望这能让您开始。

Do you mean something like this?

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

Hopefully that will get you started.

回复收藏 0 原文

自由如风 2024-12-02 09:59:34

假设您的意思是有 2 美元的基本费用 + kWh 费率（4 个定价项），那么这里有一个函数，如果您给出使用量，它将为您提供成本。由于费率固定为 3 级，您已经知道 150、300 和 450 kWh 的成本是多少，所以我在函数中使用了它。

这样，您只需要 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

Assuming that you mean that there is a 2 dollar base charge + the kWh rate (4 pricing teirs), then here is a function that will give you the cost if you give it the usage. Since the rates are fixed at 3 tiers, you already know what the cost is for 150, 300, and 450 kWh, so I used that in my function.

With this, all you need is 2 columns. The usage, and the price (this formula).

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

回复收藏 0 原文

~没有更多了~