excel word文件內容的批量修改

通過通用VBA可以實現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

環

末端接頭

牛奶訂購記錄表單，如圖:

送奶記錄，如圖:

上一篇:如何設計鄉村庭院看起來更有鄉村氣息？

下一篇:蘋果公司組織結構圖,以及結構圖的分析，要中文的