返回列表 上一主題 發帖

加列的總和

mdr0465

帖子
163 
主題
45 
精華
0 
積分
246 
點名
27  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2024-9-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
   

收藏 分享

jcchiang

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

mdr0465

帖子
163 
主題
45 
精華
0 
積分
246 
點名
27  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2024-9-14 
3#
發表於 2018-4-2 21:59 | 只看該作者
Hi Jcchiang:

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

TOP

jcchiang

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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題