zoukankan      html  css  js  c++  java
  • 1*SUM(i) 开源社区

    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 = 2
       Do
       Select Case Cells(i, "C")
       Case Is = Adjustment
               Cells(i, "AA") = 0
       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") = 0
            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 < 0 Then
                  Cells(i, "AA") = (Range(Cells(i, "Y")) + Range(Cells(i, "Z"))) * 0.1234
                  Else
                  Cells(i, "AA") = 0
               End If
       Case Is = Transfer
               Cells(i, "AA") = 0
       End Select
       i = i + 1
          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 = 2
       Do
            Cells(i, "AA") = 1000
       i = i + 1
          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 = 2
       Do
          Select Case Cells(i, "C")
       Case Is = "Adjustment"
               Cells(i, "AA") = 12
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        Select Case Cells(i, "C")
       Case Is = "Adjustment"
               Cells(i, "AA") = 12
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        Select Case Cells(i, "C")
       Case Is = "Adjustment"
               Cells(i, "AA") = 12
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        Select Case Cells(i, "C")
       Case Is = "Adjustment"
               Cells(i, "AA") = Cells(i, "V")
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        Select Case Cells(i, "C")
       Case Is = "FBA Inventory Fee"
               Cells(i, "AA") = Cells(i, "V")
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        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 + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        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 < 0 Then
                    Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
                End If
       End Select
       i = i + 1
          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 = 2
       Do
          Cells(i, "AA") = 0
        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 < 0 Then
                    Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
                End If
       End Select
       i = i + 1
          Loop Until Cells(i, "C") = ""
    End Sub
    
    
    
    Sub 订单利润9()
    Dim i As Integer
       i = 2
       Do
          Cells(i, "AA") = 0
        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 < 0 Then
                    Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
                End If
       End Select
       i = i + 1
          Loop Until Cells(i, "C") = ""
    End Sub
  • 相关阅读:
    f12 接口自动刷新页面 来不及看接口信息 前端有没有传值
    order by 分组报错 shop 有三个字段 根据author 选出最大的price
    mybatis 动态sql
    正则 只有英文或者数字 长度6位以上 数字或者英文全部一样
    sql :1 :2
    前端Json数据,后台String接收,如何解析
    Json数据格式化
    LeetCode63. 不同路径 II
    LeetCode62. 不同路径
    LeetCode746. 使用最小花费爬楼梯
  • 原文地址:https://www.cnblogs.com/rsapaper/p/6746613.html
Copyright © 2011-2022 走看看