返回列表 上一主題 發帖

加列的總和

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 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

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 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

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題