UC知道EXCEL 生产计划问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 23:10:43
目前在公司里做生产计划，希望用EXCEL来做，但是有些部分需要自动换算，我举例吧。
比如，我有定单：A1（2000个），A2（5000个），A3（6000个）这三张定单，固定了生产线每日可生产的数量为1450个，然后做计划为每周的生产计划，希望是能在EXCEL表格中自动按照1450个的规律排列下去，比如，第一天生产A1定单1450个，第二天生产A1定单550个加A2定单900个，第三天生产A2定单1450个，依次类推将所有的定单按照一周的格式排列下去。
不知道能不能有什么办法自动将定单按照规定的格式自动导入EXCEL，并且能显示定单的型号，比如：
周一：A1定单，型号为圆形，数量：1450个，合计1450个
周二：A1定单，型号为圆形，数量：550个
A2定单，型号为方形，数量：900个，合计1450个
不知道有没有高手可以作的到。。。。。。。。。。我只知道公式只可以做简单的加减。。。希望高手赐教，分数不多！
我放了一张图，大家看看！
比如，我有定单：A1（2000个），A2（5000个），A3（6000个）这三张定单，固定了生产线每日可生产的数量为1450个，然后做计划为每周的生产计划，希望是能在EXCEL表格中自动按照1450个的规律排列下去，比如，第一天生产A1定单1450个，第二天生产A1定单550个加A2定单900个，第三天生产A2定单1450个，依次类推将所有的定单按照一周的格式排列下去。
不知道能不能有什么办法自动将定单按照规定的格式自动导入EXCEL，并且能显示定单的型号，比如：
周一：A1定单，型号为圆形，数量：1450个，合计1450个
周二：A1定单，型号为圆形，数量：550个
A2定单，型号为方形，数量：900个，合计1450个
不知道有没有高手可以作的到。。。。。。。。。。我只知道公式只可以做简单的加减。。。希望高手赐教，分数不多！
我放了一张图，大家看看！
不是很明白你的意思。hi里面聊
Sub Macro1()
'On Error Resume Next
Dim num As Integer, tnum As Integer
Dim arr As Variant
Dim n As Integer, k As Integer
ReDim arr(4, 1) As String '数组赋初值
For i = 0 To 3
arr(i, 0) = Sheets(1).Cells(2, i + 1)
Next i
num = arr(2, 0)
n = 1
Do While n <= Sheets(1).Range("a65536").End(xlUp).Row
If num <= 1450 Then
k = k + 1
n = n + 1
ReDim Preserve arr(4, k + 1)
For i = 0 To 3
arr(i, k) = Sheets(1).Cells(n, i + 1)
Next i
If num = 1450 Then num = 0
tnum = num + Sheets(1).Cells(n + 1, "C")
ElseIf num > 1450 Then
k = k + 1
n = n + 1
ReDim Preserve arr(4, k + 2)
For i = 0 To 3
arr(