如何用VBA因商品的购买数量和折扣比率计算其批发单价

实例图如下:

 

 

 

 

代码如下:

Sub july232()

For Each y In Worksheets

x = y.UsedRange.Rows.Count

For i = 2 To x

x = y.Cells(i, "B")

a = y.Cells(i, "A")

c = y.Cells(i, "C")

If x <= 3 Then

c = a - a * 0.01

ElseIf x <= 5 Then

c = a - a * 0.02

Else

c = a - a * 0.05

End If

Next

Next

End Sub

©️2020 CSDN 皮肤主题: 技术黑板 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值