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

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

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

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 58
點名: 0
作業系統: WIN XP＆WIN 7 PRO
軟體版本: OFFICE 2003＆AUTOCAD 2008
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-2
最後登錄: 2024-3-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-1-31 09:15 | 只看該作者

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

請教一下如附件檔案（問題請教）
欄位D（累計）=欄位B（前期累計）+欄位C（本期）
我想要設定一個按鈕或VBA
當我輸入欄位C（本期）的數量（值）後，欄位D（累計）的數量也會隨著計算得到
然後我按下「按鈕」或VBA後
欄位D（累計）的數量（值）會自動填入並更換欄位B（前期累計）的數量（值）
然後把欄位C（本期）的數量（值）清除
如此一來，便於我下期要進行數量統計的時候，我就不用用COPY的方式
將欄位D（累計）COPY至欄位B（前期累計）
請教各位前輩，我所說的這個是否可行呢？

問題請教.jpg (45.77 KB)

樓主熱帖

收藏

小學生 Rank: 1

帖子: 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

複製代碼

Nicole

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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