[已解决]为什么这个代码不能把进价和售价显示出来

hrq145

5566.rar (89 KB, 下载次数: 18)

2014-7-8 14:27 上传

点击文件名下载附件
要显示入库总还会里面的进价跟售价

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-7-15 13:18

hrq145 发表于 2014-7-13 14:40
数量可以不出来吗，还有一个问题就是，如果一个单号入库价格不一样，能自动以最后一次入库 进货价和售价为 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim fin As Range, fin2 As Range
   
3.    
   
4.     If Target.CountLarge > 1 Then Exit Sub
   
5.     If Target.Address = "$D$2" Then
   
6.         If Target = "入库单" Then
   
7. 
   
8.             Application.EnableEvents = False
   
9.             Call rukugongshi
   
10.             '        Range("z1") = Range("z1") + 1
    
11.             Sheets("入库单").Range("j3") = "RKD" & Format(Date, "yymm") & Format(Range("z1"), "00000")
    
12.             Application.EnableEvents = True
    
13.         Else
    
14.             Application.EnableEvents = False
    
15. 
    
16.             '         Range("AA1") = Range("AA1") + 1
    
17.             Sheets("入库单").Range("j3") = "RKTD" & Format(Date, "yymm") & Format(Range("AA1"), "00000")
    
18.             Sheet1.Range("b5:j14,b3:c3,c16,g16:j16").ClearContents
    
19.             Call rukugongshi
    
20.             Application.EnableEvents = True
    
21.         End If
    
22.     End If
    
23. 
    
24.     If Target.Row > 4 And Target.Row < 15 And Target.Column = 2 Then
    
25.         Set fin = Sheets("资料库").Range("a:a").Find(Target(1).Value, lookat:=xlWhole)
    
