求助大佬写个VBA代码筛选重复值复制减掉并生成新表

q490525427 · 发表于 2024-2-20 02:54

求助大佬写个VBA代码筛选重复值复制减掉并生成新表
感谢EH家人能在这个关键时刻伸出援手,我相信EH家人有足够的能力和智慧来解决这个问题,非常感激,祝:龙年大吉!
^数据表里的货号颜色尺码每天的都不一样,货号的格式大概就是这些,字母数字和-符号的组合

'仓库的货品也会增加

'浅蓝是代表货品颜色尺码一样,这样好区分一点有助测试代码准确性
'黄色是代表仓库的货品库存超过订单
'绿色代表仓库的货品低于订单量

'需求根据数据表里的订单量筛选仓库库存货品颜色尺码数量
''然后数据表筛选仓库,有相同的,数据表和仓库自动减去库存数量,减掉货品数量并按照仓库的模板生成一个新表
'大概原理就是来新订单先对应仓库库存,如有库存数据表和仓库两表自动减掉,刚减掉的生成一个新的拣货单表
'3表是手动填写的例子

ykcbf1100 · 发表于 2024-2-20 09:29

猜一个吧，没完全搞懂楼主的意思。

洋务德雷 · 发表于 2024-2-20 09:29

你这个问题，需要重新设置数据表形式，就是一个进销存的问题。数据结构需要调整，还需要在编写代码。沟通和工作量都比较大。

ykcbf1100 · 发表于 2024-2-20 09:29

参与一下。。。

Sub ykcbf() '//2024.2.20
Dim arr, d
Application.ScreenUpdating = False
On Error Resume Next
With Sheets("数据")
r = .Cells(.Rows.Count, "a").End(xlUp).Row
arr = .[a1].Resize(r, 8)
End With
With Sheets("仓库")
r = .Cells(.Rows.Count, "a").End(xlUp).Row
brr = .[a1].Resize(r, 8)
End With
With Sheets("要自动生成")
r = .Cells(.Rows.Count, "a").End(xlUp).Row
For i = 3 To r
For j = 3 To 8
tmp = arr(i - 1, j) - brr(i, j)
If tmp > 0 Then
.Cells(i, j) = tmp
Else
.Cells(i.j) = arr(i - 1, j)
End If
Next
Next
ActiveWindow.DisplayZeros = False
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

蓝桥玄霜 · 发表于 2024-2-20 10:07

把仓库表里面的I列删除清空。

yynrzwh · 发表于 2024-2-20 10:12

生成拣货单.zip (29.06 KB, 下载次数: 17)

q490525427 · 发表于 2024-2-20 10:55

ykcbf1100 发表于 2024-2-20 09:29
猜一个吧，没完全搞懂楼主的意思。

哈哈,我再详细屡屡表达方式,感谢草爷,龙年大吉!
之前说反了,感觉应该是仓库减数据,
反正两边都会有负数,有的库存不足,有的库存多

自动生成G4黄色这块要3
E6单元格要4
D8单元格对
G12单元格要2

同时自动生成的减去仓库的和数据里的

仓库表G4黄色这块要7

E6单元格剩1

D8单元格对

G12单元格4

数据表
G4黄色这块清零

E6单元格剩1
D8单元格剩1
G12单元格剩4

有没有办法数据表和仓库A列重新排序后也可以自动生成

q490525427 · 发表于 2024-2-20 10:57

洋务德雷发表于 2024-2-20 09:29
你这个问题，需要重新设置数据表形式，就是一个进销存的问题。数据结构需要调整，还需要在编写代码。沟通和 ...

对对,是进销存这意思,这个格式看着简单明了,大佬来个模板参考一下结构

q490525427 · 发表于 2024-2-20 10:59

蓝桥玄霜发表于 2024-2-20 10:07
把仓库表里面的I列删除清空。

版主大大,求附件

q490525427 · 发表于 2024-2-20 11:09

yynrzwh 发表于 2024-2-20 10:12

感谢大佬,再帮忙改一下,生成拣货单后,该清库存了,数据表里也和仓库里相同的货单按数量,清掉库存

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

[求助] 求助大佬写个VBA代码筛选重复值复制减掉并生成新表

评分

评分

评分

评分