1*SUM(i) 开源社区
2024-09-04 13:12:58
w 算法优化
Cells(i, "Y") + Cells(i, "Z") * 0.2 多计算了一次
是 1*SUM(i)次
Sub 订单利润()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Select Case Cells(i, "C")
Case Is = Adjustment
Cells(i, "AA") =
Case Is = FBA_W_Fee And W_Deal_Fee And Service_Fee
Cells(i, "AA") = Range(Cells(i, "V"))
Case Is = Order
If Cells(i, "X") = "" Then
Cells(i, "AA") =
Else
Cells(i, "AA") = Range(Cells(i, "Z")) - Range(Cells(i, "Y")) * Range(Cells(i, "G"))
End If
Case Is = Refund
If (Range(Cells(i, "Y")) + Range(Cells(i, "Z"))) * 0.1234 < Then
Cells(i, "AA") = (Range(Cells(i, "Y")) + Range(Cells(i, "Z"))) * 0.1234
Else
Cells(i, "AA") =
End If
Case Is = Transfer
Cells(i, "AA") =
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润0()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润1()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Select Case Cells(i, "C")
Case Is = "Adjustment"
Cells(i, "AA") =
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润2()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "Adjustment"
Cells(i, "AA") =
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润3()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "Adjustment"
Cells(i, "AA") =
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润4()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "Adjustment"
Cells(i, "AA") = Cells(i, "V")
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润5()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润6()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "W Deal Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Service Fee"
Cells(i, "AA") = Cells(i, "V")
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润7()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "W Deal Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润8()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee", "W Deal Fee", "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub Sub 订单利润9()
Dim i As Integer
i =
Do
Cells(i, "AA") =
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee", "W Deal Fee", "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i +
Loop Until Cells(i, "C") = ""
End Sub
最新文章
- Java 应该跨四个平台
- go切片
- windows Phone 浏览器窗口的尺寸
- Linux网络编程1——小端模式与大端模式
- ADB Server Didn’t ACK ,failed to Start Daemon 解决方法
- Java排序之排序大综合
- Flow Problem（最大流）
- 开启和禁用Wifi热点命令
- Android01-布局篇
- Centos7安装Percona5.7
- 服务器禁止ping
- springMVC_02hello案例
- 如何建一个maven项目
- qhfl-5 redis 简单操作
- 关于 Web Api 2 认证与授权
- CentOS配置yum源（补充）
- 《Go学习笔记 . 雨痕》类型
- windows用户态程序的Dump
- golang debug调试
- Web前端的状态管理