[已解决]单价引用不正确，请帮助修改代码。

心灵有约

单价引用不正确.zip (32.69 KB, 下载次数: 14)

2012-3-11 15:50 上传

点击文件名下载附件

下表为成本计算表：

月份

表名

产品编码

产品名称

原料编码

file:///C:/Users/GUANGD~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png

    　  　   单价   期望i列值
   1月  　  甲  　  1001  　  　  　  　       1.00
  2月  　  甲  　  1002  　  　  　  　     18.00
  1月  　  甲  　  混合1  　  　  　  　     15.00
  1月  　  甲  　  混合2  　  　  　  　   未找到
                     
                     
                     
   说明：                  
   1、  成本计算表引用单价表的单价            
   2、  成本计算表中原料编码不含“混合”字样时，引用单价取决于原料编码及月份是否分别相同，包含混合字样时，除原料编码及月份外，还取决于产品编码也是否相同，否则显示“未找到”
   3、  请在现有的代码中修改               
   4、  现有代码运行有错误               
   以下为单价表

原料编码	品项	产品编码	产品名称	1月	2月	3月	4月	5月	6月	7月	8月	9月	10月	11月	12月
混合1		甲		15	16	17	18	19	20	21	22	23	24	25	26
1001		乙		1	2	3	4	5	6	7	8	9	10	11	12
1002		丙		15	18	21	24	27	30	33	36	39	42	45	48

                  

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-3-11 16:26

心灵有约 发表于 2012-3-11 16:03
不好意思，计算表中有误，产品编码应为乙 不是甲
其实，当计算表中原物料编码不含混合字样时，引用单价不 ...

1. Sub 引用单价()
   
2.     Dim ar, br, cr, dr()
   
3.     Dim i As Integer, j As Integer, k As Integer
   
4.     ar = Sheets("成本计算").Range("a1").CurrentRegion
   
5.     br = Sheets("单价").Range("a1").CurrentRegion
   
6.     cr = Sheets("单价").Range("e1:p1")
   
7.     ReDim dr(1 To UBound(ar) - 1, 1 To 1)
   
8.     For i = 2 To UBound(ar)
   
9.         For j = 2 To UBound(br)
   
10.             If (ar(i, 5) = br(j, 1) And Not ar(i, 5) Like "*混合*") Or (ar(i, 5) = br(j, 1) And ar(i, 3) = br(j, 3) And ar(i, 5) Like "*混合*") Then
    
11.                 k = Application.Match(ar(i, 1), cr, 0)
    
12.                 dr(i - 1, 1) = br(j, k + 4)
    
13.                 Exit For
    
14.             End If
    
15.             dr(i - 1, 1) = "未找到"
    
16.         Next
    
17.     Next
    
18.     With Sheets("成本计算")
    
19.         .Range("i2").Resize(UBound(dr)).ClearContents
    
20.         .Range("i2").Resize(UBound(dr)) = dr
    
21.     End With
    
22. End Sub

复制代码

跳转到最佳答案楼层

know

期望值 与  单价表中的数据不同,不知道如何处理?

1月 甲 101,单价是没有的,就显示1?

心灵有约

know 发表于 2012-3-11 16:00
期望值 与  单价表中的数据不同,不知道如何处理?

1月 甲 101,单价是没有的,就显示1?

不好意思，计算表中有误，产品编码应为乙 不是甲
其实，当计算表中原物料编码不含混合字样时，引用单价不考虑产品编码，只要两表的月份和原料编码相同即可

know

试试这个,结果与 你要求的大不相同,应该是你修改过数据测试吧?

如果不是,还请说明 其它两个数据是怎么来的...

1. 
   
2. Sub 单价()
   
3. Dim H As Long, H1 As Long, Lx As Byte
   
4. Dim Sh As Worksheet
   
5.   Set Sh = Sheet18
   
6.   With Sheet17
   
7.     For H = 2 To .Range("A1").End(xlDown).Row
   
