《發問》有關累計數量與前期累計數量設定方式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 《發問》有關累計數量與前期累計數量設定方式

返回列表下一主題上一主題發帖

[發問] 《發問》有關累計數量與前期累計數量設定方式

小學生 Rank: 1

帖子: 9
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 10
性別: 女
來自: taiwan
註冊時間: 2013-1-17
最後登錄: 2013-3-20

1^# 跳轉到 »

發表於 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

複製代碼

Nicole

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。

返回列表下一主題上一主題