casewhen同时满足多条件_分析满足多条件的城市配送订单货量（利用VBA）

75 阅读 0 评论 50 点赞

我是靠谱客的博主受伤画板，最近开发中收集的这篇文章主要介绍casewhen同时满足多条件_分析满足多条件的城市配送订单货量（利用VBA），觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

背景

这里有一份某物流公司的全年的城市配送数据，配送车辆都为如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