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

加列的總和

mdr0465

中學生 Rank: 2

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

中學生 Rank: 2

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

mdr0465