26.         Set fin2 = Sheets("入库总汇").Range("f:f").Find(Target(1).Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
    
27. 
    
28.         If Not fin Is Nothing Then
    
29.             Application.EnableEvents = False
    
30.             Call rukugongshi
    
31.             Cells(Target.Row, 3).Resize(1, 3) = Sheets("资料库").Range("b" & fin.Row & ":d" & fin.Row).Value
    
32.             Application.EnableEvents = True
    
33.         Else
    
34.             MsgBox "没有找到该编号或者编码输入错误，请重新输入"
    
35.             Exit Sub
    
36.         End If
    
37. 
    
38.         If Not fin2 Is Nothing Then
    
39.             Application.EnableEvents = False
    
40.             Application.ScreenUpdating = False
    
41.             Cells(Target.Row, 6).Resize(, 3).Value = fin2.Offset(, 4).Resize(, 3).Value
    
42.             Cells(Target.Row, 6).ClearContents
    
43.             Application.EnableEvents = True
    
44.             Application.ScreenUpdating = True
    
45.         Else
    
46.             'Application.EnableEvents = False
    
47.             'MsgBox "没有找到该编号售价，默认为零"
    
48.             'Cells(Target.Row, 5) = 0
    
49.             Exit Sub
    
50.         End If
    
51.         Application.EnableEvents = True
    
52.     End If
    
53.     '     Sheets("销售单").Protect 123456
    
54. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

说清楚点，看不明白。在入库总汇里不是有个勾选可以实现么。

hrq145

hwc2ycy 发表于 2014-7-8 15:25
说清楚点，看不明白。在入库总汇里不是有个勾选可以实现么。

就是输入物料编号，就能把入库总汇的进价跟售价显示出来

hrq145

hrq145 发表于 2014-7-9 16:24
就是输入物料编号，就能把入库总汇的进价跟售价显示出来

那个物料编号输进去了就只有名称、规格、单位、会显示

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim fin, fin2
   
3. 
   
4.     If Target.Address = "$D$2" Then
   
5.         If Target = "入库单" Then
   
6. 
   
7.             Application.EnableEvents = False
   
8.             Call rukugongshi
   
9.             '        Range("z1") = Range("z1") + 1
   
10.             Sheets("入库单").Range("j3") = "RKD" & Format(Date, "yymm") & Format(Range("z1"), "00000")
    
11.             Application.EnableEvents = True
    
12.         Else
    
13.             Application.EnableEvents = False
    
14. 
    
15.             '         Range("AA1") = Range("AA1") + 1
    
16.             Sheets("入库单").Range("j3") = "RKTD" & Format(Date, "yymm") & Format(Range("AA1"), "00000")
    
17.             Sheet1.Range("b5:j14,b3:c3,c16,g16:j16").ClearContents
    
18.             Call rukugongshi
    
19.             Application.EnableEvents = True
    
20.         End If
    
21.     End If
    
22. 
    
23.     If Target.Row > 4 And Target.Row < 15 And Target.Column = 2 Then
    
24.         Set fin = Sheets("资料库").Range("a:a").Find(Cells(Target.Row, 2), lookat:=xlWhole)
    
25.         Set fin2 = Sheets("入库总汇").Range("f:f").Find(Cells(Target.Row, 2), lookat:=xlWhole)
    
26.         If Not fin Is Nothing Then
    
27.             Application.EnableEvents = False
    
28.             Call rukugongshi
    
29.             Cells(Target.Row, 3).Resize(1, 3) = Sheets("资料库").Range("b" & fin.Row & ":d" & fin.Row).Value
    
30.             'Cells(Target.Row, "f").Resize(1, 2) = Sheets("资料库").Range("j" & fin.Row & ":k" & fin.Row).Value
    
31.             'Set fin = Sheets("资料库").Range("a:a").Find(Cells(Target.Row, 2), lookat:=xlWhole)
    
32.             Application.EnableEvents = True
    
33.         Else
    
34.             MsgBox "没有找到该编号或者编码输入错误，请重新输入"
    
35.             Exit Sub
    
36.         End If
    
37. 
    
38.         If Not fin2 Is Nothing Then
    
39.             Application.EnableEvents = False
    
40.             'Set fin2 = Sheets("入库总汇").Range("f:f").FindPrevious(after:=fin2)
    
41. 
    
42.             Cells(Target.Row, 6).Resize(, 3).Value = fin2.Offset(, 4).Resize(, 3).Value
    
43.             'Cells(Target.Row, 6) = fin2.Offset(, 4).Value
    
44.             'Cells(Target.Row, 7) = fin2.Offset(, 5).Value
    
45.             'Cells(Target.Row, 8) = fin2.Offset(, 6).Value
    
46.             'Cells(Target.Row, 6) = Sheets("入库总汇").Range("L" & fin2.Row).Value
    
47.             'Cells(Target.Row, 7) = Sheets("入库总汇").Range("L" & fin2.Row).Value
    
48.             ' Cells(Target.Row, 6).Resize(1, 3) = Sheets("入库总汇").Range("k" & fin2.Row & ":l" & fin2.Row).Value
    
49. 
    
50.             Application.EnableEvents = True
    
51. 
    
52.         Else
    
53.             'Application.EnableEvents = False
    
54.             'MsgBox "没有找到该编号售价，默认为零"
    
55.             'Cells(Target.Row, 5) = 0
    
56.             Exit Sub
    
57.         End If
    
58.         Application.EnableEvents = True
    
59.     End If
    
60.     '     Sheets("销售单").Protect 123456
    
61. End Sub

复制代码

hrq145

hwc2ycy 发表于 2014-7-10 11:10

调试过，还是不能显示， 进价和售价

hwc2ycy

显示不了单价与数量是因为你输入的货号在入库汇总里没有。
不信你试试10066,10010货号就明白了。

hwc2ycy

hrq145

hwc2ycy 发表于 2014-7-10 23:02

数量可以不出来吗，还有一个问题就是，如果一个单号入库价格不一样，能自动以最后一次入库 进货价和售价为准吗

hwc2ycy

hrq145 发表于 2014-7-13 14:40
数量可以不出来吗，还有一个问题就是，如果一个单号入库价格不一样，能自动以最后一次入库 进货价和售价为 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim fin As Range, fin2 As Range
   
3.    
   
4.     If Target.CountLarge > 1 Then Exit Sub
   
5.     If Target.Address = "$D$2" Then
   
6.         If Target = "入库单" Then
   
7. 
   
8.             Application.EnableEvents = False
   
9.             Call rukugongshi
   
10.             '        Range("z1") = Range("z1") + 1
    
11.             Sheets("入库单").Range("j3") = "RKD" & Format(Date, "yymm") & Format(Range("z1"), "00000")
    
12.             Application.EnableEvents = True
    
13.         Else
    
14.             Application.EnableEvents = False
    
15. 
    
16.             '         Range("AA1") = Range("AA1") + 1
    
17.             Sheets("入库单").Range("j3") = "RKTD" & Format(Date, "yymm") & Format(Range("AA1"), "00000")
    
18.             Sheet1.Range("b5:j14,b3:c3,c16,g16:j16").ClearContents
    
19.             Call rukugongshi
    
20.             Application.EnableEvents = True
    
21.         End If
    
22.     End If
    
23. 
    
24.     If Target.Row > 4 And Target.Row < 15 And Target.Column = 2 Then
    
25.         Set fin = Sheets("资料库").Range("a:a").Find(Target(1).Value, lookat:=xlWhole)
    
26.         Set fin2 = Sheets("入库总汇").Range("f:f").Find(Target(1).Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
    
27. 
    
28.         If Not fin Is Nothing Then
    
29.             Application.EnableEvents = False
    
30.             Call rukugongshi
    
31.             Cells(Target.Row, 3).Resize(1, 3) = Sheets("资料库").Range("b" & fin.Row & ":d" & fin.Row).Value
    
32.             Application.EnableEvents = True
    
33.         Else
    
34.             MsgBox "没有找到该编号或者编码输入错误，请重新输入"
    
35.             Exit Sub
    
36.         End If
    
37. 
    
38.         If Not fin2 Is Nothing Then
    
39.             Application.EnableEvents = False
    
40.             Application.ScreenUpdating = False
    
41.             Cells(Target.Row, 6).Resize(, 3).Value = fin2.Offset(, 4).Resize(, 3).Value
    
42.             Cells(Target.Row, 6).ClearContents
    
43.             Application.EnableEvents = True
    
44.             Application.ScreenUpdating = True
    
45.         Else
    
46.             'Application.EnableEvents = False
    
47.             'MsgBox "没有找到该编号售价，默认为零"
    
48.             'Cells(Target.Row, 5) = 0
    
49.             Exit Sub
    
50.         End If
    
51.         Application.EnableEvents = True
    
52.     End If
    
53.     '     Sheets("销售单").Protect 123456
    
54. End Sub

复制代码