求老师帮忙写个VBA简易代码

yifei031201

因用函数公式速度太慢，如何用VBA代码在“机物料记录表”的D7:D10000列的单元格输入物料编号后自动查找“机物料单价”表中盖编号对应的“名称、型号、单位、单价”，并填充在本表的对应的“名称、型号、单位、单价”中，并用本月出库数量乘单价计算值J列的单元格中

ykcbf1100

工作表事件

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("机物料单价")
   
5.         r = .Cells(Rows.Count, 2).End(3).Row
   
6.         arr = .Range("a1").Resize(r, 6)
   
7.         For i = 2 To UBound(arr)
   
8.             S = CStr(Trim(arr(i, 2)))
   
9.             d(S) = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6))
   
10.         Next
    
11.     End With
    
12.     If T.Column = 4 And T.Row > 6 Then
    
13.         r = T.Row
    
14.         S = CStr(T.Value2)
    
15.         For j = 5 To 8
    
16.             Me.Cells(r, j) = d(S)(j - 5)
    
17.         Next
    
18.         Me.Cells(r, 10) = Val(Me.Cells(r, 8)) * Val(Me.Cells(r, 9))
    
19.     End If
    
20. End Sub
    

复制代码

yifei031201

ykcbf1100 发表于 2024-3-14 15:06
工作表事件

谢谢老师的帮助

yifei031201

ykcbf1100 发表于 2024-3-14 15:06
工作表事件

有个问题，就是先输入编号后名称、型号、单位、单价都能出来，然后输入出库数量后出库金额不计算

ykcbf1100

yifei031201 发表于 2024-3-14 15:20
有个问题，就是先输入编号后名称、型号、单位、单价都能出来，然后输入出库数量后出库金额不计算

你的顺序错了，先输入出库数量，然后再输入编号

yifei031201

ykcbf1100 发表于 2024-3-14 15:25
你的顺序错了，先输入出库数量，然后再输入编号

能不能最后输入出库数量

fzxba

Sub test1()

  Dim Conn As Object, SQL As String, strConn As String
  Dim A As String, B As String
  
  Set Conn = CreateObject("ADODB.Connection")
  If Application.Version < 12 Then
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
  Else
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
  End If
  Conn.Open strConn & ThisWorkbook.FullName
  
  With Worksheets("机物料记录")
    A = .Name & "$D6:I" & .Cells(.Rows.Count, "D").End(xlUp).Row
  End With
  
  With Worksheets("机物料单价")
    B = "SELECT DISTINCT * FROM [" & .Name & "$B2:F" & .Cells(.Rows.Count, "B").End(xlUp).Row & "]"
  End With
  
  
  SQL = "SELECT a.物料编号,b.名称,b.型号,b.单位,b.单价,a.本月出库,a.本月出库*b.单价 AS 出库金额 FROM [" & A & "] a LEFT JOIN (" & B & ") b ON TRIM(a.物料编号)=TRIM(b.物料编号)"
  
  Range("D7").CopyFromRecordset Conn.Execute(SQL)
  
  Conn.Close
  Set Conn = Nothing
  Beep
End Sub

fzxba

机物料消耗.zip (347.41 KB, 下载次数: 19)

2024-3-14 15:32 上传

点击文件名下载附件

rudy_0990

我采用了相对比较原始的方法。其实构架可以编的很简单。
就是工作表的change事件，不是selection的change事件，但是我关联了公式，（个人习惯，习惯公式关联，避免数据源变化导致目标表格不能联动）。
供参考。
出库数量还没写、、、要去开会了 哈
-----------------------【以下更新，附件也更新了】--------------------------

出库数量我看了，你的数据源基本都是按照材料编码来的【已经更新】
你的机物料记录那里的出库数量就用编码作为索引，用countif函数就行了