数据表截图
|
订单号 |
订单等级 |
订单数量 |
完成数 |
|
|
10001 |
高级 |
30 |
25 |
|
|
10002 |
高级 |
40 |
23 |
|
|
10003 |
高级 |
40 |
20 |
用宏实现表中订单完成情况计算，并把未完成结果复制到另一表中。
function 订单统计(){
Range("E1").Value2="未完成订单数";//单元格赋值
Range("E2").Formula="=C2-D2";//输入公式
Range("E2").Select();
Selection.AutoFill(Range(Range("D2").Offset(0,1),Range("D2").End(xlDown).Offset(0,1)),xlFillDefault); //自动填充，计算所有行。
}
运行结果：
function 订单统计(){
Range("E1").Value2="未完成订单数";
Range("E2").Formula="=C2-D2";
Range("E2").Select();
Selection.AutoFill(Range(Range("D2").Offset(0,1),Range("D2").End(xlDown).Offset(0,1)),xlFillDefault);
Range("E1").Select();
Selection.AutoFilter(undefined, undefined, xlAnd, undefined, undefined);//设置筛选
Range(Range("D1").Offset(0,1),Range("D1").End(xlDown).Offset(0,1)).AutoFilter(5, ">0", xlAnd, undefined, undefined);//条件筛选
Range(Range("A1"),Range("D1").End(xlDown).Offset(0,1)).Select();
}
