標題: [發問] 《發問》有關累計數量與前期累計數量設定方式 [打印本頁]

---

作者: ianlcc    時間: 2013-1-31 09:15     標題: 《發問》有關累計數量與前期累計數量設定方式

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

---

作者: 水元素    時間: 2013-1-31 17:53

回復 1# ianlcc

看看程式內容是否你所需，我也剛學寫VBA，有其他問題或更簡單寫法也希望大家提出指導，謝謝
程式內容依照你的圖片欄位所寫，唯一不同是你只需要輸入本期的數兩欄位填完按下按鈕即可自動計算

1. Sub AAA()
   
2. 
   
3. Application.Calculation = xlCalculationManual
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. Dim i As Integer, j As Integer
   
8. 
   
9. j = Range("C2").CurrentRegion.Rows.Count  '自動尋找最後一欄位資料列
   
10. 
    
11. i = 2
    
12. 
    
13. Do Until i = j + 1
    
14. 
    
15. Cells(i, "D").Value = Cells(i, "B").Value + Cells(i, "C").Value '計算累計數量
    
16. 
    
17. i = i + 1
    
18. 
    
19. Loop
    
20. 
    
21. Range(Cells(2, "D"), Cells(j, "D")).copy '更新累計數量到前期數量
    
22. 
    
23. Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
24.             :=False, Transpose:=False
    
25. 
    
26. Range(Cells(2, "C"), Cells(j, "C")).ClearContents '清除本期數量
    
27. 
    
28. Application.ScreenUpdating = True
    
29. 
    
30. Application.Calculation = xlCalculationAutomatic
    
31. 
    
32. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)