Excel计算编程问题，高手请进

这是一个有关于变压器铁芯叠片项次数的Excel计算编程的问题。

相关格式图片如下：

我来解释一下：

叠片的次序是以： ‘正中-偏1-偏2’ 这样的次序进行反复叠装，左边的数量则是当级的叠片次数。

举例：序号1 ，数量4次。那么安装叠片次序：正中-偏1-偏2 来的话，应该是正中数量为2，偏1数量为1，偏2数量为1.这么一个情况。如下图所示：

 

其它序号的级数同样也是按照之前的这个次序进行叠装，但是有个情况需要注意。

以刚才所举的例子再为例：当序号1的数量叠完后，开始以序号2的数量开始叠装。则不能以‘正中’开始叠装，是应该以‘偏1’开始叠装。因为序号1叠至第2轮时，未进行一轮回就完毕了。

说明一下：序号1    正中-偏1-偏2-正中  完毕！ 序号2   偏1-偏2-正中-偏1-偏2 完毕！

所以说，当某一序号的数量为进行一轮回就终止了的话，那下一序号则应该接着从上一序号的次序继续进行。

 

根据以上说明，我先做出部分数据给大家看一下，以便进一步进行了解.

 

以上就是我所说的要求了，还请高人给予指点.以下是实际操作图表：

 

如果能顺利解决问题，另外还追加40分。

以上是3进步的图表

如是5进步的又当如何编程？（次序：正中-偏1-偏2-偏3-偏4）

如此问题也解决，另再次追加20分

 

 

 

 

在E3输入 =ROUNDUP((SUM(C$3:C3)-1)/3,)-SUM(E$2:E2)
在F3输入 =ROUNDUP(SUM(C$3:C3)/3,)-SUM(F2:F$2)
在G3输入 =ROUNDUP((SUM(C$3:C3)-2)/3,)-SUM(G2:G$2)
然后将公式向下复制。
这就是第一个问题的答案。


第2个问题，即5进步，在E3、F3、G3、H3、I3分别输入
=ROUNDUP((SUM($C$3:$C3)-3)/5,)-SUM(E2:E$2)
=ROUNDUP((SUM($C$3:$C3)-1)/5,)-SUM(F2:F$2)
=ROUNDUP((SUM($C$3:$C3))/5,)-SUM(G2:G$2)
=ROUNDUP((SUM($C$3:$C3)-2)/5,)-SUM(H2:H$2)
=ROUNDUP((SUM($C$3:$C3)-4)/5,)-SUM(I2:I$2)
公式向下复制。

Private Sub CommandButton1_Click() t = 2  '叠装起始位置 s = 0  '偏移量 x = 3  '数量起始列 y = 3  '数量起始行 Do Until Cells(y, x) = ""     For i = 1 To Cells(y, x)     n = x + 1 + t + s     Cells(y, n) = IIf(IsNumeric(Cells(y, n)), Cells(y, n) + 1, 1)     s = IIf(s < 0, -s, -1 - s)     If Abs(s) >= t Then s = 0     Next     y = y + 1 Loop End Sub

以上是计算3进步的，要计算5进步的，只要把第二行改为t=3即可，

依此类推，当t=m时，就是m*2-1进步的。

另外要注意，要在表格界面放入一个按钮控件CommandButton1才能运行。