8.       Lx = Split(.Cells(H, "A"), "月")(0) + 4
   
9.       For H1 = 2 To .Range("A1").End(xlDown).Row
   
10.         If .Cells(H, "E") & .Cells(H, "C") = Sh.Cells(H1, "A") & Sh.Cells(H1, "C") Then
    
11.           .Cells(H, "I") = Sh.Cells(H1, Lx).Value
    
12.           Exit For
    
13.         End If
    
14.       Next
    
15.       If H1 > .Range("A1").End(xlDown).Row Then .Cells(H, "I") = "未找到"
    
16.     Next
    
17.   End With
    
18. End Sub
    

复制代码

雄鹰

Sub 单价引用2()
For i = 2 To Sheets("成本计算").[a65536].End(xlUp).Row
   For j = 2 To Sheets("单价").[a65536].End(xlUp).Row
   If Sheets("成本计算").Cells(i, 5) = Sheets("单价").Cells(j, 1) Then
      a = Left(Sheets("成本计算").Cells(i, 1), Len(Sheets("成本计算").Cells(i, 1)) - 1)
      Sheets("成本计算").Cells(i, 9) = Sheets("单价").Cells(j, a + 4)
   End If
   Next
Next
End Sub

雄鹰

Sub 单价引用2()
For i = 2 To Sheets("成本计算").[a65536].End(xlUp).Row
b = 0
   For j = 2 To Sheets("单价").[a65536].End(xlUp).Row
    If Sheets("成本计算").Cells(i, 5) = Sheets("单价").Cells(j, 1) Then
       a = Left(Sheets("成本计算").Cells(i, 1), Len(Sheets("成本计算").Cells(i, 1)) - 1)
       Sheets("成本计算").Cells(i, 9) = Sheets("单价").Cells(j, a + 4)
    End If
   b = b + 1
   Next
   If b = Sheets("单价").[a65536].End(xlUp).Row - 1 Then Sheets("成本计算").Cells(i, 9) = "未找到"
Next
End Sub

hrpotter

心灵有约 发表于 2012-3-11 16:03
不好意思，计算表中有误，产品编码应为乙 不是甲
其实，当计算表中原物料编码不含混合字样时，引用单价不 ...

1. Sub 引用单价()
   
2.     Dim ar, br, cr, dr()
   
3.     Dim i As Integer, j As Integer, k As Integer
   
4.     ar = Sheets("成本计算").Range("a1").CurrentRegion
   
5.     br = Sheets("单价").Range("a1").CurrentRegion
   
6.     cr = Sheets("单价").Range("e1:p1")
   
7.     ReDim dr(1 To UBound(ar) - 1, 1 To 1)
   
8.     For i = 2 To UBound(ar)
   
9.         For j = 2 To UBound(br)
   
10.             If (ar(i, 5) = br(j, 1) And Not ar(i, 5) Like "*混合*") Or (ar(i, 5) = br(j, 1) And ar(i, 3) = br(j, 3) And ar(i, 5) Like "*混合*") Then
    
11.                 k = Application.Match(ar(i, 1), cr, 0)
    
12.                 dr(i - 1, 1) = br(j, k + 4)
    
13.                 Exit For
    
14.             End If
    
15.             dr(i - 1, 1) = "未找到"
    
16.         Next
    
17.     Next
    
18.     With Sheets("成本计算")
    
19.         .Range("i2").Resize(UBound(dr)).ClearContents
    
20.         .Range("i2").Resize(UBound(dr)) = dr
    
21.     End With
    
22. End Sub

复制代码

fjmxwrs

心灵有约 发表于 2012-3-11 16:03
不好意思，计算表中有误，产品编码应为乙 不是甲
其实，当计算表中原物料编码不含混合字样时，引用单价不 ...

单价引用不正确.zip (30.34 KB, 下载次数: 8)

2012-3-11 16:33 上传

点击文件名下载附件
是这样的结果吧