[已解决]请大神做一个自动读取的送货入库单

透明世界1987 · 发表于 2022-6-16 15:27

sam-wang · 发表于 2022-6-16 15:55

請測試看看，謝謝
Sub test()
Dim Arr, T, T1, i&, j%
T = Sheet4.Range("B2")
Arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(Arr)
If Arr(i, 14) = T Then
n = n + 1: Arr(n, 1) = Arr(i, 1)
For j = 4 To 12: Arr(n, j) = Arr(i, j): Next
End If
T1 = Arr(i, 14)
Next
With Sheet4
.[a4:j20] = ""
.[a4].Resize(n, 10) = Arr
.[f2] = T1
End With
End Sub

sam-wang · 发表于 2022-6-16 15:59

請問顯示板總數如何計算? 請說明，謝謝

透明世界1987 · 发表于 2022-6-16 16:05

sam-wang 发表于 2022-6-16 15:59
請問顯示板總數如何計算? 請說明，謝謝

数据内容不太对，错位了项目名称是不要的，类别也不需要
当前做比如显示过来4行数据那么空个两三行做个合计，操纵箱显示板上面4行数据就是4，指令版4行数据也是4，如果今天只有2行数据则都是2，这样子

透明世界1987 · 发表于 2022-6-16 16:18

sam-wang 发表于 2022-6-16 15:59
請問顯示板總數如何計算? 請說明，謝謝

实现以上结果

sam-wang · 发表于 2022-6-16 16:39

这个最佳答案由 sam-wang 给出，感谢 sam-wang 的回答。

单击隐藏图章

透明世界1987 发表于 2022-6-16 16:18
实现以上结果

請再測試看看，謝謝
Sub test()
Dim Arr, Brr(1 To 1, 1 To 10), T, T1, n&, n1&, i&, j%
T = Sheet4.Range("B2")
Arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(Arr)
If Arr(i, 14) = T Then
n = n + 1: Arr(n, 1) = Arr(i, 1)
For j = 4 To 12: Arr(n, j - 2) = Arr(i, j): Next
End If
T1 = Arr(i, 13)
Next
Brr(1, 1) = "Total"
For j = 2 To 10: For i = 1 To n
T = Arr(i, j): If T <> "" Then n1 = n1 + 1: Brr(1, j) = n1
Next: n1 = 0: Next
With Sheet4
.[a4:j20] = ""
.[a4].Resize(n, 10) = Arr
.[f2] = T1
.Cells(n + 6, 1).Resize(1, 9) = Brr
End With
End Sub

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