超级难、根据BOM和订单计算物料

翁知江安 · 发表于 2024-10-20 11:38

应该可以操作，您提供的表中可能是少了原材料库存来源表

janemark · 发表于 2024-10-20 12:42

一招秒杀发表于 2024-10-20 10:53
这个太简单了，只有单级。

有单级，那是因为是手工做好了的。

janemark · 发表于 2024-10-20 12:52

opiona 发表于 2024-10-20 10:40
https://club.excelhome.net/thread-1445694-1-1.html

首先，谢谢。但是我要的是按天计算的需求

janemark · 发表于 2024-10-20 12:53

opiona 发表于 2024-10-20 10:40
https://club.excelhome.net/thread-1445694-1-1.html

我用公式计算的话也能完成，但是会非常的麻烦和慢

z865593849 · 发表于 2024-10-20 16:49

本帖最后由 z865593849 于 2024-10-20 16:58 编辑

几句 SQL完事

ZHLK · 发表于 2024-10-20 16:56

Sub demo()

Rows("1:2000").Delete Shift:=xlUp
cnn = "OLEDB;Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=cnn, Destination:=Range("$a$1")).QueryTable
.CommandText = "select bom.订单编码,bom.订单名称,xuqiu.* from bom inner join xuqiu on bom.材料编码=xuqiu.材料编码"
.ListObject.DisplayName = "表1"
.Refresh BackgroundQuery:=False
End With
ActiveSheet.ListObjects("表1").Unlist
For i = 4 To 40
Cells(1, i) = Format(Val(Cells(1, i)), "mm-dd")
Next
ActiveSheet.Cells.EntireColumn.AutoFit

End Sub

janemark · 发表于 2024-10-21 07:30

z865593849 发表于 2024-10-20 16:49
几句 SQL完事

谢谢！谢谢谢谢谢谢

janemark · 发表于 2024-10-21 07:31

ZHLK 发表于 2024-10-20 16:56
Sub demo()

Rows("1:2000").Delete Shift:=xlUp

谢谢！

谢谢！谢谢！谢谢！谢谢！谢谢！

TOM-Q · 发表于 2024-10-22 11:09

z865593849 发表于 2024-10-20 16:49
几句 SQL完事

这个我运行时报错了，麻烦看看是什么原因，谢谢

z865593849 · 发表于 2024-10-22 11:21

TOM-Q 发表于 2024-10-22 11:09
这个我运行时报错了，麻烦看看是什么原因，谢谢

开头加cells.delete 清空

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

[求助] 超级难、根据BOM和订单计算物料