當前位置:律師網大全 - 商標查詢 - excel word文件內容的批量修改

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

末端接頭

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

送奶記錄,如圖:

  • 上一篇:如何設計鄉村庭院看起來更有鄉村氣息?
  • 下一篇:蘋果公司組織結構圖,以及結構圖的分析,要中文的
  • copyright 2024律師網大全