- 帖子
- 9
- 主題
- 1
- 精華
- 0
- 積分
- 14
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 女
- 來自
- taiwan
- 註冊時間
- 2013-1-17
- 最後登錄
- 2013-3-20
|
2#
發表於 2013-1-31 17:53
| 只看該作者
回復 1# ianlcc
看看程式內容是否你所需，我也剛學寫VBA，有其他問題或更簡單寫法也希望大家提出指導，謝謝
程式內容依照你的圖片欄位所寫，唯一不同是你只需要輸入本期的數兩欄位填完按下按鈕即可自動計算- Sub AAA()
- Application.Calculation = xlCalculationManual
- Application.ScreenUpdating = False
- Dim i As Integer, j As Integer
- j = Range("C2").CurrentRegion.Rows.Count '自動尋找最後一欄位資料列
- i = 2
- Do Until i = j + 1
- Cells(i, "D").Value = Cells(i, "B").Value + Cells(i, "C").Value '計算累計數量
- i = i + 1
- Loop
- Range(Cells(2, "D"), Cells(j, "D")).copy '更新累計數量到前期數量
- Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Range(Cells(2, "C"), Cells(j, "C")).ClearContents '清除本期數量
- Application.ScreenUpdating = True
- Application.Calculation = xlCalculationAutomatic
- End Sub
|
|
