sumifs 轉成 vba 語法

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

14^# 跳轉到 »

發表於 2021-12-8 08:57 | 只看該作者

回復 13# samwang
Dear samwang,
正常可以使用，感謝您！ ^^

Just do it.

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

13^#

發表於 2021-12-7 21:43 | 只看該作者

回復 12# jsc0518

請測試看看，謝謝
Sub Sumif()
For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(Sheets("ROUND").Range("A2:A65536"), Cells(I, "A"), Sheets("ROUND").Range("M2:M65536"))
Next
End Sub

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

12^#

發表於 2021-12-7 21:08 | 只看該作者

本帖最後由 jsc0518 於 2021-12-7 21:13 編輯

回復 11# samwang

我希望將 F2欄位Sumif公式轉成VBA

1111.rar (19.63 KB)

Just do it.

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

11^#

發表於 2021-12-7 20:47 | 只看該作者

回復 10# jsc0518

方便附上檔案且說明一下問題需求，謝謝

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

10^#

發表於 2021-12-7 19:47 | 只看該作者

回復 9# samwang
Dear samwang,
晚上好！感謝您的回覆歐，剛用了測試OK。

再請教您一個問題
我若改成 Sumif (語法如下) ，但會發生 400 錯誤，是否可幫我解惑，哪個語法有問題
Thank you very much.

Sub Sumif()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.Sumif(工作表2.Range("A"), 工作表3.Cells(I, "A"), 工作表2.Range("M:M"))
Next

End Sub

Just do it.

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

9^#

發表於 2021-12-7 19:06 | 只看該作者

回復 8# jsc0518

少了一個 )
Cells(I, "G") = Application.SumIfs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A"))

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

8^#

發表於 2021-12-7 16:46 | 只看該作者

回復 3# ML089
Dear ML,
抱歉，可以再幫我解一下疑惑嗎？

此段為excel函數，我想把他轉VBA，因有跨工作表的問題，所以自己run不出來
=SUMIFS(ROUND!M2:M10000,ROUND!A2:A10000,A2)

下方是我改過的語法，但有問題

Sub Sumifs()

For I = 2 To [a65536].End(3).Row
Cells(I, "G") = Application.SumIfs((Sheets("ROUND").[M2:M10000]), (Sheets("ROUND").[A2:A10000]), Cells(I, "A")
Next

End Sub