根据需求生成采购单

wuaijie · 发表于 2023-3-19 21:44

需求是这样的，请大家帮忙解决下，用VBA.
1、根据出库的内容，也就是需求情况生成采购单
2、采购单要求是，大宗的如米面油、调料副食、其他品种一个月采购一次，蔬菜水果肉易坏的每周采购一次
3、利用数据透视表我会解决，但不会VBA.表格中粉色的入库就是要得到的结果，出库就是需求。
请大家帮忙写个，学习下

wuaijie · 发表于 2023-3-19 22:21

期待您的出现

约定的童话 · 发表于 2023-3-20 07:34

为啥不自己先写个框架呢？

liulang0808 · 发表于 2023-3-20 07:44

论坛内相关案例很多，楼主可以检索参考下

学良 · 发表于 2023-3-20 08:29

参考45楼；52楼：
https://club.excelhome.net/thread-1649970-5-1.html
食材进销存

3190496160 · 发表于 2023-3-20 10:00

本帖最后由 3190496160 于 2023-3-20 16:25 编辑

Sub 采购单()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
tt = Timer
With Sheets("流水")
   r = .Cells(Rows.Count, 3).End(xlUp).Row
ar = .Range("a2:l" & r)
End With
For i = 3 To UBound(ar)
If Trim(ar(i, 11)) = "出库" Then
      d(ar(i, 3)) = ""
      w = w + 1
End If
Next i
With Sheets("采购单")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
If rs >= 23 Then .Rows("23:" & rs).Delete
.Range("a4:g18") = Empty
If w / 15 = Int(w / 15) Then
      sl = w / 15
Else
      sl = Int(w / 15) + 1
End If
m = 23
For i = 2 To sl
      .Rows("1:22").Copy .Cells(m, 1)
      m = m + 22
Next i
m = 2
For Each k In d.keys
      n = 0: t = 0
      ReDim br(1 To UBound(ar), 1 To 7)
      ReDim cr(1 To UBound(ar), 1 To 7)
      For i = 3 To UBound(ar)
         If Trim(ar(i, 11)) = "出库" Then
            If ar(i, 3) = k Then
                  n = n + 1
                  If n <= 15 Then
                     br(n, 1) = n
                     br(n, 2) = ar(i, 4)
                     br(n, 3) = ar(i, 8)
                     br(n, 4) = ar(i, 5)
                     br(n, 5) = ar(i, 6)
                     br(n, 6) = ar(i, 7)
                     br(n, 7) = ar(i, 12)
                  Else
                     t = t + 1
                     cr(t, 1) = n
                     cr(t, 2) = ar(i, 4)
                     cr(t, 3) = ar(i, 8)
                     cr(t, 4) = ar(i, 5)
                     cr(t, 5) = ar(i, 6)
                     cr(t, 6) = ar(i, 7)
                     cr(t, 7) = ar(i, 12)
                  End If
            End If
         End If
      Next i
      .Cells(m, 3) = k
      .Cells(m + 2, 1).Resize(15, UBound(br, 2)) = br
      If t > 0 Then
         m = m + 22
         .Cells(m, 3) = k
         .Cells(m + 2, 1).Resize(t, UBound(cr, 2)) = cr
      End If
      m = m + 22
Next k
End With
Application.ScreenUpdating = True
MsgBox "运行完毕，共耗时：" & Format(Timer - tt, "0.00") & "秒"
End Sub

3190496160 · 发表于 2023-3-20 10:01

根据每日用量生成采购单.rar (148.11 KB, 下载次数: 12)

3190496160 · 发表于 2023-3-20 16:29

以此为准，

根据每日用量生成采购单.rar (128.68 KB, 下载次数: 12)

wuaijie · 发表于 2023-3-20 23:41

3190496160 发表于 2023-3-20 16:29
以此为准，

不准确，生成的是出库单，而且还只能生成到2月24日，请侠圣看看哪里改一下就行了

wuaijie · 发表于 2023-3-20 23:42

约定的童话发表于 2023-3-20 07:34
为啥不自己先写个框架呢？

没有解决的思路么

		自动登录	找回密码
密码			免费注册

[求助] 根据需求生成采购单