有关显示最后一次价格

hrq145

新建文件夹.rar (231.23 KB, 下载次数: 0) 2014-6-30 23:09 上传
点击文件名下载附件



2014-6-30 02:35 上传
下载附件 (98.36 KB)



这个入库总汇里面有的进价和售价，如果在入库单中如果编号就能显示入库总汇里面的进价和售价（要求是最后的，例如每次进价售价有调整过，以最后一次的价格为准）
2014-6-30 02:38 上传
下载附件 (281.19 KB)



以下代码如何修改呢


Private Sub Worksheet_Change(ByVal Target As Range)
Dim fin, fin1
    If Target.Address = "$C$2" Then
        If Target = "销售单" Then
        Application.EnableEvents = False
         Call xsgongshi
'        Range("z1") = Range("z1") + 1
        Sheets("销售单").Range("h3") = "XSD" & Format(Date, "yymm") & Format(Range("z1"), "00000")
         Application.EnableEvents = True
        Else
         Application.EnableEvents = False
'         Range("AA1") = Range("AA1") + 1
         Sheets("销售单").Range("h3") = "THD" & Format(Date, "yymm") & Format(Range("AA1"), "00000")
'         Sheets("销售单").Unprotect 123456
         Sheet5.Range("a5:i14,b3,b16,f16:h16").ClearContents
          Call xsgongshi
'         Sheets("销售单").Protect 123456
         Application.EnableEvents = True
        End If
    End If
   
       If Target.Row > 4 And Target.Row < 15 And Target.Column = 1 Then
'       Sheets("销售单").Unprotect 123456
     Set fin = Sheets("资料库").Range("a:a").Find(Cells(Target.Row, 1), lookat:=xlWhole)
      Set fin1 = Sheets("入库总汇").Range("f:f").Find(Cells(Target.Row, 1), lookat:=xlWhole)
     If Not fin Is Nothing Then
      Application.EnableEvents = False
       Call xsgongshi
        Cells(Target.Row, 2).Resize(1, 3) = Sheets("资料库").Range("b" & fin.Row & ":d" & fin.Row).Value
         Set fin = Sheets("资料库").Range("a:a").Find(Cells(Target.Row, 1), lookat:=xlWhole)
        
         Application.EnableEvents = True
        Else
        MsgBox "没有找到该编号或者编码输入错误，请重新输入"
        Exit Sub
     End If
     
    If Not fin1 Is Nothing Then
      Application.EnableEvents = False
      Set fin1 = Sheets("入库总汇").Range("f:f").FindPrevious(after:=fin1)
        Cells(Target.Row, 6) = Sheets("入库总汇").Range("L" & fin1.Row).Value
         Application.EnableEvents = True
      
        Else
        'Application.EnableEvents = False
        'MsgBox "没有找到该编号售价，默认为零"
         'Cells(Target.Row, 5) = 0
        Exit Sub
     End If
        Application.EnableEvents = True
     End If
'     Sheets("销售单").Protect 123456
End Sub