单元格依次累加，达到固定值后，往下计算

bianchendong

各位大佬，请帮忙
如图，单元格C2是发货数量，他后面的单元格有8到3月每个月的销售数量，我现在想要一个代码实现如下功能：
1.D2往后累加达到C2的值后，剩余的值下移到下一列，下一列再与C3比，累加到C3的值后再往下移，实际上就是填充数值，满足发货数，数据源就是每个机种的从D列开始的第一行数值。
2.每个机种后面提供的数据（例：D2：K2）和大于A机种的发货数量总数（列C2:C5）,这里MSGBOX “数据多了，填充不了”       ，B机种等其他机种也是这种情况。
研究了好久，确实搞不定，来个大神

bianchendong

第一个C3是C2，打错了。

bianchendong

没有人吗，来个高手

sunya_0529

来求助也不传个附件

虽然这个题目跟本版块没有关系，还是帮你解决掉吧——

1. Option Explicit
   
2. 
   
3. Sub 自动分配数值()
   
4. Dim i%, j%, arr
   
5. Dim ASum As Long, BSum As Long
   
6. Application.ScreenUpdating = False '关闭屏幕刷新
   
7. With ThisWorkbook.Sheets(1)
   
8.   For i = 2 To .[A1].End(xlDown).Row '从第2行开始循环
   
9.     '把某机种第一行数值赋值给数组arr
   
10.     If Len(.Cells(i, 4)) > 0 Then arr = .Range("A" & i & ":K" & i)
    
11.     For j = 4 To 11 '从第4列（D）到第11列（K）进行循环
    
12.       If .Cells(i, 1) = arr(1, 1) Then '判断是否同一机种
    
13.         '统计横向累计数
    
14.         ASum = Application.Sum(Range(.Cells(i, 4), .Cells(i, j - 1)))
    
15.         '统计纵向累计数
    
16.         BSum = Application.SumIf(Range(.Cells(1, 1), .Cells(i - 1, 1)), arr(1, 1), Range(.Cells(1, j), .Cells(i - 1, j)))
    
17.         If BSum = arr(1, j) Then
    
18.           .Cells(i, j) = "" '纵向累计已满时置空
    
19.         Else
    
20.           '横纵向累计未满时取差值
    
21.           .Cells(i, j) = Application.Min(arr(1, j) - BSum, .Cells(i, 3) - ASum)
    
22.           .Cells(i, j) = IIf(.Cells(i, j) = 0, "", .Cells(i, j)) '0值置空
    
23.         End If
    
24.       End If
    
25.     Next j
    
26.   Next i
    
27. End With
    
28. Application.ScreenUpdating = True '打开屏幕刷新
    
29. End Sub

复制代码

bianchendong

sunya_0529 发表于 2021-1-20 15:40
来求助也不传个附件

虽然这个题目跟本版块没有关系，还是帮你解决掉吧——

我找了半天没有看到传EXCEL的按钮，代码没有试，但先谢谢！！！

bianchendong

sunya_0529 发表于 2021-1-20 15:40
来求助也不传个附件

虽然这个题目跟本版块没有关系，还是帮你解决掉吧——

已经试过了，完全没有问题，非常OK，谢谢，太感谢了，省去了不少的时间，我是VBA小小菜鸟，只能写写CELLS，range，for i 这种简单的语句，谢谢大神的帮助