自动分类填充

下了夏天-17

“出入库台账”表中分成扫码枪和价签套两个工作表，分别记录客户经理领用的时间和数量；
“发放物资台账汇总-A经理”和“发放物资台账汇总-B经理”表中分成扫码枪和价签套两个工作表，每个工作表记录这个物资（如扫码枪）客户经理的领用和发放明细。
现需要根据“出入库台账”表中记录的领用数据，自动填充“发放物资台账汇总”表的不同客户经理不同物资名称的“领用时间”和“领用数量”，其中，填充过去的领用时间（B列）需要根据发放时间（D列）自动排序放置（填充的是最接近发放时间且小于发放时间的领用时间）

ykcbf1100

这个是先进先出问题了，暂时没有头绪。先做个标记吧。

下了夏天-17

ykcbf1100 发表于 2023-6-7 11:20
这个是先进先出问题了，暂时没有头绪。先做个标记吧。

或者暂时不考虑时间排序的问题，直接把领用时间和数量自动填充过去即可，最后手动调整顺序

ykcbf1100

下了夏天-17 发表于 2023-6-7 11:24
或者暂时不考虑时间排序的问题，直接把领用时间和数量自动填充过去即可，最后手动调整顺序

那数据会错位。

下了夏天-17

ykcbf1100 发表于 2023-6-7 11:32
那数据会错位。

错位没关系，最后的时候我来手动调整位置。我想这样代码会不会简单一点

ykcbf1100

下了夏天-17 发表于 2023-6-7 11:34
错位没关系，最后的时候我来手动调整位置。我想这样代码会不会简单一点

那我等下看看。

fzxba

1. Sub test0()
   
2.   Dim Conn As Object, SQL As String, strConn As String, s As String
   
3.   Dim ar, i As Long, j As Long, p As Long, y As Long
   
4.   Set Conn = CreateObject("ADODB.Connection")
   
5.   If Application.Version < 12 Then
   
6.     strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO';Data Source="
   
7.   Else
   
8.     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=NO';Data Source="
   
9.   End If
   
10.   Conn.Open strConn & ThisWorkbook.Path & "\出入库台账.xlsx"
    
11.   
    
12.   For i = 2 To Worksheets.Count
    
13.     p = 5
    
14.     With Worksheets(i)
    
15.       SQL = "SELECT F1,F2 FROM [" & Split(.Range("A2"), "：")(1) & "$D5:F] WHERE F3='" & Split(.Range("F2"), "：")(1) & "'"
    
16.       ar = Conn.Execute(SQL).GetRows
    
17.       If IsArray(ar) Then
    
18.         For j = LBound(ar, 2) To UBound(ar, 2)
    
19.           For y = p To .Cells(Rows.Count, "D").End(xlUp).Row
    
20.             If ar(0, j) <= .Cells(y, "D").Value Then
    
21.               .Cells(y, "B") = ar(0, j)
    
22.               .Cells(y, "C") = ar(1, j)
    
23.               p = y + 1
    
24.               Exit For
    
25.             End If
    
26.           Next
    
27.         Next
    
28.       End If
    
29.     End With
    
30.   Next
    
31.   
    
32.   Conn.Close
    
33.   Set Conn = Nothing
    
34. End Sub

复制代码

下了夏天-17

fzxba 发表于 2023-6-7 13:16

老师，运行时报错：

运行时错误‘3021’
BOF或EOF中有一个是‘真’，或者当前的记录已被删除，所需的操作要求一个当前的记录。

fzxba

下了夏天-17 发表于 2023-6-7 15:59
老师，运行时报错：

运行时错误‘3021’

发放物资台账汇总-B经理.rar (24.8 KB, 下载次数: 6)

2023-6-7 16:44 上传

点击文件名下载附件