求大神做一个订单录入的宏

285514993 · 发表于 2018-9-11 10:07

求会的大神帮帮忙，保存订单时自动汇总到汇总表里面，能根据订单号查询之前的订单。现在还不会编辑宏，求会的大神帮忙写个宏，小弟感激不尽。

hzruziniu · 发表于 2018-9-11 14:02

Sub 保存订单()
Dim arr, brr(), d As Object, r%, i&, j%, m&, s$
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
r = Range("a65536").End(3).Row
arr = Range("b5:m" & r)
ReDim brr(1 To 2000, 1 To 15)
For i = 1 To UBound(arr)
      s = arr(i, 1) & arr(i, 2) & arr(i, 3)
      If d.exists(s) Then
         r = d(s)
         brr(r, 6) = brr(r, 6) + arr(i, 6)
         brr(r, 10) = brr(r, 10) + arr(i, 9)
         brr(r, 11) = brr(r, 11) + arr(i, 10)
      Else
         If arr(i, 1) <> "" Then
            m = m + 1
            d(s) = m
            For j = 1 To 7
                  brr(m, j) = arr(i, j)
            Next
            brr(m, 8) = Range("c2") '供应商
            brr(m, 9) = arr(i, 8) '单价
            brr(m, 10) = arr(i, 9) '金额
            brr(m, 11) = arr(i, 10) '运费

            brr(m, 12) = Range("k2") '订货日期
            brr(m, 13) = Range("k3") '交货日期
            brr(m, 14) = ""       '对应项不清
            brr(m, 15) = Range("k3") '订单号
         End If
      End If
Next
Set d = Nothing
With Sheets("订货汇总")
      .[a1].CurrentRegion.Offset(1).ClearContents
      .[a2].Resize(m, 15) = brr
      .[a2].Resize(m, 15).Borders.LineStyle = xlContinuous          '添总体加边框线
      .[a2].Resize(m, 15).BorderAround xlContinuous, xlMedium       '外边框加粗
      .[a2].Resize(m, 15).Font.Size = 10                            '字体10号
End With
Application.ScreenUpdating = True
MsgBox "OK！已完成汇总！"
End Sub

hzruziniu · 发表于 2018-9-11 14:08

不清楚你的具体要求，大概是三条件汇总，即：款号、物料编号、物料名称三个条件相同的汇总，
不知是否符合你的要求

hzruziniu · 发表于 2018-9-11 14:16

本帖最后由 hzruziniu 于 2018-9-11 14:17 编辑

辅料订单.rar (30.38 KB, 下载次数: 44)

285514993 · 发表于 2018-9-11 15:34

本帖最后由 285514993 于 2018-9-11 15:36 编辑

hzruziniu 发表于 2018-9-11 14:08
不清楚你的具体要求，大概是三条件汇总，即：款号、物料编号、物料名称三个条件相同的汇总，
不知是 ...

重新在表里写了下我想表达的意思，不知道能不能搞定，谢谢您了

alstar · 发表于 2018-9-11 19:21

ok辅料订单.rar (42.35 KB, 下载次数: 34)
你所说的 “点查询订单时弹窗显示以往订单号，可以点订单号查询订单内容”
好像需要用窗体。我对窗体不了解，还了一种方式查询的。

285514993 · 发表于 2018-9-12 09:41

alstar 发表于 2018-9-11 19:21
你所说的 “点查询订单时弹窗显示以往订单号，可以点订单号查询订单内容”
好像需要用窗体。我对窗体不 ...

做得很好，已经可以满足我的需要了，非常感谢您！

hzruziniu · 发表于 2018-9-12 10:21

285514993 发表于 2018-9-11 15:34
重新在表里写了下我想表达的意思，不知道能不能搞定，谢谢您了

辅料订单2.rar (37.81 KB, 下载次数: 43)
按你的要求：“保存，清除，查询”编写了三个功能的代码，具体请看符件。

alstar · 发表于 2018-9-12 12:31

285514993 发表于 2018-9-12 09:41
做得很好，已经可以满足我的需要了，非常感谢您！

需方的经办人单元格位置写死了。就意味着在订货单不能插入或删除整行了。如果需要插入或删除正行需要修改一下代码。如需要插入或删除行，请在留言。。

285514993 · 发表于 2018-9-12 13:02

alstar 发表于 2018-9-12 12:31
需方的经办人单元格位置写死了。就意味着在订货单不能插入或删除整行了。如果需要插入或删除正行需要修改 ...

订货人我做了下调整，放到了最上面，还有一点其他的小问题，麻烦帮我改改，谢谢您了

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

[求助] 求大神做一个订单录入的宏