根据出库数据按时间和餐次生成出库单

yangqianming · 发表于 2024-4-30 19:45

本帖最后由 yangqianming 于 2024-5-16 15:59 编辑

根据出库单模板的出库时间和餐次从出库数据中提取相关数据，并在总计栏汇总总价，
表中我已经模拟了4月3日的数据，请大佬们出手相助，谢谢！

生成出库单.rar (30.49 KB, 下载次数: 6)

Again123456 · 发表于 2024-4-30 23:40

function t (){
let d = Sheets("出库单模板").Range("b2").Value()
let data = Sheets("出库数据"). Range("a1").CurrentRegion.Value()
.filter(v=> v[0].toString() == d.toString())
.map((v,i) => [i+1,...v.slice(-4),null])
Sheets("出库单模板"). Range("h4").CurrentRegion.ClearContents()
Sheets("出库单模板"). Range("h4").Resize(data.length,data[0].length).Value2= data
}

复制代码

3190496160 · 发表于 2024-5-1 09:10

Sub 出库单()
Dim ar As Variant
Dim br()
With Sheets("出库数据")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "出库数据为空！": End
ar = .Range("a1:f" & r)
End With
rr = Array("总计", "出库责任人签字:", "接收人签字:", "监督人签字:")
ReDim br(1 To UBound(ar), 1 To 5)
With Sheets("出库单模板")
.UsedRange.Offset(3).Clear
rq = .[b2]
cc = .[d2]
For i = 2 To UBound(ar)
      If ar(i, 1) <> "" Then
         If IsDate(ar(i, 1)) Then
            If ar(i, 1) = rq And ar(i, 2) = cc Then
                  n = n + 1
                  br(n, 1) = n
                  For j = 3 To 6
                     br(n, j - 1) = ar(i, j)
                  Next j
            End If
         End If
      End If
Next i
If n = "" Then MsgBox "没有所选条件的数据！": End
.[a4].Resize(n, UBound(br, 2)) = br
ws = n + 4
For i = 0 To UBound(rr)
      .Cells(ws + i, 1) = rr(i)
Next i
.Cells(ws, 5).FormulaR1C1 = "=SUM(R[-" & ws - 4 & "]C:R[-1]C)"
.Cells(ws, 1).Resize(1, 4).Select
With Selection
      .Merge Across:=False
      .HorizontalAlignment = xlHAlignCenter
End With
.[a4].Resize(n + 1, UBound(br, 2) + 1).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-5-1 09:11

生成出库单.rar (39.98 KB, 下载次数: 2)

yangqianming · 发表于 2024-5-1 09:16

Again123456 发表于 2024-4-30 23:40

function test (){
let d = Sheets("出库单模板").Range("b2").Value();
let cc = Sheets("出库单模板").Range("d2").Value() ;
let data = Sheets("出库数据"). Range("a1").CurrentRegion.Value()
.filter(v=> v[0].toString() == d.toString() && v[1].toString() == cc.toString())
.map((v,i) => [i+1,...v.slice(-4),null])
Sheets("出库单模板"). Range("a4:e"+Range("a4").End(xlDown).Row).ClearContents()
Sheets("出库单模板"). Range("a4").Resize(data.length,data[0].length).Value2= data
}

复制代码

...v.slice(-4)用的太牛了，这应该是筛选的典例吧，如果多条件某一个或两个没有条件也可以使用怎么写？
例如餐次的d2单元格为空，筛选就出错了，能否把空的忽略，相当于只有一个条件时间了呢？

yangqianming · 发表于 2024-5-3 10:37

本帖最后由 yangqianming 于 2024-5-3 11:11 编辑

function test (){
let d = Sheets("出库单模板").Range("b2").Value();
let m = Sheets("出库单模板").Range("d2").Value() ;
Sheets("出库单模板"). Range("a4:F"+Range("a4").End(xlDown).Row).Clear()
let data = Sheets("出库数据"). Range("a1").CurrentRegion.Value()
.filter(v=> v[0].toString() == d.toString() && v[1].toString().includes( m.toString()))
.map((v,i) => [i+1,...v.slice(-4),null])
data.push(["合计",null,null,null,data.map(e=>e[4]).reduce((p,u)=>p+u),null],["保管人签字:",null,null,null,null,null],["接收人签字:",null,null,null,null,null],["监督人签字:",null,null,null,null,null])
with(Sheets("出库单模板"). Range("a4").Resize(data.length,data[0].length)){
Borders.LineStyle = xlContinuous
Font .Name = "微软雅黑"
Font .Size = 15
Value2= data
}
let n=Sheets("出库单模板"). Range("a4").End(xlDown).Row
for(let i=n-2;i<=n;i++){
Range("b"+i+":F"+i).Merge(false);
}
}

复制代码

拼凑了一个，如果v[1].toString().includes( m.toString())中的m.toString()为空就相当于没有这个条件写不出来了，其它还行！

生成出库单.rar (31.54 KB, 下载次数: 3)

Again123456 · 发表于 2024-5-3 15:34

yangqianming 发表于 2024-5-3 10:37
拼凑了一个，如果v[1].toString().includes( m.toString())中的m.toString()为空就相当于没有这个 ...

v[1] == m就行了， v[0]是一个日期对像，所能用toString(),v[1]是字符串，m也是，可以直接比较吧

Again123456 · 发表于 2024-5-3 16:43

本帖最后由 Again123456 于 2024-5-3 22:56 编辑

。。。。

复制代码

Again123456 · 发表于 2024-5-3 16:49

本帖最后由 Again123456 于 2024-5-3 16:59 编辑

其实，这些代码你现在都会了，不用套用，肯定可以自己写的

生成出库单.7z (23.36 KB, 下载次数: 6)

yangqianming · 发表于 2024-5-3 18:07

Again123456 发表于 2024-5-3 16:43

我还不会，感谢您一直帮助和鼓励！

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

[已解决] 根据出库数据按时间和餐次生成出库单

评分

评分

评分