下面的代碼是壹個牛奶配送站的應用程序。根據每日送奶記錄,計算出奶單記錄中的累計送奶量。代碼如下:
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
環
末端接頭
牛奶訂購記錄表單,如圖:
送奶記錄,如圖: