[已解决]求助，用VBA，实现计件工资查找单价的问题。

新一

求助，用VBA，实现计件工资查找单价的问题。如我的附件，总工序表中，输入产品名称及工序，自动查找出单价。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-5 06:59

总工序工作表为当前工作表，自动生成单价

跳转到最佳答案楼层

开心妙妙

修改单价表的结构，用VLOOKUP简单可以完成
工序卡1.rar (96.78 KB, 下载次数: 30)

2014-4-4 19:51 上传

点击文件名下载附件

新一

开心妙妙 发表于 2014-4-4 19:51
修改单价表的结构，用VLOOKUP简单可以完成

谢谢帮助，但单价表，每个月都有单价更新，且要发一份给财务，我不想改变单价表原有的格式，我的原单价表两列的位置有三千多行，产品翻多。

dsmch

1. Sub 单价()
   
2. Dim arr, brr, crr, d, i&, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("单价表").Range("a1").CurrentRegion
   
5. brr = Range("c3:d" & Range("c65536").End(xlUp).Row)
   
6. ReDim crr(1 To UBound(brr), 1 To 1)
   
7. For i = 5 To UBound(arr)
   
8.     If arr(i, 2) = "" Then arr(i, 2) = arr(i - 1, 2)
   
9.     If arr(i, 7) = "" Then arr(i, 7) = arr(i - 1, 7)
   
10.     zf = arr(i, 7) & "," & arr(i, 8)
    
11.     d(zf) = arr(i, 9)
    
12.     zf = arr(i, 2) & "," & arr(i, 3)
    
13.     d(zf) = arr(i, 4)
    
14. Next
    
15. For i = 1 To UBound(brr)
    
16.     zf = brr(i, 1) & "," & brr(i, 2)
    
17.     crr(i, 1) = d(zf)
    
18. Next
    
19. Range("g3").Resize(UBound(crr)) = crr
    
20. End Sub
    

复制代码

1. Private Sub Worksheet_Activate()
   
2. Call 单价
   
3. End Sub
   

复制代码

dsmch

总工序工作表为当前工作表，自动生成单价

新一

非常感谢帮忙