作工程报价,经常需要结合国家的定额来做报价单。根据定额的编号,很容易获得定额的价格,方便报价。以前做报价单的时候,都是用Vlookup函数来查找定额编号在反馈相应的价格。今天要讲的例子就是用vba取代Vlookup函数。
报价单往往都有很多行。快速的数据处理,用VBA明显会比VlookUP要快的多。
问题如下:
问题描述:
1:根据定额工作表里面的定额编号,获取黄色单元格区域的内容;
2:在报价单的工作里面,查找与定额编号匹配的数据填入。
解决的思路详解:
1:为了运行的速度,把定额工作表里面的数据,全部放入arr数组;
2:把定额编号作为字典的key,定额工作表里面的 项目名称+单位+数量作为字典的item。本例会把这三项数据,放入数组装入字典。 及字典套数组
3:查找字典的key,并输出数组。
代码运行的结果如下:
代码如下:
Sub test() Dim arr, d, Rng As Range A = False Set d = CreateObject(";) With Sheets("定额") arr = .Range("c6:f" & .Cells(.Rows.Count, 3).End(xlUp).Row) End With For i = 1 To UBound(arr) d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4)) Next With Sheets("报价单") For Each Rng In .Range("c6:c" & Cells(.Rows.Count, 3).End(xlUp).Row) Rng.Offset(0, 1).Resize(1, 3) = d) Next End With A = True End Sub代码解析
1:2行 Dim定义变量;
2:4行 后期绑定字典;
3:5~7行 把定额工作表里面的数据放入arr数组(本句代码是常用代码);
4:9~11行 遍历arr数组,把定额编号作为字典的key,把项目名称+单位+数量作为字典的item;
5:14行 遍历报价单工作表里的数据区域;
6:15行 把查询到的字典对应的item放入指定的单元格区域;
本例思考:
1:本例并没有事实更新的功能。请结合VBA的事件,做一个自动运行的代码。
2:本例在代码运行之前,没有清除填写单元格区域的内容,欢迎留言写入相应的代码。
小结:
解决本问题,需要用的知识点:
1:数组的运用
2:字典的运用
点击关注可以更方便的查看Excel VBA的案例文章
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件