excel word文件内容的批量修改

下面的代码是一个牛奶配送站的应用程序。根据每日送奶记录，计算出奶单记录中的累计送奶量。代码如下:

Sub计算交货数量()

Const mYmax = 1000

将我的标注为字符串

将I，J，K，L表示为整数

将我的日期显示为日期

Dim mYarr(1到mYmax，1到6)

Dim M_DNBH作为字符串

Dim M_YSSL为整数

将my 1标注为字符串

将mYs2标注为字符串

MYs1 = "送奶记录"

MYs2 = "牛奶订单记录"

床单(my 1)。挑选

I = 2

Do While Len(Cells(I，1))>' 0 '将送奶记录计数到MYARR数组中。

对于J = 1到6

mYarr(I - 1，J) = Cells(I，J)

下一个J

I = I + 1

环

I = I-2 '我记录了送奶的记录次数。

床单(mYs2)。挑选

J = 2 '记录当前行号

Do While Len(Cells(J，1))>0

M_YSSL = 0

M_DNBH = Cells(J，1)

对于L = 1到I

如果M_DNBH = mYarr(L，2 ),则

？M_YSSL = M_YSSL + mYarr(L，6)

如果…就会结束

Cells(J，7) = M_YSSL

下一个L

J = J + 1

环

末端接头

牛奶订购记录表单，如图:

送奶记录，如图: