返回列表 上一主題 發帖

有關SUMIF VBA 寫法?

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2025-1-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-7 21:49 | 只看該作者

有關SUMIF VBA 寫法?

Range("H400").Select       'XX銀行轉帳部分(M)總數合計 第2~399列
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

SUMIF 巨集一部分如上，意思即將XX銀行轉帳部分(M)總數合計列於轉帳明細表最後一列，今日有明細表250行時將轉帳部分(M)總數合計列於251行，而非固定於H400位置，假如明細表100行時將轉帳部分(M)總數合計列於101行，而非固定於H400位置，隨明細表多寡而變動位置，請問高手能告知上述 EXCEL VBA如何寫?
收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-2-9 10:37 | 只看該作者
如下

X = Sheet1.[A65536].End(xlUp).Row+1
Sheet1.Cells(X, 8).Select  'XX銀行轉帳部分(M)總數合計 第2~399列
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"
羅

TOP

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2025-1-16 
3#
發表於 2015-2-9 19:28 | 只看該作者
感激撥空答覆此問題
ActiveCell.FormulaR1C1 = "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-399]C[-1]:RC[-1],""MX"",R[-399]C[-2]:RC[-2])"

ActiveCell.FormulaR1C1 = "=SUMIF(R[-400]C[-1]:RC[-1],""MH"",R[-400]C[-2]:RC[-2])"
我的意思是 R[-399]C[-1]:RC[-1],R[-398] , R[-399] , R[-400] ..等等用變數如 X+1 ,  X +2 來表示嗎?

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2015-2-13 11:56 | 只看該作者
DEAR SIR
  試試如下     
Sub AA()
X = Sheet1.[A65536].End(xlUp).Row + 1
Range("H1").Select       'XX銀行轉帳部分(M)總數合計 第2~399列
ActiveCell.FormulaR1C1 = "=SUMIF(R[-" & 65538 - X & "]C[-1]:RC[-1],""M"",R[-" & 65538 - X & "]C[-2]:RC[-2])"

End Sub
羅

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2015-2-13 13:40 | 只看該作者
本帖最後由 stillfish00 於 2015-2-13 13:57 編輯

回復 3# lp986749
你的   "=SUMIF(R[-398]C[-1]:RC[-1],""M"",R[-398]C[-2]:RC[-2])"
R[-398] 既然指的是從第2列開始，就用絕對位址 R2 就好，不要用相對的
也就是整個公式改為  "=SUMIF(R2C[-1]:RC[-1],""M"",R2C[-2]:RC[-2])"

至於決定合計的位置，要怎麼找到最後一筆，
要根據你的檔案哪一欄一定都有資料去找比較好，附檔會比較清楚點


另外 你1樓的公式其實是第2~400列，不是2~399，附檔會比較清楚點
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2025-1-16 
6#
發表於 2015-2-13 22:21 | 只看該作者
區別碼        銀行碼        保留        帳號        交易日期        交易金額(F欄)        交易摘要(G)        借貸別
1        '005'        0        '012001090127'        20150206        100000                    MX                         1
1        '005'        0        '012001090127'        20150206        347415                       MR                   1
1        '005'        0        '012001090127'        20150206        129396                      MH                       1
1        '005'        0        '012001090127'        20150206        214039                  MR                      1
1        '005'        0        '012001090127'        20150206        28000                       M                      1
1        '005'        0        '012001090127'        20150206        40000                      M                     1
1        '005'        0        '012001090127'        20150206        1262001              MR                    1
1        '005'        0        '012001090127'        20150206        2231939             MR                   1
1        '005'        0        '012001090127'        20150206        786647                     MX                  1

    Range("H300").Select    'XX銀行轉帳部分(M)總數合計
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-298]C[-1]:RC[-1],""M"",R[-298]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H301").Select     'XX銀行轉帳部分(MH)總數合計
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-299]C[-1]:RC[-1],""MH"",R[-299]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"

    Range("H302").Select       '台銀轉帳部分(MX)總數合計 第2~200列
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-300]C[-1]:RC[-1],""MX"",R[-300]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
   
    Range("H303").Select       'XX銀行轉帳部分(ME5)總數合計
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-301]C[-1]:RC[-1],""ME5"",R[-301]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    Range("H304").Select      'XX銀行轉帳部分(MR)總數合計
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-302]C[-1]:RC[-1],""MR"",R[-302]C[-2]:RC[-2])"
    Selection.Style = "Comma"
    Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-*   "
   
    格式如上將不同"MR" "MX" 加總 放於 H304位置 H302位置

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題