美文网首页
分析满足多条件的订单配送货量(利用VBA)

分析满足多条件的订单配送货量(利用VBA)

作者: 护国寺小学生 | 来源:发表于2019-06-15 23:51 被阅读0次

    背景

    这里有一份某物流公司的全年的城市配送数据,配送车辆都为如17.5M、12.5M、9.6M、4.2M的厢式货车,但会存在部分订单方量较小,为了提高装载率,需引进一批满载方量较小的电动车参与配送。所以需要分析出电动车每天(及全年)需要配送的货量(体积)和车辆数。
    其中某品牌电动车的配置:

    • 最大装载容积:11方
    • 最大装载重量:1530KG
    • 最大行驶距离:195KM

    城市配送明细数据简述

    这里只介绍我们需要处理的几列数据。


    数据明细表

    每天的配送数据是以货物名称作为每一行的参考基准,例如第一行表示12.31号某货物发了2件,包括运输距离,货物体积,货物重量,由哪辆运输车辆负责配送。意味者表中同一天货物的客户订单号是重复的,车牌号也是重复的,订单线路也是重复的,实际配送中,每天单个车辆需要拼装多个订单号的货物(车辆每天一次配送作业)。

    数据处理

    1.数据透视,以客户订单号为主键,获取每天每个订单下的货物体积累积和、重量累积和。
    2.筛选出公里数小于195KM的线路



    3.找出每天1辆电动车(体积11方,重量1530KG)或2辆电动车(体积22方,3060KG)可以满足的车辆配送方案。其实这里每天同一车辆对应的订单号,订单号对应的体积和、重量和就是车辆实际配送的装载方案。
    4.由此,我们只要将每天下的同一车辆配送的货物的体积求和,重量求和,对于满足电动车配送的条件的就是我们需要获取的数据。
    5.做个查询条件表,左列为全年的每天日期,右列为配送车牌



    6.通过VBA的方式做条件查询。

    VBA代码参考:
    Sub 按钮3_Click()
     '获取明细数据表(A列)、日期列(I列)、车牌列(J列)数据的总行数
        maxir = [A65536].End(3).Row
        dates = [I65536].End(3).Row
        vehicles = [J65536].End(3).Row
        'MsgBox (maxir)
        'MsgBox (dates)
        'MsgBox (vehicles)
        '将需要获取的数据存放的所在位置清零
        Range("o2:cg353") = ""
        Dim w As String
        Dim v As String
        '从日期列开始循环取值
        For ir = 2 To dates
           '从车排列开始循环取值
          For iNum = 1 To vehicles - 1
                
            w = 0
            v = 0
            
            jr = iNum + 1
            
        
             '单元格引用SUMIFS函数
             
             'SUMIFS(求和区域,条件区域1,条件1,条件区域2,条件2)
             
             '求符合条件的重量和
             
             w = WorksheetFunction.SumIfs(Range("d2:d" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
             
             '求符合条件的体积和
             v = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
             '满足体积小于等于11,重量小于1530的值插入单元格
             If w < 1530 And v <= 11 Then
             
                Cells(ir, 14 + iNum) = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
             
             ElseIf v > 11 And v < 22 And w < 3060 Then
                
                Cells(ir, 14 + iNum) = WorksheetFunction.SumIfs(Range("c2:c" & maxir), Range("a2:a" & maxir), Range("i" & ir).Value, Range("g2:g" & maxir), Range("j" & jr).Value)
             
             End If
           
          Next iNum
          
        Next ir
      
    End Sub
    
    
    1. 执行代码,最终得到一张满足电动车条件的日期(行)车牌(列)的矩阵表(体积)



      8.再利用countif,sumifs函数就可以得到每天需要配备的电动车辆数及每天的货量。


    相关文章

      网友评论

          本文标题:分析满足多条件的订单配送货量(利用VBA)

          本文链接:https://www.haomeiwen.com/subject/dnbifctx.html