標題: 加列的總和 [打印本頁]

---

作者: mdr0465    時間: 2018-4-1 23:38     標題: 加列的總和

本帖最後由 mdr0465 於 2018-4-1 23:41 編輯

各位:

請問如果我想寫一條段程式,係由A2至到最後一欄第二列的數值,我應該點寫呢?

謝謝

For ss = 1 To column
'        For xx = 1 To cnt
'             Cells(ss + 1, xx) =........................
'    Next
   

[attach]28494[/attach]

---

作者: jcchiang    時間: 2018-4-2 11:56

回復 1# mdr0465

是要計算每列C到F欄的加總,結果顯示在G欄嗎??
如果是,提供參考
Sub ex()
r = [a65535].End(3).Row
[G2].Resize(r - 1) = "=sum(C2:F2)"
End Sub

---

作者: mdr0465    時間: 2018-4-2 21:59

Hi Jcchiang:

謝謝你的回覆, 但我想的是最後一行"合計" 是加"人名"的幾行, 因為我己經寫了一個程式是任意加人名,而隨著加人名而欄數會相對增加而"合計"旳欄位亦相對會改變,謝謝

---

作者: jcchiang    時間: 2018-4-3 14:07

回復 3# mdr0465
你的圖例是含生產件數也加入,如果不需加生產件數,請將ActiveCell.FormulaR1C1 = "=SUM(RC[" & (3 - y) & "]:RC[-1])"
改為ActiveCell.FormulaR1C1 = "=SUM(RC[" & (4 - y) & "]:RC[-1])"

Sub ex()
Dim x, y
x = Range("a1").CurrentRegion.Rows.Count '計算使用的列數
y = Range("a1").CurrentRegion.Columns.Count '計算使用的欄數
Cells(2, y).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[" & (3 - y) & "]:RC[-1])" '合計
Selection.AutoFill Destination:=Range(Cells(2, y), Cells(x, y)), Type:=xlFillDefault '將公式放入所有合計欄位
End Sub

---

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